.Insert Where:=ActiveDocument.Range
klappt nicht, da die Datei mit den Textbausteinen zur aktiven Datei nach dem Öffnen wird.
Was aber geht (Templates(1) ist die neu geöffnete Textbausteindatei):
Application.Templates(1).BuildingBlockEntries("Testbaustein").Insert Where:=Documents("Vorlage.dotm").Range
Jetzt muss ich nur noch den Namen "Vorlage.dotm" dynamisch vor meiner ganzen Prozedur auslesen und da einfügen.
Application.Name dachte ich...War aber nix...
Wie speichere ich die Referenz auf Documents.Open? Mein Versuch ging nicht...
Dim File As String
Dim Path As String
File = "Textbausteine.dotx"
Path = "C:\Users\blabla\Desktop\Word\"
CompleteFile = Path & File
Set openedDOC = Application.Documents.Open CompleteFile, Visible:=True ' Versteckt Bausteindatei öffnen
' Beim Versuch die Referenz in openedDOC zu speichern, erhalte ich den Fehler: Fehler beim Kompilieren: Erwartet: Anweisungsende
Bin leider recht neu in VBA....Wahrscheinlich alles ganz simpel...
|