Question

是VBA的初学者。我只需要将特定段落中的斜体文本存储到变量中。怎么做？

Answer 1

您可以使用以下示例查找具有所需格式的文本范围，然后通过将它们存储在每次使用变量的先前内容附加新文本时使用的变量中来处理它们。例如：

selection_range.Style = _
        ActiveDocument.Styles("Text_Format_To_Search")

，其中 Text_Format_To_Search将替换为您需要搜索的文字格式。

参考来自： - http://www.vb-helper.com/howto_format_code_in_word.html

Answer 2

感谢KazJaw。最后我得到了解决方案，我已粘贴在下面

sub test()

ActiveDocument.Paragraphs(2).Range.Select 
Selection.Find.Font.Italic = True

With Selection.Find
    .Text = ""
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
str_italic = Selection.Range.Text
End Sub

Answer 3

如果您希望找到斜体文本并仅将文本存储在变量中，那么您可以尝试：

Sub findItal()

    Dim italText As String

    'Find italic text
    With Selection.Find
        .ClearFormatting
        .Font.Italic = True
        .Wrap = wdFindStop
        .Execute

        If .Found = True Then
            italText = Selection.Range.Text
        End If
    End With

End Sub

如何使用VBA将斜体文本存储到变量中

3 个答案: