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

Question

使用 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

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

谢谢，好

Answer 1

最后的努力实际上在 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