怎样把换行去除？

铁观音的云

13.    指引提示标志，是对乘客起到提示、指引作用的标志。一般由（）和相关图形组成。

A.蓝底白字B.白底蓝字C.红底黄字D.黄底红字

14.    “乘务人员工作守则”、“乘客文明守则（乘客须知）”

和“车票使用办法”等宣传标志属于（）标志。

A.禁令 B.警告 C.指示 D.规定

15.    公共电车、汽车客运企业因为其生产经营的特殊性，

具有生产过程的特殊性、时间性、社会性、（）、流动性

和分散性的特点。

A.不确定性B.不均衡性C.不可预知性D.不固定性

以上是pdf转换成word以后的格式，可以看到，标号14的内容被分成了两行，15被分成了3行，全文一共300余页，请问有什么快速的办法修改成一下标准模式，谢谢

13.    指引提示标志，是对乘客起到提示、指引作用的标志。一般由（）和相关图形组成。

A.蓝底白字B.白底蓝字C.红底黄字D.黄底红字

14.    “乘务人员工作守则”、“乘客文明守则（乘客须知）”和“车票使用办法”等宣传标志属于（）标志。

A.禁令 B.警告 C.指示 D.规定

15.    公共电车、汽车客运企业因为其生产经营的特殊性，具有生产过程的特殊性、时间性、社会性、（）、流动性和分散性的特点。

A.不确定性B.不均衡性C.不可预知性D.不固定性

413191246se

1. Sub 断行相连()
   
2.     ActiveDocument.Content.Find.Execute findtext:="([!。：！？…）])^13", MatchWildcards:=True, replacewith:="\1", Replace:=wdReplaceAll
   
3. End Sub
   

复制代码

相见是缘8

建议你上传测试的整个附件！

cuanju

供参考。
============================
Sub d3()
    ActiveDocument.Content.Find.Execute FindText:="(^13[0-9])", MatchWildcards:=True, ReplaceWith:="^p\1", Replace:=wdReplaceAll
    ActiveDocument.Content.Find.Execute FindText:="([!。：；！？…）])^13", MatchWildcards:=True, ReplaceWith:="\1", Replace:=wdReplaceAll '断行相连
End Sub