' Word mit Automatisierungsobjekt aus QB heraus steuern

LINE INPUT "Quelldatei? ", q$
LINE INPUT "Zieldatei? ", z$
LINE INPUT "Alter Text? ", alt$
LINE INPUT "Neuer Text? ", neu$

OPEN ENVIRON$("TEMP") + "\~WORDMKR.VBS" FOR OUTPUT AS 1
PRINT #1, "Option Explicit"
PRINT #1, "Const wdReplaceAll = 2"
PRINT #1, "Dim oWord, oDoc, oSel"
PRINT #1, "Set oWord = CreateObject(" + CHR$(34) + "Word.Application" + CHR$(34) + ")"
PRINT #1, "oWord.visible = True"
PRINT #1, "Set oDoc = oWord.Documents.Open(" + CHR$(34) + q$ + ".doc" + CHR$(34) + ")"
PRINT #1, "Set oSel = oDoc.Range"
PRINT #1, "oSel.Select"
PRINT #1, "oSel.Find.Text = " + CHR$(34) + alt$ + CHR$(34)
PRINT #1, "oSel.Find.Replacement.Text = " + CHR$(34) + neu$ + CHR$(34)
PRINT #1, "oSel.Find.Execute ,,,,,,,,,,wdReplaceAll"
PRINT #1, "Set oSel = Nothing"
PRINT #1, "oDoc.SaveAs " + CHR$(34) + z$ + ".doc" + CHR$(34)
PRINT #1, "oDoc.Close"
PRINT #1, "Set oDoc = Nothing"
PRINT #1, "oWord.Quit"
PRINT #1, "Set oWord = Nothing"
CLOSE 1
SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~WORDMKR.VBS"
KILL ENVIRON$("TEMP") + "\~WORDMKR.VBS"