AW: Beispiel für Deine hochgeladene doc
27.03.2019 10:45:42
JoWE
Hallo Mert,
"Fließtext" laut Duden= fortlaufender Text (also das was Deine Word-Datei enthält);
dafür hab' doch noch etwas gefunden!
Der komplette Inhalt der hochgeladenen Word-Datei wird durch das folgende Makro in die 3. Zeile der Tabelle1 der hochgeladenen Arbeitsmappe geschrieben.
Sub wdTextImport()
Dim AppWd As Object
Dim DocWd As Object
Dim WordDatei As String
Dim WordDateiPfad As String
Dim TextWD As String
Dim DateiName As String
Dim vArray As Variant
'DateiName = Name deiner Word-Datei
DateiName = "WD_Test.doc"
'der Pfad in dem die Word Dateien liegen, muss mit "\" enden
WordDateiPfad = "C:\temp\"
'Word-Object erzeugen und ?ffnen
Set AppWd = CreateObject("Word.Application")
WordDatei = WordDateiPfad & DateiName
AppWd.Visible = False
Set DocWd = AppWd.Documents.Open(WordDatei)
'Text der Word-Datei in Variable schreiben ("\doc" meint den Inhalt des _
komplettenDokumentes)
TextWD = DocWd.Bookmarks("\doc").Range.Text
'Text mittels Split-Befehl aufteilen und in Array schreiben
vArray = Split(TextWD, ":")
'Array auslesen und Daten in Tabelle !! hier explicit in Zeile 3!! schreiben
For i = 0 To UBound(vArray)
Cells(3, i + 1) = vArray(i)
Next i
'Word schlie?en und
DocWd.Close savechanges:=False
'Objekt beenden
AppWd.Quit
'Objektvariable zur?cksetzen
Set DocWd = Nothing
End Sub
Den Rest musst Du jetzt aber selbst erledigen :-)
Gruß
Jochen