可以查找到的段落符，却一次替换不了

13907933959 · 发表于 2016-8-15 16:27

文档内连续3个段落符的段落有2处，连续2个段落符的段落有77处，本想一次把每个段落的段落符替换为1个，可以查找到，却一次替换不了。请前辈们赐教什么原因？怎样能一次替换？谢谢！

YZC51 · 发表于 2016-8-15 19:53

1、另存为纯文本
2、再用word打开
3、全选——居中——靠左
4、就可以正常替换啦

13907933959 · 发表于 2016-8-15 21:28

YZC51 发表于 2016-8-15 19:53
1、另存为纯文本
2、再用word打开
3、全选——居中——靠左

前辈好！
感谢前辈出手相助！
1、先另存为纯文本
2、是不是再复制粘贴回到Word，打开
3、全选——居中？——靠左？
还请您详教！谢谢！

YZC51 · 发表于 2016-8-16 07:15

13907933959 发表于 2016-8-15 21:28
前辈好！
感谢前辈出手相助！
1、先另存为纯文本

2、是不是再复制粘贴回到Word，打开
应该是
2、关闭源文件，打开先前另存的纯文本文件
继续下一步

13907933959 · 发表于 2016-8-16 19:31

YZC51 发表于 2016-8-16 07:15
2、是不是再复制粘贴回到Word，打开
应该是
2、关闭源文件，打开先前另存的纯文本文件

前辈好！
居中——靠左，具体在哪里？？？
还请您详教！谢谢！

YZC51 · 发表于 2016-8-16 20:53

看图

13907933959 · 发表于 2016-8-16 21:37

YZC51 发表于 2016-8-16 20:53
看图

前辈好！
这次可以了，万分谢谢！

YZC51 · 发表于 2016-8-16 23:50

不客气！能用就好

413191246se · 发表于 2016-8-25 11:57

139：你说的问题，实际上就是删除空行的问题，用下面的宏即可解决：
Sub 删除空行()
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then i.Range.Delete
Next
End Sub

413191246se · 发表于 2016-8-25 11:58

如果不确定每个段落的段落符是规范的段落符，可以先执行如下宏：
Sub 删除手动换行符和假段落标记()
ActiveDocument.Content.Find.Execute findtext:="^l", replacewith:="^p", Replace:=wdReplaceAll
ActiveDocument.Content.Find.Execute findtext:="^13", replacewith:="^p", Replace:=wdReplaceAll
End Sub

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

[求助] 可以查找到的段落符，却一次替换不了

评分