Word中的自动换行转为硬回车，怎么做？

Question

由于文档过大，用复制回车符再粘贴的方法不行啊？

Answer 1

1、如果只是用于网页显示的话，运行如下宏：

Sub ZM_Freezelayout()
ActiveDocument.FreezeLayout
End Sub

之后以“视图”中“web版式”显示即可。

2、可以另存/打印为pdf文件，再将pdf中的内容复制回word。

3、若一定需要添加段落符号（硬回车）的话，可以试试下边的宏：

Sub ZM_insertlinebreak()
'
' ZM_insertlinebreak Macro
'

Selection.WholeStory
Selection.MoveRight Unit:=wdCharacter, Count:=1
tline = Selection.Information(wdFirstCharacterLineNumber)

For linenum = tline To 1 Step -1
Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=linenum, Name:=""
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Next linenum
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Answer 2

如果你说的“自动换行”就是换行符的话：
编辑 → 替换
查找内容：^l
替 换 为：^p
然后单击“全部替换”即可。
上面分别是L和P的小写。

Answer 3

查找：^l
替换：^p
全部替换

Answer 4

直接按回车键；或者按“shift+回车”组合键。