Word如何查找书名号不全的地方

hao_jk

校核Word文档时，怎么能查找到所有书名号只有一半，另一半缺少（不成对）的地方并高亮显示？求高手指导

413191246se

可以用 VBA 宏试试。

hao_jk

413191246se 发表于 2021-12-21 12:40
可以用 VBA 宏试试。

你有相关的代码吗？

413191246se

略。。。。

hao_jk

413191246se 发表于 2021-12-21 23:28
* 楼主，我没有现成的代码，临时研制的，水平较低，敬请见谅！请试用前备份好你的文档，以免造成不必要的损 ...

试了试，效果很好，万分感谢。刚刚接触VBA，什么都不懂。

hao_jk

413191246se 发表于 2021-12-21 23:28
* 楼主，我没有现成的代码，临时研制的，水平较低，敬请见谅！请试用前备份好你的文档，以免造成不必要的损 ...

改动了几处,请指正
Sub aaaa_CheckBookSymbol()
'查找书名号
'绿色正常！红色/粉色不正常！
'全选-->突出显示：无颜色-->清除突出显示
    ActiveDocument.Content.Font.ColorIndex = wdAuto
    With Selection
        .HomeKey 6
        With .Find
            .ClearFormatting
            .Text = "《"
            .Replacement.Text = ""
            .Forward = True
            .MatchWildcards = True
            Do While .Execute
                With .Parent
                    Do
                        .MoveEnd
                        If .Text Like "*" & vbCr Then goto100
                    Loop Until .Text Like "*[《》]"
                    If .Text Like "*《" Then
      100                  .MoveEnd 1, -1
                        .Range.HighlightColorIndex = wdRed
                    ElseIf .Text Like "*》" Then
                        .Range.HighlightColorIndex = wdBrightGreen
                    End If
                    .Start = .End
                End With
            Loop
        End With
    End With
   
'''反向查找
    With Selection
        .EndKey 6
        With .Find
            .ClearFormatting
            .Text = "》"
            .Replacement.Text = ""
            .Forward = False
            .MatchWildcards = True
            Do While .Execute
                With .Parent
                    If .Range.HighlightColorIndex = 0 Then
                        Do
                            .MoveStart 1, -1
                            If Text Like vbcr&"*" Then goto200

                        Loop Until .Text Like "[《》]*"
                        If .Text Like "》*" Then
            200                .MoveStart
                            .Range.HighlightColorIndex = wdPink
                        End If
                    End If
                    .End = .Start
                End With
            Loop
        End With
        .HomeKey 6
    End With
    MsgBox "Complete!", 0 + 48
End Sub

413191246se

*** 楼主，你还会用 行号，挺不错的！我都不会。我现在只会 行标。——我这两天思考反向查找漏了回车符这一点，这次补上了。——但我的代码、你修改的代码测试后均不正确！——我重新修改了一下，似乎对了，你多测试一下吧！（如果你是 Win10-64位系统，要把我的代码复制到空白文档后，再剪切到 VBE 中才能见到汉字！）
   
*** 下面是例文：
党十九届五中全会通过6767的中3434353434制定国于民经济《远景目《建议》共央《标划。
　　我们党领导人民治国理政，很重要的一个方面就是要回答好实现》什样的》发展、怎样》实现这个重大问题。
简称《建议》），强调》发展《理念贯穿程和各领域”。
　　学懂弄通习近平总书记在省部级主要领导干部学习贯很重要《的就《是要《段贯彻新发展理念的极端重要性。
习近平《建议》总书记建议》在关于的说明中指出：“必须强调》的是，》新《时代新《阶段的《发展必须贯彻新发展理念”。
   
*** 修订代码：

1. Sub aaaa_CheckBookSymbol_Update()
   
2. '查找书名号
   
3. '绿色正常！红色/粉色不正常！
   
4. '全选-->突出显示：无颜色-->清除突出显示
   
5.     ActiveDocument.Content.Font.ColorIndex = wdAuto
   
6.     With Selection
   
7.         .HomeKey 6
   
8.         With .Find
   
9.             .ClearFormatting
   
10.             .Text = "《"
    
11.             .Replacement.Text = ""
    
12.             .Forward = True
    
13.             .MatchWildcards = True
    
14.             Do While .Execute
    
15.                 With .Parent
    
16.                     Do
    
17.                         .MoveEnd
    
18.                         If .Text Like "*" & vbCr Then GoTo sk
    
19.                     Loop Until .Text Like "*[《》]"
    
20.                     If .Text Like "*《" Then
    
21. sk:
    
22.                         .MoveEnd 1, -1
    
23.                         .Range.HighlightColorIndex = wdRed
    
24.                     ElseIf .Text Like "*》" Then
    
25.                         .Range.HighlightColorIndex = wdBrightGreen
    
26.                     End If
    
27.                     .Start = .End
    
28.                 End With
    
29.             Loop
    
30.         End With
    
31.     End With
    
32. 
    
33. '''反向查找
    
34.     With Selection
    
35.         .EndKey 6
    
36.         With .Find
    
37.             .ClearFormatting
    
38.             .Text = "》"
    
39.             .Replacement.Text = ""
    
40.             .Forward = False
    
41.             .MatchWildcards = True
    
42.             Do While .Execute
    
43.                 With .Parent
    
44.                     If .Range.HighlightColorIndex = 0 Then
    
45.                         Do
    
46.                             .MoveStart 1, -1
    
47.                             If .Text Like vbCr & "*" Then GoTo sp
    
48.                             If .Characters(1).HighlightColorIndex > 0 Then Exit Do
    
49.                         Loop Until .Text Like "[《》]*"
    
50.                         If .Text Like "》*" Then
    
51. sp:
    
52.                             .MoveStart
    
53.                             .Range.HighlightColorIndex = wdPink
    
54.                         End If
    
55.                     End If
    
56.                     .End = .Start
    
57.                 End With
    
58.             Loop
    
59.         End With
    
60.         .HomeKey 6
    
61.     End With
    
62.     MsgBox "Complete!", 0 + 48
    
63. End Sub

复制代码

413191246se

* 楼主，不好意思！开始我误以为你修改的代码有问题；重新测试后，你修改的代码和我重新修改的结果是一样的！(text 前面加个点就行了，goto100, goto200 要有空格）——这回，请重新测试一下吧！

上帖我说了，正向查找我注意到回车符了，反向查找时就忘了这点，我重新一步一步地测试后修改了一下（不是抄你的），当然我用行标和你用行号效果是一样的。（你有兴趣用 Word VBA 来自动排版吗？如果有，咱们可以经常交流一下。我虽然学了 Word VBA 10 年半了，但水平很低，经常录制宏。）

hao_jk

413191246se 发表于 2021-12-23 21:32
* 楼主，不好意思！开始我误以为你修改的代码有问题；重新测试后，你修改的代码和我重新修改的结果是一样的 ...

正在琢磨VBA自动排版的事情，刚刚接触VBA几天，很多东西都不知道。非常希望您能够多指导。希望留个联系方式，我的QQ:47561321

413191246se

楼主，我把我的最新成果发给你，有空请帮忙看看，提提意见，我看好你，未来可能会成为大神！（发到你QQ邮箱，我也是QQ邮箱，163、126上不去了）。
----补：楼主，我忘了说了，如果你的 Word 是 2007 版本以上，请执行 Custom2019，会出现“加载项”选项卡，你将它右键加到“快速访问工具栏”上，方便使用；如果是 2003 版本，请执行 Custom2013，工具栏会多出一些自定义按钮。如果想自定义热键，可执行 Hotkey，F5:保存、F6:关闭、F7：普通排版、F8：公文排版。