|
Lieber Mr. K., ich hebe einige Schwierigkeiten mit der Begrifflichkeit innerhalb von VBA. Sie schreiben mir das der Code inn´das Modul
ThisDocument gehört. Es ist bei mir schon seid 2005 vorbei mit der sog. großen EDV und VBA habe ich auch nie so richtig begriffen, ist das Modul ThisDocument nicht das eigentliche Word-Document? bei mir ersheint das Statement Dim WithEvents app As Application im meinem Makro1 immer in rot dargestellt. Ich weis an dieser Stelle nicht mehr weiter. Meine Makro1 habe ich mit Ihrer Codefolge bestückt, aber die Meldung ist Fehler beim Compilieren: syntaxfehler. Was für eine Syntaxfehler mache ich da?
Wenn Sie mir alten Opa weiterhelfen könnten wäre ich sehr dankbar, auch für eine Erklärung welchen Syntaxfehler dort gemacht wird.
Sub Makro1()
' Makro1 Makro
Dim WithEvents app As Application
'
'
Private Sub app_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim Pfad As String, Dateiname As String
Pfad = "C:\Temp\Word\"
If Doc Is ThisDocument Then
If Doc.Sentences.Count > 0 Then
Dateiname = Doc.Sentences(1)
If Right(Dateiname, 1) = Chr(13) Then Dateiname = Left(Dateiname, Len(Dateiname) - 1)
Application.DisplayAlerts = wdAlertsNone
Doc.SaveAs Pfad & Dateiname & ".docx"
Application.DisplayAlerts = wdAlertsAll
Cancel = True
End If
End If
End Sub
Private Sub Document_Open()
Set app = Application
End Sub
End Sub
Ich hoffe sehr das ich Sie mit dem für Sie sicher kleinen Problemchen nicht zum lachen bringe.
Liebe Grüße Wolfgang Köllgen
|