如何將多行合併或合併到Word文檔的單個段落中？
如果您的Word文檔中有成千上萬的段落，則在打印此文檔時，將需要大量紙張。 為了節省紙張，可以將這些多行合併為一個段落。 但是，如何在Word文檔中快速，輕鬆地將所有這些行組合為一個段落？
使用查找和替換功能將多行合併或合併為一個段落
查找和替換 Word中的函數可以幫助您將多行合併為一個段落，請執行以下操作：
1。 選擇要合併為一個段落的段落。
2。 然後，單擊 首頁 > 發現 > 高級查找 去 查找和替換 對話框中 查找和替換 對話框中的 發現 標籤，請輸入 ^p 到 查找內容 文本框，然後選擇 當前選擇 選項從 尋找 下拉列表，請參見屏幕截圖：
3。 然後去看看 更換 標籤，然後離開 更換 文本框為空，然後單擊 “全部替換” 按鈕，請參見屏幕截圖：
4。 並且所有選定的段落已合併為一個段落，請參見屏幕截圖：
使用VBA代碼將多行合併或合併為一個段落
這是另一個有用的方法，也可以幫助您完成Word中的這項工作，請執行以下步驟：
1。 選擇要合併為一個段落的行。
2。 然後，按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。
3。 然後，單擊 插入 > 模塊，將以下代碼複製並粘貼到打開的空白模塊中。
VBA代碼：將多行合併為一個段落：
Sub CleanUpPastedText()
Dim xSelection As Selection
On Error Resume Next
Application.ScreenUpdating = False
Set xSelection = Application.Selection
If xSelection.Type <> wdSelectionIP Then
FindAndReplace xSelection
Else
If MsgBox("Do you want to merge all selected lines into one paragraph?", vbYesNo + vbInformation, "Kutools for Word") = vbNo Then Exit Sub
xSelection.WholeStory
Set xSelection = Application.Selection
xSelection.HomeKey wdStory
FindAndReplace xSelection
End If
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "The selected lines have been merged into one paragraph.", vbInformation, "Kutools for Word"
End Sub
Sub FindAndReplace(Sel As Selection)
With Sel.Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Text = "[^s^t]{1,}^13"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
.Text = "([!^13])([^13])([!^13])"
.Replacement.Text = "\1\3"
.Execute Replace:=wdReplaceAll
.Text = "[ ]{2,}"
.Replacement.Text = " "
.Execute Replace:=wdReplaceAll
.Text = "([a-z])-[ ]{1,}([a-z])"
.Replacement.Text = "\1\2"
.Execute Replace:=wdReplaceAll
.Text = "[^13]{1,}"
.Replacement.Text = "^p"
.Execute Replace:=wdReplaceAll
End With
End Sub
4。 然後按 F5 鍵以運行此代碼，並且所有選定的段落都已合併為一個段落，如以下屏幕截圖所示：
推薦的Word生產力工具
Kutools For Word - 超過 100 Word 的高級功能, 節省您的 50% 時間
- 複雜和重複的操作可以在幾秒鐘內完成一次處理。
- 跨文件夾一次將多個圖像插入Word文檔。
- 將文件夾中的多個Word文件合併並合併為所需順序。
- 根據標題，分節符或其他條件將當前文檔拆分為單獨的文檔。
- 在Doc和Docx之間，Docx和PDF之間轉換文件，用於常見轉換和選擇的工具集合等...
