如何避免从pdf粘贴过来的断句现象？

bucephalus

如图！在word里面。从其他地方粘贴东西的时候，总是会出现断句情况，（一行没有结束，文字就跳到第二行了，人工在排版回来很麻烦，有没有什么方法可以自动排版，消除断句现象）

wudixin96

自动排版是没有，不过可以试试 word强大的替换功能

leafsea

呵呵，强大就说不上吧，word连正则表达式都不支持。。。。

wudixin96

呵呵,word不支持正则表达式????????

tangqingfu

试试：
Sub 批量删除空行及合并断行()
'注意不要选中标题行(或如选中替换后应对标题行进行重新排版)
Dim myRange As Range, myend As Long
'如果没有选定区域则作全文档处理
Set myRange = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
myend = myRange.End  '取得待区域的结束位置
With myRange.Find
    .ClearFormatting '清除查找框格式
    .Replacement.ClearFormatting '清除替换框格式
    .MatchWildcards = True
    .Text = "([!。：……？！”.:…\．\?\!\)）])[^13^l]{1,}"
    .Execute replacewith:="\1", Replace:=wdReplaceAll
End With
End Sub

守柔

原帖由 bucephalus 于 2009-3-10 14:05 发表
如图！在word里面。从其他地方粘贴东西的时候，总是会出现断句情况，（一行没有结束，文字就跳到第二行了，人工在排版回来很麻烦，有没有什么方法可以自动排版，消除断句现象）

可以看一下这个链接：http://club.excelhome.net/thread-406612-1-1.html

十二猪肠

tangqingfu 发表于 2009-3-11 14:33
试试：
Sub 批量删除空行及合并断行()
'注意不要选中标题行(或如选中替换后应对标题行进行重新排版)

感谢大神，这就是我一直在思考寻找的解决方案，堪称完美！
时隔13年，依然要表达谢意