cherokee0815
Grünschnabel
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:
Ich erhalte folgende Fehlermeldung: Unzulässige Verwendung einer Eigenschaft
Wenn ich das ganze so laufen lasse:
taucht der richtige Name auf.
Wenn ich bei *
einfüge, erhalte ich die selbe Fehlermeldung wie oben.
Was mache ich falsch / was muss ich tun.
Viele Grüße,
chero
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:
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:
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:
If docLoop.Name = "Solar.doc" Then nextDoc = docLoop
Was mache ich falsch / was muss ich tun.
Viele Grüße,
chero