Word Datei per Makro in Excel kopieren

[Gast 123]

Hallo Kollegen

@ snb

Habe mich bisher nicht mit diesem Thema beschäftigt.
ich habe gerade diesen Code gefunden um Word Dateien als Mail zu senden.
Wie muss ich ihn ändern, wenn ich den Text in eine Excel Tabelle kopieren will.
Mit .Content geht es, aber als endloser Textstring, ohne Absatz, Endlos Text!
Ist es möglich Schriftart, Schriftgröße und Text Umbruch in Excel zu kopieren.
So wie von Hand mit Ctrl-C und Ctrl-V.   Was müsste ich ändern??

Sub M_snb()
  With GetObject("X:\__Heute neu\Klares Nein.docx")
    c00 = .Content
    .Close 0
  End With

  With ActiveWorkbook.Sheets(1)   'von Mail Versand auf Excel geändert!
    .Range("B2") = c00
  End With
End Sub

mfg Gast 123

[knobbi38]

Hallo Gast123,

da die Möglichkeiten einer Textverarbeitung deutlich die Möglichkeiten von Excel zur Textgestaltung übersteigen, macht es wenig Sinn, ein ganzes Dokument in eine einzelne Excel-Zelle zu packen. Einzelnen Text hingegen kann man sicherlich nach Excel übernehmen, Formatierungen aber nur bedingt.

Knobbi38

[Gast 123]

Hallo

@ Knobbi38

gibt es trotzdem eine Möglichkeit den Text nach Excel zu kopieren, das jeder Textstring nur eine Zeile belegt.
Es geht mir um einen schnellen Suchlauf bei vielen Word Dokumenten (bis 100) nach Texten, die ich schon mal geschrieben habe.
Das geht m.E. in Excel schneller als alle Word Dateien zu öffnen und zu durchsuchen. Da habe ich 1 Million Zeilen zum durchsuchen.

mfg Gast 123

[knobbi38]

Hallo Gast123,

wenn du Textpassagen in Word-Dateien suchen möchtest, müssen natürlich ALLE Word-Dateien geöffnet werden, damit man überhaupt Zugriff auf den Inhalt bekommt. Zugriffe auf geschlossene Dateien ist ein Mär, wovon man immer mal wieder in Foren liest. "Geschlossen" wird dabei mit "versteckt" verwechselt! Außerdem werden dabei die Formatinformationen sowieso nicht gebraucht.

Man braucht dafür auch keinen Umweg über Excel machen, entweder gibt es dafür Tools oder man verwendet dafür Boardmittel, wie z.B. den Windows Explorer oder die Powershell.

Powershell (KI generiert):

Code:

# Suchen nach "Suchbegriff" in allen .docx Dateien im aktuellen Ordner
$files = Get-ChildItem -Path ".\*.docx"
$wordApp = New-Object -ComObject Word.Application
$wordApp.Visible = $false

foreach ($file in $files) {
    $doc = $wordApp.Documents.Open($file.FullName)
    $text = $doc.Content.Text
    $doc.Close()

    # Jetzt Select-String auf den extrahierten Text anwenden
    $text | Select-String -Pattern "Suchbegriff" | ForEach-Object {
        Write-Host "Gefunden in $($file.Name): $($_.Line)"
    }
}
$wordApp.Quit()

Explorer:
https://www.youtube.com/watch?v=Ol-7HW6ZOR8

Tool grepWin:
https://tools.stefankueng.com/grepWin.html

Knobbi38

[schauan]

.. oder auch so was:

copilotsearch?q=powershell+word+dokumente+durchsuchen+ohne+word