Wir wünschen allen Forenteilnehmern ein frohes Fest und einen guten Rutsch ins neue Jahr. x

Wordvorlage abgespeichert als docm => trotzdem Makro wegen Verweis
#1
Hi,

ich habe eine Wordvorlage dotm erstellt, die Makros mit enthält:
Code:
Private Sub Document_Open()
    Anwesenheit.Show
End Sub

Userform:
Code:
Private Sub CommandButton1_Click()
    Dim Teilnehmer As String
    Dim Abwesend As String
    Dim Protokoll As String

    If CheckBox1 = True Then
    ...
    End If    

    Teilnehmer = Left(Teilnehmer, Len(Teilnehmer) - 2)
    Abwesend = Left(Abwesend, Len(Abwesend) - 2)
    
    ReplaceBookmarkText(ActiveDocument, "Anwesende") = Teilnehmer
    ReplaceBookmarkText(ActiveDocument, "Abwesende") = Abwesend
    ReplaceBookmarkText(ActiveDocument, "Schriftführer") = Protokoll
    Unload Me
    
End Sub

Wenn ich diese aufrufe, wird also ein Dokument1 erzeugt. Wenn ich es nun speichere als docx, wird beim nächsten Start des docx trotzdem das Makro gestartet, weil die docx auf die dotm verweist.

Wie kann ich das verhindern?
Wie kann ich beim starten der dotm und ausführen des ersten Makros gleich an dessen Ende im docx den Verweis löschen per VBA?


Jetzt ist es so, daß das Makro schon in der dotm nicht startet, wenn ich darauf doppelklicke (= Rechtsklick "neu"), wenn ich die Datei aber mit Rechtsklick "öffnen" öffne, dann startet das Makro.
Top
#2
Hi Ralf,


eventuell

ActiveDocument.AttachedTemplate = ""

aber vielleicht erst beim Speichern / im BeforeSafe …
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
[-] Folgende(r) 1 Nutzer sagt Danke an schauan für diesen Beitrag:
  • Rabe
Top
#3
Hallo André,

mit diesem Befehl hat es jetzt mal geklappt.

Es gab aber kein beforeSave, das sind alle, die zur Verfügung stehen:
   
Top
#4
Hi Ralf,

Zitat:Es gab aber kein beforeSave

da kommt dann doch immer wieder der "Excelkopf" durch Smile
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste