Hi,

ich bin totaler VBA Neuling, hab sonst aber Ahnung vom Programmieren.

Ich will aus einem Dokument heraus ein zweites öffnen, dort einigen Textmarken Werte aus dem ersten Dokument zuweisen und das ganze dann ausdrucken.
Jetzt scheitere ich allerdings bereits am ersten Schritt:

Code :

1 2 3 4 5 6

Dim nextDoc As Document   nextDoc = Documents.Open FileName:=".\Solar.doc", ConfirmConversions:=False, _               ReadOnly_:=False, AddToRecentFiles:=False, PasswordDocument:="", _               PasswordTemplate :="", Revert:=False, WritePasswordDocument:="", _               WritePasswordTemplate:="" , Format:=wdOpenFormatAuto, Visible:=False

Ich erhalte folgende Fehlermeldung: Unzulässige Verwendung einer Eigenschaft

Wenn ich das ganze so laufen lasse:

Code :

1 2 3 4 5 6 7 8 9 10

Dim docLoop As Document   Documents.Open(FileName:=".\Solar.doc", ConfirmConversions:=False, ReadOnly _         :=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _         :="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _         , Format:=wdOpenFormatAuto, Visible:=False)         For Each docLoop In Documents     MsgBox docLoop.Name    '* Next docLoop

taucht der richtige Name auf.

Wenn ich bei *

Code :

1	If docLoop.Name = "Solar.doc" Then nextDoc =  docLoop

einfüge, erhalte ich die selbe Fehlermeldung wie oben.

Was mache ich falsch / was muss ich tun.

Viele Grüße,
chero

Lösung:

mit

Code :

1	SET nextDoc = Documents.Open(...)