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

答案:4 悬赏:20 手机版

解决时间 2021-01-30 13:26

提问者网友：一抹荒凉废墟
2021-01-30 00:52

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

最佳答案

五星知识达人网友：动情书生
2021-01-30 02:22

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

全部回答

1楼网友：傲气稳了全场
2021-01-30 04:24

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

2楼网友：掌灯师
2021-01-30 03:14

3、若一定需要添加段落符号（硬回车）的话，可以试试下边的宏：subzm_insertlinebreak()''zm_insertlinebreakmacro'selection.wholestoryselection.moverightunit:=wdcharacter,count:=1tline=selection.information(wdfirstcharacterlinenumber)forlinenum=tlineto1step-1selection.gotowhat:=wdgotoline,which:=wdgotofirst,count:=linenum,name:=selection.endkeyunit:=wdlineselection.typeparagraphnextlinenumselection.find.clearformattingselection.find.replacement.clearformattingwithselection.find.text=^p^p.replacement.text=^p.forward=true.wrap=wdfindcontinue.format=false.matchcase=false.matchwholeword=false.matchbyte=true.matchwildcards=false.matchsoundslike=false.matchallwordforms=falseendwithselection.find.executereplace:=wdreplaceallendsub

3楼网友：孤独的牧羊人
2021-01-30 02:51

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

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息