Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Word: Alle Matches eines Suchbegriffs in Dokument finden und Format ändern |
03.04.2021 13:24:57 |
Fabian |
|
|
|
03.04.2021 19:51:08 |
Gast703 |
|
|
|
04.04.2021 10:32:32 |
Fabian |
|
|
|
04.04.2021 11:18:10 |
Gast71723 |
|
|
Von:
Fabian |
Datum:
03.04.2021 13:24:57 |
Views:
1138 |
Rating:
|
Antwort:
|
Thema:
VBA Word: Alle Matches eines Suchbegriffs in Dokument finden und Format ändern |
Hallo Zusammen,
ich versuche mich schon seit längerem an der Umsetzung des folgenden Sachverhalts und habe diverse Sachen erfolglos ausprobiert:
Ich benötige ein Makro, dass es mir ermöglicht einen Suchbegriff mit Wildcards (genauer gesagt Suche ich zweistellig dargestellte Kalendermonate + 4-stellige Jahresazahlen ab 1960 getrennt duch einen Schrägstrich --> MM/YYYY ) zu finden. Bei jedem Treffer soll die gesamte Zeile markiert werden bzw. das Format der gesamten Zeile in der der Suchbegriff vorkommt in "Überschrift 1" geändert werden.
Mein aktueller (nicht richtig funktionierender) Code sieht wie folgt aus:
Sub Demo()
Application.ScreenUpdating = False
With Selection
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "/20*"
.Replacement.Text = "^&"
.Replacement.Font.Bold = True
.Forward = True
.Wrap = wdFindStop
.Format = True
.MatchCase = True
.MatchWholeWord = True
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End With
Application.ScreenUpdating = True
If Selection.Information(wdWithInTable) Then
Selection.Expand unit:=wdRow
Else
Selection.Expand unit:=wdLine
End If
Selection.Style = ActiveDocument.Styles("Überschrift 1")
End Sub
Hat jemand eine Idee wie ich meinen Code anpassen muss, um mein Ziel zu erreichen?
Besten Dank schon mal
Fabian
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
VBA Word: Alle Matches eines Suchbegriffs in Dokument finden und Format ändern |
03.04.2021 13:24:57 |
Fabian |
|
|
|
03.04.2021 19:51:08 |
Gast703 |
|
|
|
04.04.2021 10:32:32 |
Fabian |
|
|
|
04.04.2021 11:18:10 |
Gast71723 |
|
|