当前位置：首页 - 正文

怎样解决word里引号中的文字断行?

发布网友发布时间：2022-04-23 20:37

共3个回答

热心网友时间：2023-08-28 22:00

使用通配符，查找([!？！；：。”…-])^13
全部替换为"\1"搞定。
或者建个宏按钮，以后再需要的时候，点一下按钮运行这段代码就可以了。
设定允许以句号、冒号、右引号、问号、叹号、省略号等指定的字符作为段尾（就是代码中方括号里那些全角字符，半角叹号表示排除方括号内随后的所有字符），以其它字符结尾的回车符全部删除。
可能还有换页、换行、制表等符号造成的假回车，1、先全部换成回车符；2、再把连续回车换成单一回车；3、最后把错误回车删除。
Sub 清理错误换行()
With Selection.Find
.Text = "[^m^l^t^n]"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^13{2,9}"
.Replacement.Text = "^p"
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "([!？！；：。”…-])^13"
.Replacement.Text = "\1"
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
End sub

热心网友时间：2023-08-28 22:01

所述现象多存在于，复制网文粘贴至word时，简便的办法是，在查找替换中查找连续两个换行符，替换为一个换行符。或者删除所有换行符，人工分段。

热心网友时间：2023-08-28 22:01

剪切到记事本再复制回来选择只保留文本粘贴

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。
E-MAIL:11247931@qq.com

焦点

怎样解决word里引号中的文字断行?

最新推荐

猜你喜欢

热门推荐