ja habe leider diesen Code button nicht gefunden, Formatierung war vorher in Ordnung und wurde dann beim posten zerschossen.
2. Versuch
Guten Tag,
ich hoffe das mir hier jemand weiterhelfen kann. ich habe ein funktionierendes Makro mit einem Symbol verbunden welches ein Template öffnen soll. Dieses Makro ist auch als Add-in hinterlegt (ich habe beides nicht eingerichtet). Nun hat der Benutzer einen neuen PC erhalten und es fehlen die Makros, also habe ich exportiert und beim neuen User importiert, Verweise welche gefehlt haben habe ich hinzugefügt und Speicherorte habe ich angepasst. Alle Symbole mit unterschiedlichen Makros (5 insgesamt) öffnen nun jedoch lediglich das gleiche Template obwohl die Makros beim debuggen die richtige Vorlage öffnen.
Wenn ich nun an dem PC an welchem es funktioniert ein neues Symbol mit einem Makro hinzufüge wird auch nur noch die gleiche Vorlage geöffnet und nicht mehr die entsprechenden. wenn ich über den Reiter Add-in gehe öffnet es beim alten PC noch die richtigen Vorlagen (weiß jedoch nicht wie ich dieses Add-in einbinden könnte)
Also was ich benötigen würde wäre ein Lösungsansatz wie ich die Makros einbinden muss damit auch die richtigen Vorlagen geöffnet werden.
Makro welches immer ausgeführt wird auch wenn ein anderes ausgewählt ist heißt Ausbuchungen und lautet so:
Public Sub MAIN()
WordBasic.FileNew Template:="R:4-ProgrammeMSOffice2002VorlagenFormulareAusbuchungsauftrag.dot", NewTemplate:=0
'WordBasic.ToolsUnprotectDocument
'WordBasic.FilePageSetup Tab:="2", PaperSize:="9", TopMargin:="1 cm", BottomMargin:="2 cm", LeftMargin:="1,8 cm", RightMargin:="1 cm", Gutter:="0 cm", PageWidth:="21 cm", PageHeight:="29,7 cm", Orientation:=0, FirstPage:=268, OtherPages:=268, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, HeaderDistance:="1 cm", FooterDistance:="1,25 cm", SectionStart:=2, OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, StartingNum:="", FromText:="", CountBy:="0", NumMode:=-1
'WordBasic.ToolsProtectDocument DocumentPassword:="", NoReset:=0, Type:=2
End Sub
Makro welches auch Ausbuchungen öffnet heißt z.b. SForm und hat den code:
Public Sub MAIN()
WordBasic.FileNew Template:="R:4-ProgrammeMSOffice2002VorlagenFormulareStorno.DOT", NewTemplate:=0
'WordBasic.ToolsUnprotectDocument
'WordBasic.FilePageSetup Tab:="2", PaperSize:="9", TopMargin:="1 cm", BottomMargin:="2 cm", LeftMargin:="1,8 cm", RightMargin:="1 cm", Gutter:="0 cm", PageWidth:="21 cm", PageHeight:="29,7 cm", Orientation:=0, FirstPage:=268, OtherPages:=268, VertAlign:=0, ApplyPropsTo:=4, FacingPages:=0, HeaderDistance:="1 cm", FooterDistance:="1,25 cm", SectionStart:=2, OddAndEvenPages:=0, DifferentFirstPage:=0, Endnotes:=0, LineNum:=0, StartingNum:="", FromText:="", CountBy:="0", NumMode:=-1
'WordBasic.ToolsProtectDocument DocumentPassword:="", NoReset:=0, Type:=2
End Sub |