word每页就一二行有字,如何快速合并到一页

发布网友 发布时间：2022-05-31 06:47

我来回答

共3个回答

热心网友 时间：2023-10-10 02:05

工具---宏---编辑
将下面代码，复制进去，然后运行宏
-------------
Sub
Macro3()
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With
Selection.Find
.Text
=
"^l"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With
Selection.Find
.Text
=
"^m"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
With
Selection.Find
.Text
=
"^p^p"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.Execute
Replace:=wdReplaceAll
With
Selection.Find
.Text
=
"^p^p"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.Execute
Replace:=wdReplaceAll
With
Selection.Find
.Text
=
"^p^p"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.Execute
Replace:=wdReplaceAll
With
Selection.Find
.Text
=
"^p^p"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
Selection.Find.Execute
Replace:=wdReplaceAll
With
Selection.Find
.Text
=
"^p^p"
.Replacement.Text
=
"^p"
.Forward
=
True
.Wrap
=
wdFindContinue
.Format
=
False
.MatchCase
=
False
.MatchWholeWord
=
False
.MatchByte
=
True
.CorrectHangulEndings
=
False
.MatchAllWordForms
=
False
.MatchSoundsLike
=
False
.MatchWildcards
=
False
.MatchFuzzy
=
False
End
With
Selection.Find.Execute
Replace:=wdReplaceAll
End
Sub

热心网友 时间：2023-10-10 02:06

在word中的每页中的最后一个记录后边不应添加word域"下一记录"即（«next
record»）。

热心网友 时间：2023-10-10 02:06

工具---宏---编辑
将下面代码，复制进去，然后运行宏

-------------
Sub Macro3()

Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^l"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^m"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "^p^p"
.Replacement.Text = "^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub