"Variablen" in Word ersetzen

Ahnungslos

Code

$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

Alles anzeigen

In Zeile 16 nimmt AutoIt Replace: = 2 nicht an, wie kann man das umgehen? In " " wird es von Word nicht angenommen. Und sind noch weitere Fehler im Script?

**Gun-Food**

Ich krieg noch nen Fehler:

Code

$Word.Documents.Open("Essen.doc") 
$Word.Documents.Open("Essen.doc")^ ERROR

Zudem müsste Zeile 1 richtig heißen:

Code

$Word = ObjCreate("Word.Application")

Ahnungslos

Zum ersten Fehler:
ist Word noch im Hintergrund offen?

zum zweiten:
is nen Tippfehler, bin auf Arbeit und habs abgetippt

Ahnungslos

oder schreib die komplette Pfadangabe

**Gun-Food**

zu 1. Ja, hab alle im TaskManager zu gemacht, Fehler kommt trotzdem, aber er startet ne Instanz von Word. Also das scheint zu gehen.
Komplette Pfade helfen. Aber ersetzen tut er nichts.

**Gun-Food**

P.S.: Habs so gemacht, dann kommt kein Fehler.

Code

.Execute.Replace = 2

Ahnungslos

geht das ersetzen? kann es gerade nicht testen
und danke für deine hilfe

**Gun-Food**

Leider nicht.
Wenn ich es richtig verstanden hab soll er doch %Ort% gegen Bad Blankenburg ersetzten, oder?
Ich hab daraus %fam% mit dem Text Familie gemacht zu testen. Aber er ersetzt es nicht.
Gibt es dazu nicht irgentwo ne Doku?

Ahnungslos

ja richtig, und in vb klappts (per Macro), aber da muss man es ja auch nicht öffnen, speichern und schließen

???

**Gun-Food**

wenn ich das save und close raus nehme, öffnet er trotzdem kein Wordfenster. Nur der Prozess wird gestartet.

Ahnungslos

bin leider noch nicht zu hause und kann es deshalb nicht testen.
Excel wird sichtbar mit .visible = 1 ob das bei word geht weiss ich jetzt nicht

**Gun-Food**

Also laut http://www.s-engert.de/vb_word.htm sollte es gehen.
In AutoIt geht es aber nicht.

Code

==> The requested action with this object has failed.: 
.Visible = True 
.Visible = True^ ERROR

Ahnungslos

.Visible = "True" oder
.Visible = 1

dürfte gehen

**Gun-Food**

Ahh, habs. Nicht in der Schleife das visible, sondern außerhalb.
Man sieht er markiert richtig, ersetzt aber nicht.

Ahnungslos

Und haste ne Idee?

**GtaSpider**

Hallo!

Vlt mal mit dem Ole/com Viewer gucken ob du damit was findest
http://www.microsoft.com/windows2000/te…g/oleview-o.asp
Kann grade nicht gucken da ich auch sozusagen auf der arbeit bin^^ (bzw bei nem freund, den router einstellen..)

Mfg Spider

**Gun-Food**

Das Problem ist ja, als Macro in Word funktioniert es auf Anhieb. Es scheint, als könnte er die Zuweisung für das Execute Attribut nicht.

Ahnungslos

Hat keiner ne Idee???????????????

jonk

Hi,

habe da mal ein kleines Skript gebastelt und sogar getestet ob es funtioniert :] :

Code

$Word = ObjCreate("Word.Application")
$Word.Documents.Open(@ScriptDir & "\dok1.doc")
$word.Visible = "False"


 $Word.Selection.Find.Execute("ort", 0, 0, 0, 0, 0, 1, 1, 0, "Bad Blankenberg", 2, 0, 0, 0, 0)
; Execute(FindText, MatchCase, MatchWholeWord, MatchWildcards, MatchSoundsLike, MatchAllWordForms, Forward, Wrap, Format, ReplaceWith, Replace, MatchKashida, MatchDiacritics, MatchAlefHamza, MatchControl)
$Word.ActiveDocument.Save()
$Word.ActiveDocument.Close()
$word.quit()

EDIT:
ich sehe gerade, randallc hat fast das Gleiche im englischen Forum gepostet :schild4:

Ahnungslos

Lieber doppelt als gar nicht
Danke.