关于利用Word的Word对象实现公文标题换行功能时遇到的问题

csra1235

关于利用Word的Word对象实现公文标题换行功能时遇到的问题

本人最近在设计一个从Excel中的数据在Word中生成公文的程序时，在处理生成的公文标题时遇到了问题。

因为根据《党政机关公文格式》的国家标准，公文标题在回行时，要做到词意完整。但我在Excel中的标题不会事先根据在Word中的排版预先做好换行处理，因此标题在输入Word中时首先是一整段文字，当标题较长出现自动换行时，就有可能出现将一个词语拆分到了不同行的情况。因此我写了下面这段代码，来实现自动在行末的完整词语前进行换行。由于没有在Word中找到与行相关的对象，因此我的思路是使用Selection对象的Endkey方法，模拟End键来获取每一行行末的位置。在单位电脑上的WPS中运行时已经能够满足要求。

但是，当我用家里电脑上的MicrosoftOffice2019运行时，却遇到了一个问题，那就是Word会将书名号（《》）、引号（“”）、括号（（））等符号对和其中的内容整体视为一个Word对象，而在WPS中则会将这些符号中的每一个词单独视作一个Word对象。这将会导致，一旦标题中出现上述这些符号时，就很容易在这些符号前进行换行。

因此在这里求助各位大佬2个问题：

一、是否可以改变Word识别词组对象的方式。

二、除了利用Endkey方法外，是否有其他方式来操作Word中的行。

下面是我写的代码：

1. Sub 公文标题提行(ByVal doc As Word.Document, ByVal titlpnum As Integer) '此过程有两个参数，第一个是文本所在的word.document对象，第二个是利用换行符提行前的标题所在的段数
   
2.     Dim wd As Word.Range, s$, tr As Word.Range, e0%
   
3.     With doc
   
4.         With .Paragraphs(titlpnum).Range '对标题所在range对象进行处理
   
5.             .Parent.Range(.Start, .Start).Select '将光标移动至标题所在range对象开头
   
6.             Do Until .Application.Selection.Start = .End - 1 '循环直到光标移动至标题所在range对象末尾，因为默认会有一个换行符，所以等号右边是End-1
   
7.                 Debug.Print .Text
   
8.                 .Application.Selection.EndKey wdLine '将光标移动至行尾
   
9.                 e0 = .Application.Selection.Start '获取光标在行尾时的位置
   
10.                 For Each wd In .Words '对range对象中每一个word对象进行循环
    
11.                     If .Application.Selection.Start > wd.Start And .Application.Selection.Start < wd.End Then '判断处于行尾的光标是否位于一个word对象中间
    
12.                         Debug.Print .Text
    
13.                         wd.InsertBefore Chr(10) '如果光标处于一个word对象中间，则在该word对象前插入换行符进行提行
    
14.                         Debug.Print .Text
    
15.                         Exit For
    
16.                     End If
    
17.                 Next wd
    
18.                 If e0 = .Application.Selection.Start And .Application.Selection.Start <> .End - 1 Then .Application.Selection.Start = e0 + 1 '利用换行后光标位置会+1判断在完成word对象循环后是否进行了提行操作，如果没有则将光标后移1个字符移动至下一行开始下一次判断
    
19.             Loop
    
20.         End With
    
21.     End With
    
22. End Sub
    

复制代码

zpy2

实现自动在行末的完整词语前进行换行

如何定义完整词语？

csra1235

zpy2 发表于 2021-2-28 07:33
实现自动在行末的完整词语前进行换行

如何定义完整词语？

就是我们语言中的一个单独的词，在word中就对应的就是word对象，对于英语等拼音文字，由空格分隔的每一个单词word就会将其视作一个word对象。但是对于中文，据我观察应该是有专门的词库，会将词库中的词视作一个word对象。word的校对功能应该也是通过词库实现的。
在word中使用Ctrl+左右方向键就可以实现光标每次移动一个word对象的长度。比如假设光标在“中华人民共和国简称中国”这段文字开头，按Ctrl＋→分别就会跳到“中华人民共和国 | 简称 | 中国 |”这几个竖线位置。在公文中，标题回行时要求不能在这几个词中间断开使得一个词一半在上一行一半在下一行。
虽然利用word自带的词库判断的word对象不能做到对所有词语进行精准判断是否语意完整，但是据我实践发现基本上能满足要求。但是当出现书名号等成对的符号时，不管符号内的文字多长，word都会将其视作一个word对象。比如“中《华人民共》和国简称中国”这段文字，在MicrosoftOffice2019 Word 中，word对象的识别就会变成“中 | 《华人民共》 | 和 | 国 | 简称 | 中国”，但是在WPS里面则能对书名号中间的内容再次分割。

sylun

可试试如下代码（判断文档第一个段落中各个词是否在中间换行）。至于导致无法识别书名号等标点符号内各词的问题，可试试变通的做法，比如处理时先将书名号等替换成特别的符号，使其内各词可以识别，处理最后再将书名号等替换回来。
当然，公文的标题排版还有很多讲究，不能在词中间换行只是其中一个基本要求而已。

1. Sub test()
   
2.     Dim aWord As Range
   
3.     For Each aWord In ActiveDocument.Content.Paragraphs(1).Range.Words
   
4.         With aWord
   
5.             If .Information(10) <> .Characters.Last.Information(10) Then .InsertBefore Chr(11)
   
6.         End With
   
7.     Next
   
8. End Sub

复制代码