VBA 查找删除WORD表格文档连续重复换行符得出不同结果问题

wx486

要处理相同模板下的多个WORD文档表格文件，其中一项是查找并删除表中简历项内的连续重复换行符。有的文档肉眼看不到连续重复换行符，但是如下VBA代码却发现有重复换行符，如附件中的表1；另一些文档就没有发现重复换行符，如附件中的表2。不知原因为何，怎么处理才能先删除文档中肉眼不可见的重复换行符？谢谢。

程序其中一项任务是：如果查找到多余换行符就删除，并将这个操作记录到数组中（找不到则跳到其他任务，数组记录为空），最后与其他操作一并保存到EXCEL汇总表，方便通过该汇总表查看对多个WORD文档做了哪些处理，以便后续编辑WORD文档时专门注意，确保WORD文档在编辑时尽量达标。

本人写的部分处理代码如下：

WithApplication.FileDialog(msoFileDialogFilePicker)

   .Filters.Clear

   .Filters.Add "所有WORD文件", "*.doc,*.docx", 1

   .AllowMultiSelect = True

   If .Show <> -1 Then Exit Sub

   For Each file In .SelectedItems

       With GetObject(file)

             Set tbl = .Tables(1)

Set rng = tbl.Range.Cells(40).Range

Rng.Select

With Selection.Find

                        .MatchWildcards = True

                        .Wrap = wdFindContinue

                        .Forward = True        

If Selection.Find.Execute("^13^13") Then

‘………..

               'MsgBoxActiveDocument.Bookmarks("\char").Range

               'MsgBoxAsc(Selection.Characters.Last)

               MsgBox .Parent.Range.text

               MsgBox Right(rng.text, 2)

               Selection.MoveEnd , -1

               MsgBoxAsc(Selection.Characters.Last)

               .ExecuteFindText:="^13^13", ReplaceWith:="^13",Replace:=wdReplaceAll

               .Parent.InsertAfter"WX486"

Jason_WangSS

通配符查找[^13]{2,99}替换^13
试试？

wx486

Jason_WangSS 发表于 2021-6-3 21:39
通配符查找[^13]{2,99}替换^13
试试？

不管用。打开表1，选中CELLS(40)，查找替换框输入信息是找不到的。用VBA就可以查到，替换后，再次执行程序还能查到。
------------------------------------------------------------------

后来再调试，执行一次程序后，再次执行时又查找不到了。

wx486

程序其中一项任务是：如果查找到多余换行符就删除，并将这个操作记录到数组中（找不到则跳到其他任务，数组记录为空），最后与其他操作一并保存到EXCEL汇总表，方便通过该汇总表查看对多个WORD文档做了哪些处理，以便后续编辑WORD文档时专门注意，确保WORD文档在编辑时尽量达标。


没想到会查找到肉眼不可见的多余空行，这种情况不影响打印效果，可不予处理。但执行程序后会记录“删除多余空行”操作，容易与删除真实多余空行操作混淆。
解决办法：对要处理的所有WORD文档，可先删除CELLS(40)中最后可见文字之后的字符再做其他处理。不知还有其他更好办法否？

另外，想知道个别WORD文档存在肉眼不可见的多余空行具体是什么字符。