Word Vba: Wort finden und auswählen
18.06.2020 16:43:56
Debugger
folgendes Problem:
Ich möchte einen bestimmten String finden (in einem Word Dokument) und die ganze Zeile in dieser ist markieren, damit ich ihn in einer Variable speichern kann.
Beispiel:
Der String lautet "Version xxxx"
Dabei sind die letzten xxxx immer variabel.
Ich möchte nun in einem Excel VBA ein Word Dokument öffnen, den String suchen, dann diesen auswählen und abspeichern.
Code:
Sub Test ()
Dim Dokument As String, Versionsnummer As String
Dim oAppWD As Object, oDoc As Object
Set oAppWD = CreateObject("Word.Application")
If Not oAppWD Is Nothing Then
End If
oAppWD.Visible = True
If oAppWD.Options.AllowReadingMode = True Then 'Word nicht im Lesemodus starten bei _
Schreibgeschützten Dokumenten
oAppWD.Options.AllowReadingMode = False
End If
Dokument = Pfad
Set oDoc = oAppWD.Documents.Open(Dokument)
With oDoc
With .Range
With .Find
.Forward = True
.ClearFormatting
.Text = "Version"
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute
End With
If .Find.Found = True Then
oDoc.Range.Row.Select
'Selection.SelectRow
Versionsnummer = oDoc.Range.Selection
End If
End With
End With
End Sub
Würde mich riesig über Antworten freuen.
VG