Wordinhalt in Exceltabelle
24.08.2018 12:31:07
Hendrik
ich möchte gerne den Inhalt einer Word-Datei in Excel einfügen.
Wie man die Datei öffnet aus Excel und schließt habe ich schon raus bekommen.
Aber wie kopiere ich den INhalt ?
Vielen Dank.
Mein Code:
Sub test()
Dim AppWD As Object
Dim fn
Const StartDrive = "C:"
Const StartDir = "\"
ChDrive StartDrive
ChDir StartDir
fn = Application.GetOpenFilename("Word-Dokumente, *.docx", , "Bitte Datei auswählen")
If fn = False Then Exit
Sub 'Abbrechen gedrückt
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open fn
'hier deine Änderungen im Dokument
AppWD.documents.Close SaveChanges:=False
AppWD.Quit
Set AppWD = Nothing
End Sub