Microsoft Office Tutorials and References
In Depth Information
9.3.2 Import von Absätzen aus Word
Abbildung 9.16
Word-Datei mit einigen Absätzen
Sub WordAbsatzImport()
Dim appWord As Word.Application
Dim i As Integer
Dim tx As String
ThisWorkbook.Worksheets("Tabelle1").Activate
' Anwendung Word starten
Set appWord = CreateObject("Word.Application")
' Word sichtbar machen
' appWord.Visible = True
' Word-Dokument öffnen
appWord.Documents.Open ThisWorkbook.Path & "\ein.docx"
Fori=1To6
' Text eines Absatzes inkl. Absatzende
tx = appWord.ActiveDocument.Paragraphs(i).Range.Text
' Absatzende löschen, Text in Zelle schreiben
Cells(i, 1).Value = Left(tx, Len(tx) – 1)
Next i
' Anwendung Word beenden
appWord.Quit
End Sub
Search JabSto ::




Custom Search