使用vba在word文档中查找斜体字体

随着Find功能（Ctrl+F）我可以从文档中搜索并选择所有斜体字。 这个用vba怎么实现呢？

我尝试了宏记录器，但我得到的代码不起作用。

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

目标是在文档中选择/突出显示所有斜体字体单词。

谢谢， 凯

最后的努力实际上在 Word 2010 中有效。我不确定为什么报告说它不起作用。

这里改为 ASCIIfy 斜体，这就是我想要的基于文本的新闻组：

 Sub ASCIIfy()
    Dim myString As Word.Range
    Set myString = ActiveDocument.Content
    With myString.Find
        '// ensure unwanted formats aren't included as criteria
        .ClearFormatting
        '// we don't care what the text is
        .Text = ""
        '// find the italic text
        .Font.Italic = True
        '// loop for each match and surround with "_"
        While .Execute
            myString.Text = "_" & myString & "_"
            myString.Font.Italic = False
            myString.Collapse wdCollapseEnd
        Wend
    End With
End Sub