Fetmarkera text i Word (VBA)

4 svar · 734 visningar · startad av Pedda 28 maj 2009

PeddaMedlem sedan juni 20006 031 inlägg

Frågan28 maj 2009 20:43#1

Håller på med ett macro och har fått till det mesta, men har problem med att fetmarkera en del texter.

Jag har en array med strängar som ska fetmarkeras.
Loopen går som den ska, men ingen text fetmarkeras.

For Each boldText In boldArray
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = boldText
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Font.Bold = wdToggle
Next

Någon som kan se vad jag gör för fel?

PeddaMedlem sedan juni 20006 031 inlägg

29 maj 2009 16:51#2

Problemet löst efter lite ombyggnad.

colioneMedlem sedan juni 20014 421 inlägg

30 maj 2009 16:59#3

Du kan ju posta lösningen också. ;)

PeddaMedlem sedan juni 20006 031 inlägg

30 maj 2009 18:13#4

Japp, men jag har den på jobbet. :)
Kommer på måndag om jag kommer ihåg det.

PeddaMedlem sedan juni 20006 031 inlägg

30 maj 2009 19:54#5

Tror att det var så här jag löste det:

For Each boldText In boldArray
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = boldText
        .Replacement.Text = boldText
        .Replacement.Font.Bold = True
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Next