Thema Datum  Von Nutzer Rating
Antwort
19.08.2022 22:20:52 M.G.
NotSolved
20.08.2022 10:39:35 ralf_b
NotSolved
20.08.2022 11:46:56 M.G.
NotSolved
20.08.2022 16:32:39 xlKing
NotSolved
20.08.2022 16:50:54 Gast95280
NotSolved
21.08.2022 12:49:04 M.G.
NotSolved
22.08.2022 22:32:30 xlKing
NotSolved
Blau Word Vorlage mit Makros ohne Makro speichern
23.08.2022 16:51:24 M.G.
Solved
23.08.2022 18:40:59 xlKing
Solved
23.08.2022 22:01:46 M.G.
NotSolved

Ansicht des Beitrags:
Von:
M.G.
Datum:
23.08.2022 16:51:24
Views:
405
Rating: Antwort:
 Nein
Thema:
Word Vorlage mit Makros ohne Makro speichern

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.


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.08.2022 22:20:52 M.G.
NotSolved
20.08.2022 10:39:35 ralf_b
NotSolved
20.08.2022 11:46:56 M.G.
NotSolved
20.08.2022 16:32:39 xlKing
NotSolved
20.08.2022 16:50:54 Gast95280
NotSolved
21.08.2022 12:49:04 M.G.
NotSolved
22.08.2022 22:32:30 xlKing
NotSolved
Blau Word Vorlage mit Makros ohne Makro speichern
23.08.2022 16:51:24 M.G.
Solved
23.08.2022 18:40:59 xlKing
Solved
23.08.2022 22:01:46 M.G.
NotSolved