Replace in Word

[Ahnungslos]

$Word = ObjCreat("Word.Application")
$Word.Documents.Open(@ScriptDir & "\Vorlagen\Mahnung.doc")
With $Word.Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
   .Text = "%Ort%"
   .Replacement.Text = "Bad Blankenburg"
   .Forward = 1
   .Wrap = 1
   .Format = 0
   .MatchCase = 0
   .MatchWholeWord = 0
   .MatchWildcards = 0
   .MatchSoundsLike = 0
   .MatchAllWordForms = 0
   .Execute Replace: = 2
EndWith
$Word.Activedocument.Save()
$Word.Activedocument.Close

In Zeile 16 nimmt AutoIt Replace: = 2 nicht an und in " " wird es von Word nicht angenommen.

or:

In line 16 AutoIt not take Replace: = 2 and in " " it is not accepted by Word.

Edited July 26, 2006 by Ahnungslos

[/dev/null]

  Ahnungslos said:

In line 16 AutoIt not take Replace: = 2 and in " " it is not accepted by Word.

Try: .Execute(Replace=2)

Cheers

Kurt

[randallc]

Hi,

This works on my machine;

;replacedoc.au3
;replacedoc.doc
$Word = ObjCreate("Word.Application")
$Word.Documents.Open(@ScriptDir & "\replacedoc mydoc.doc")
With $Word.Selection.Find
   .ClearFormatting
   .Replacement.ClearFormatting
;~    expression.Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, &_
;~ MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace,&_
;~ MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl)
   .Execute("aaa", false, false, false, false, false, true, false, false, "bbb", 2)
EndWith
MsgBox(0,"","")
$Word.Activedocument.Save()
$Word.Activedocument.Close
$Word.quit
$Word=""

Best, Randall

[Xenobiologist]

Hi,

never thought of using something like that, but I was interested and tested it. I noticed that the winword.exe doesn't close after the script has finished.

Is that normal?

So long,

Mega

[randallc]

Hi,

$Word.quit

works for me; perhaps yours was still there after trying the original script on this thread, which did not have a "quit" instruction?

Randall

[Ahnungslos]

Thank You