ich möchte aus eine .xlsm Datei Word .docm Datei öffnen.
Wenn ich die Word Datei direkt starte öffnet diese einwandfrei.
Sobald ich ein Makro verwenden kommt eine Fehlermeldung:
Sub test()
Dim AppWD As Object
Dim fn
Const StartDrive = "C:"
Const StartDir = "\"
ChDrive StartDrive
ChDir StartDir
fn = Application.GetOpenFilename("Word-Dokumente, *.docm", , "Bitte Datei auswählen")
If fn = False Then Exit
Sub 'Abbrechen gedrückt
On Error Resume Next
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open fn
'hier deine Änderungen im Dokument
'AppWD.documents("D:\test.doc").Close SaveChanges:=True
'AppWD.Quit
Set AppWD = Nothing
End Sub
Microsoft Word funktioniert nicht mehr
Das Programm wird aufgrund eines Problems nicht richtig ausgeführt. Das
Programm wird geschlossen und Sie werden benachrichtigt, wenn eine Lösung
verfügbar ist. Programm schliessen
Was kann ich machen, dass dies funktioniert.
Ich weiss nicht wo der Fehler liegt.
Danke für Eure Hilfe
Gruss Peter