Question

With the Find function(Ctrl+F) I can search and select all words in Italicized font from a document.
How would this be done with vba?

I tried the macro recorder but the code I get there does not work.

Sub Makro1()
'
' Makro1 Makro
' Makro aufgezeichnet am 16.06.2011 von u0327336
'
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
End Sub

The goal would be to have all italic font words being selected/highlighted in the document.

thanks,
kay

Answer 1

You may need to add :

Selection.Find.Font.Italic = True

That could became :

With Selection.Find
   .Text = ""
   .FOnt.Italic = True
   'other search stuff
End with

EDIT: another try (not complete though)

Sub hilightItalic()
    With ActiveDocument.Content.Find
        ' to ensure that unwanted formats aren't included as criteria
        .ClearFormatting
        'You don't care what the text is
        .Text = ""
        'Find the italic text
        .Font.Italic = True
        'Delete the text found
        .Replacement.Text = ""
        'delete all italic text
        .Execute Replace:=wdReplaceAll
        '.HitHighlight "", vbYellow, vbRed
    End With
End Sub

But yet, the replace does work well but highlight does not work if there is no text. Anyone has an idea ?

EDIT 2: Found a working solution, even if i did not manage to have hithighlight working though

Sub hilightItalic()
    Dim oRng As Word.Range
    Set oRng = ActiveDocument.Content
    With oRng.Find
        ' to ensure that unwanted formats aren't included as criteria
        .ClearFormatting
        'You don't care what the text is
        .Text = ""
        'Find the italic text
        .Font.Italic = True
        'Loop for each match and set a color
        While .Execute
            oRng.HighlightColorIndex = wdDarkYellow
            oRng.Collapse wdCollapseEnd
        Wend
    End With
End Sub

Regards,

Max