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

bucephalus · 发表于 2009-3-10 14:05

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

wudixin96 · 发表于 2009-3-10 14:24

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

leafsea · 发表于 2009-3-11 10:51

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

wudixin96 · 发表于 2009-3-11 10:53

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

tangqingfu · 发表于 2009-3-11 14:33

试试：
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

守柔 · 发表于 2009-3-12 07:48

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

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

十二猪肠 · 发表于 2022-2-15 15:22

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

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

		自动登录	找回密码
密码			免费注册

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

评分