Help for this page

Select Code to Download


  1. or download this
    my $doc = $Word->Documents->Open($_[0]) || die("Unable to open documen
+t ",
    Win32::OLE->LastError());
...
    $find->{Text}="##TOKEN_REPLACE##";
    $find->Replacement->ClearFormatting;
    $find->Replacement->{Text}=$cant_be_more_than_255
  2. or download this
        if (length($service_screens) > 255) {
        
...
            #$doc->ActiveWindow->Selection->TypeText("This line should
+ be after the Service screen");
            $find->Execute({Replace=>$wd->{wdReplaceAll},Forward=>$wd-
+>{True}});
        }