Hallo Mr. K.
den Befehl gibt es auf Mac tatsächlich nicht. Auch wdRDITemplate mit 9 zu überschreiben hat nichts gebracht.
Ich habe es jetzt wie folgt gelöst:
Bevor ich den Befehl aufrufe, überprüfe ich auf welchem Betriebssystem die Vorlage aufgerufen wurde. Wenn es Windows ist, dann wird dein Befehl ausgeführt. Sollte es Mac sein, dann finde ich per VBA den Speicherort der Normal.dotm Vorlage raus und verknüpfe diese Vorlage mit dem neuen Worddokument. Dadurch ist meine eigene Vorlage mit den Makros ja quasi auch gelöst und ich werde nicht mehr nach Makros beim Öffnen gefragt.
Falls es jemanden interresiert hier der Code:
Public WithEvents app As Application
Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim Pfad As String
If WINorMAC = "Win" Then
If Doc.AttachedTemplate.Name = "Vorlage Protokoll_neu.dotm" Then
ActiveDocument.RemoveDocumentInformation wdRDITemplate
End If
Else
Pfad = Word.Application.NormalTemplate.Path & "/Normal.dotm"
With ActiveDocument
.UpdateStylesOnOpen = False
.AttachedTemplate = Pfad
End With
End If
End Sub
Function WINorMAC()
' Test for the operating system.
If Not Application.System.OperatingSystem Like "*Mac*" Then
' Is Windows.
WINorMAC = "Win"
Else
' Is a Mac and will test if running Excel 2011 or higher.
WINorMAC = "Mac"
End If
End Function
Danke für deine Hilfe Mr. K. und sehr lustiger Vergleich mit dem Steakhaus. Allerdings ist es keine Option für mich weder auf Windows umzusteigen noch Apples eigene Produkte wie Pages und Tables zu verwenden ;)
Gruß M.G.
|