将分栏快速合并为一行

alex2008alex

从PDF转WORD后，会出现很多分栏的行，见附件（只是一部分），如何批量、快速将分栏合并为正常的一行，请赐教！

413191246se

略。。。。

413191246se

1. Sub a722_Delete_Columns_New()
   
2.     With ActiveDocument.Content.Find
   
3.         .Execute "[^14^12]", , , 1, , , , , , "", 2
   
4.         .Execute "([a-zA-Z0-9])^13", , , 1, , , , , , "\1 ", 2
   
5.         .Execute "  ", , , 1, , , , , , " ", 2
   
6.     End With
   
7. End Sub

复制代码

alex2008alex

413191246se 发表于 2022-7-22 16:48

非常感谢您的回复！能否改成任选区域，如果遍历全文档，有些其他格式就乱了。 还有，有些合并的挺好，有些合并的不是太好，还是有分栏，不知什么原因。

413191246se

楼主，就你所提供的附件来看，我的代码似无问题。如果你有更全附件，不妨重新提交一下。