改变行末的括号里内容字体为黑体

菜菜行者

各位老师好，文档中有时会出现这种情况，如能使用批量，会节省很多时间，附件已经上传，劳烦老师们帮研究一下，谢谢

改变回车符或换行符前的括号里内容的字体为黑体，括号有两种〔〕（），如下图，


段落最后括号内容改颜色.zip (3.38 KB, 下载次数: 12)

2020-2-9 12:35 上传

点击文件名下载附件

daibao88

查找[。；][\（\〔]*[\）\〕][^13^l]替换字体格式为黑体，勾选使用通配符。会把括号前的。；改成黑色
匹配修改格式要求完美的话，需要用vba解决。

菜菜行者

daibao88 发表于 2020-2-9 18:48
查找[。；][\（\〔]*[\）\〕][^13^l]替换字体格式为黑体，勾选使用通配符。会把括号前的。；改成黑色
匹配 ...

谢谢了，但是这个方法不算完美，同一段中2个以上的括号的话，也被选上了

相见是缘8

Sub 替换段末括号里的字体格式()
    Selection.EndKey unit:=wdStory
    With ActiveDocument.Content.Find
        .ClearFormatting
         .Text = "([（〔]*[）〕])([^13^ll])"
         .Replacement.Text = "\1^p"
         .Forward = False
         .Wrap = wdFindContinue
         .Format = True
         .MatchWildcards = True
        .Replacement.Text = Empty
        .Replacement.Font.Name = "黑体"
        .Replacement.Font.Size = 16
        .Execute Replace:=wdReplaceAll
    End With
End Sub

凌空一羽

Sub lkyy()
    With ActiveDocument.Content.Find
        .Execute "([!一-龥^1-^127]{1})（", , , 1, , , , , , "\1AA", 2
        .Execute "([!一-龥^1-^127]{1})〔", , , 1, , , , , , "\1AB", 2
        .Execute "）([^13^11])", , , 1, , , , , , "CA\1", 2
        .Execute "〕([^13^11])", , , 1, , , , , , "CB\1", 2
    End With
    With ActiveDocument.Content.Find
        .Replacement.Font.Name = "黑体"
        .Execute "(A[AB])*(C[AB][^13^11])", , , 1, , , , , , , 2
    End With
    With ActiveDocument.Content.Find
        .Replacement.Font.Name = "宋体"
        .Execute "AA", , , 1, , , , , , "（", 2
        .Execute "AB", , , 1, , , , , , "〔", 2
        .Execute "CA", , , 1, , , , , , "）", 2
        .Execute "CB", , , 1, , , , , , "〕", 2
    End With
End Sub

菜菜行者

相见是缘8 发表于 2020-2-10 11:58
Sub 替换段末括号里的字体格式()
    Selection.EndKey unit:=wdStory
    With ActiveDocument.Content. ...

很好效果，能否抽空再改改呢？我只想替换选择区域内的内容，不想修改整个文档的

菜菜行者

菜菜行者 发表于 2020-2-10 14:35
很好效果，能否抽空再改改呢？我只想替换选择区域内的内容，不想修改整个文档的

也能达到替换效果，谢谢

菜菜行者

相见是缘8 发表于 2020-2-10 11:58
Sub 替换段末括号里的字体格式()
    Selection.EndKey unit:=wdStory
    With ActiveDocument.Content. ...

随着深入整理稿件，更多问题随之被发现，1楼的问题解决了，但还有个问题，在六角括号里还有小括号，这个又怎么解决呢。
〔×××××（×××）×××〕
〔××××××××（×××）〕
〔（×××）××××××××〕

weiyingde

菜菜行者 发表于 2020-2-15 10:12
随着深入整理稿件，更多问题随之被发现，1楼的问题解决了，但还有个问题，在六角括号里还有小括号，这个 ...

帮你做好了，你看看，可行的赏朵小花鼓励一下。
代码如下：
Sub 试试()
With ActiveDocument.Content
     .Find.Execute "[^l^11]", , , 1, , , , , , "^p", 2
    With .Find
         .ClearFormatting
         With .Replacement
              .ClearFormatting
              With .Font
                   .ColorIndex = 6
                   .Name = "华文琥珀"
                   .Bold = True
              End With
         End With
         .Execute "[\(（][!^13\(（]@[\)）]^13", , , 1, , , , , , "^&", 2
    End With
    With .Find
         .ClearFormatting
         With .Replacement
              .ClearFormatting
              With .Font
                   .ColorIndex = 6
                   .Name = "华文琥珀"
                   .Bold = True
              End With
         End With
         .Execute "〔[!^13〔]@〕^13", , , 1, , , , , , "^&", 2
    End With
End With
End Sub
附件如下：