主页 / coding / 问题 / 77296446
Accepted
User1836
Asked: 2023-10-15 19:32:58 +0800 CST

搜索括号内的文本并设置其格式

  • 772

我的 Word 文档中有包含括号的文本。我想在这些括号内格式化一个单词。

示例文本：

黑洞的存在可以通过黑洞与其他物质以及可见光等电磁辐射的相互作用来推断。任何物质（落入黑洞都可以）形成外部吸积盘，通过摩擦加热，形成类星体，这是宇宙中最亮的物体之一。

格式化文本：

黑洞的存在可以通过黑洞与其他物质以及可见光等电磁辐射的相互作用来推断。任何物质（落入黑洞都可以）形成外部吸积盘，通过摩擦加热，形成类星体，这是宇宙中最亮的物体之一。

在格式化文本中，“黑色”一词如果出现在括号内，则为粗体和斜体。

我找到了一种方法来识别括号内的所有单词。如何应用格式设置？

Sub Macro1()
    With ActiveDocument.Range.Find
        .Text = "(\(*\))"
        .Replacement.ClearFormatting
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub
vba

2 个回答

  1. Best Answer

    我将VBA放入Word中，并修改代码如下：

    Sub ReplacInParentheses (beforeWord as string, afterWord as string)
    Dim regex As Object
    Set regex = CreateObject("VBScript.RegExp")
    regex.Global = True
    regex.IgnoreCase = True
    regex.Pattern = "\(([^)]*)\)"
    
    Dim doc As Document
    Set doc = ActiveDocument
    
    For Each match In regex.Execute(doc.Range.Text)
        Dim newText As String
        newText = Replace(match.SubMatches(0), beforeWord, afterWord)
        doc.Range.Text = Replace(doc.Range.Text, match.Value, "(" & newText & ")")
    Next match
End Sub

Sub test()
 ReplacInParentheses "black", "white"
End Sub
    • 1

  2. 单词搜索和替换功能足够强大，无需正则表达式即可完成。

    Sub BlackInParentheses()
    Dim rng As Range, new_rng As Range
    Dim text As String
    Const KEYWORD = "black" ' Modify as needed
    Set rng = ActiveDocument.Content
    ' search KEYWORD
    With rng.Find
        .ClearFormatting
        .text = "\(* " & KEYWORD & " *\)"
        .MatchWildcards = True
        .Wrap = wdFindStop
        .Forward = True
    End With
    Do While rng.Find.Execute
        Set new_rng = rng.Duplicate
        With new_rng.Find
            .ClearFormatting
            ' Extra space is a word boundary, otherwise `blackboard` will be replaced
            .text = "( " & KEYWORD & " )"
            .MatchWildcards = True
            .Wrap = wdFindStop
            .Forward = True
            ' Change font
            With .Replacement
                .ClearFormatting
                .text = "\1"
                .Font.Bold = True
                .Font.Italic = True
            End With
            ' replace w/ format
            .Execute Replace:=wdReplaceAll
        End With
        rng.Collapse wdCollapseEnd
    Loop
End Sub
    • 1

相关问题