Thanks for your responses Greg and Jan. I've followed your advice and it's
working beautifully.
Thanks very much!
Chris
------
Chris Cox
B.IT.(Information Systems)
Senior Software Engineer
Creatop Interactive Media
Level 1, 240 McCullo
t;{Documents}->Open("C:\\Word\\Certificate.doc");
my $count = $doc->Shapes->{Count};
for (my $i=1; $i < $count; $i++) {
$doc->Shapes->{$i}->{TextFrame}->{TextRange}->{Text} =~
s/#tPreferredName#/Chris/g;
}
Surely there's an easier way? If not, it'll have
,
please ask and I will send them off list.
Any help would be appreciated, I'm new at this!
Cheers,
Chris
--
Chris Cox
B.IT.(Information Systems)
Senior Software Engineer
Creatop Interactive Media
Level 1, 240 McCullough Stre