Word2010/VBA Range-Objekt markieren

Computer: Software & Programmierung Visual Basic
#1

Hallo Reinhard, hallo Wissende,
für das folgende Makro schulde ich Reinhard Dank. Jetzt hat sich heute morgen plötzlich herausgestellt, dass bei gewissen Situationen „neu2“ erst hinter dem dritten fetten € gesetzt werden muss. Kannst Du, Reinhard, oder jemand anderes den Code so ändern, dass die Markierung bis zum 3 fetten € reicht. Die if-Bedingung pp kann ich dann selbst. Eilig wie immer, deshalb besonderer Dank und * für eine schnelle Lösung.
LG Wilhelm

Sub FetterEuro()
Dim rng1 As Word.Range, rng2 As Word.Range
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=„neu1“
Selection.Find.ClearFormatting
With Selection.Find.Font
.Bold = True
End With
With Selection.Find
.Text = „€“
.Replacement.Text = „“
.Forward = True
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
If Selection.Find.Execute = False Then Exit Sub
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:=„neu2“
Set rng1 = ActiveDocument.Bookmarks(„neu1“).Range
Set rng2 = ActiveDocument.Bookmarks(„neu2“).Range
rng1.SetRange Start:=rng1.Start, End:=rng2.End
rng1.Select
End Sub

#2

für das folgende Makro schulde ich Reinhard Dank. Jetzt hat
sich heute morgen plötzlich herausgestellt, dass bei gewissen
Situationen „neu2“ erst hinter dem dritten fetten € gesetzt
werden muss. Kannst Du, Reinhard, oder jemand anderes den Code
so ändern, dass die Markierung bis zum 3 fetten € reicht. Die
if-Bedingung pp kann ich dann selbst. Eilig wie immer, deshalb
besonderer Dank und * für eine schnelle Lösung.

Hallo Wilhelm,

ich bin in Word-Vba nicht so sattelfest wie in Excel-Vba.
Ja, der gezeigte Code stammt von mir *erinner*.
Jetzt sehe ich ihn wieder und kann ihn schon „lesen“ und verstehe
einiges aber nicht alles notwendig genau.

Sehr hilfreich wäre dazu ich würde den damaligen Thread lesen können.
Also bitte für jetzt und die Zukunft, bei neuen Anfragen die sich quasi auf alte Threads beziehen, den Link zu dem alten Thread angeben, danke.

Ich habe schon ohne viel Motivation *zugeb* danach gesucht aber nix gefunden.
Die Demotivation kommt bei mir u.a. wegen deiner Anfrage hier 2 Threads drunter und da an deiner nichtvorhandenen Beantwortung meiner Nachfragen.

Gruß
Reinhard

#3

Hallo,
der Code entstand im Brett Textverarbeitung:

Word 2010 - Mit F8-Taste markieren bis €(fett u. doppelt untet

( Autor:W. Dömland(Mitglied seit: 04.04.2001) / Datum: 27.8.2013 15:21 Uhr / Geklickt: 25 mal )
LG Wilhelm

#4

der Code entstand im Brett Textverarbeitung:
Word 2010 - Mit F8-Taste markieren bis €(fett u. doppelt untet

Hallo Wilhelm,

*hmmh*, hatte ich wohl Tomaten auf den Augen, sorry.

In dieser Test-docm funktioniert es. Auch mit Suche nach
.Underline = wdUnderlineDouble
http://www.file-upload.net/download-8078423/FindeFet…
Nachstehend ist der Code.
Starten kannst du den Code mit Klicke auf das Sparschweinchen oben links.

In der alten Beitragsfolge habe ich Fragen noch nicht beantwortet, das hole ich dort nach.

Gruß
Reinhard

Option Explicit

Sub FetterEuro()
Dim rng1 As Word.Range, rng2 As Word.Range, N As Integer
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="neu1"
Selection.Find.ClearFormatting
With Selection.Find.Font
 .Bold = True
 .Underline = wdUnderlineDouble
End With
With Selection.Find
 .Text = "€"
 .Replacement.Text = ""
 .Forward = True
 .Format = True
 .MatchCase = False
 .MatchWholeWord = False
 .MatchWildcards = False
 .MatchSoundsLike = False
 .MatchAllWordForms = False
End With
For N = 1 To 3
 If Selection.Find.Execute = False Then Exit Sub
Next N
ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="neu2"
Set rng1 = ActiveDocument.Bookmarks("neu1").Range
Set rng2 = ActiveDocument.Bookmarks("neu2").Range
rng1.SetRange Start:=rng1.Start, End:=rng2.End
rng1.Select
End Sub