Wordmakro aus Excel starten

Sub Macro_RV1()
Dim AppWD As Object
Dim wdDoc As Object
Dim Rng As Object
'*  Pfad/Name Vorlage RV
Weg = "\\xxxxx\xxx\xxxx\xxx\_xxxxxx"
Auswahl_Datei = "2021-10-01 # Muster Rahmenvertrag.docm"
'*  Dateinamen und Pfad ermitteln und anpassen
Dim intPos As Integer
Dim strPfad As String
Dim strDatei As String
intPos = InStrRev(ActiveWorkbook.FullName, "\")
strPfad = Left(ActiveWorkbook.FullName, intPos)
strDatei = Mid(ActiveWorkbook.FullName, intPos + 1)
AnzahlDateiname = Len(strDatei) - 15
Dateiname = Format(Date, "yyyy-mm-dd") & "_" & Mid(strDatei, 11, AnzahlDateiname) & "_RV"
...Variablen für Textmarken werden ermittelt
'*  Worddatei RV öffnen und befüllen
Set AppWD = CreateObject("word.application")
AppWD.Documents.Open (Weg & "\" & Auswahl_Datei)   'Muster Worddatei öffnen
Set wdDoc = AppWD.ActiveDocument
With wdDoc
...Variablen der Textmarken werden gefüllt
AppWD.Visible = True
AppWD.Activate
End With
        AppWD.Run "RVspeichern.RV_speichern", strPfad, Dateiname, NameVN
Set AppWD = Nothing
End Sub