如何將多行合并或合并到Word文檔的單個(gè)段落中？

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

最佳辦公生產(chǎn)力工具

Kutools for Word - 通過 Over 提升您的文字體驗(yàn) 100 顯著特點(diǎn)！

深入了解下面突出顯示的功能或 單擊此處探索 Kutools for Word 的全部功能.

?? 文檔掌握: 分頁  /  合并文件  /  以各種格式導(dǎo)出選擇（PDF/TXT/DOC/XLSX）  /  批量轉(zhuǎn)換為PDF  /  將頁面導(dǎo)出為圖像  /  一次打印多個(gè)文件 ...

? 內(nèi)容編輯: 批量查找和替換 跨多個(gè)文件   /  調(diào)整所有圖片的大小   /  轉(zhuǎn)置表行和列  /  將表格轉(zhuǎn)換為文字 ...

?? 輕松清潔: 掃開 多余的空間  /  分節(jié)符  /   所有標(biāo)題  /  文本框  /  超鏈接  /  如需更多刪除工具，請(qǐng)前往我們的刪除組

? 創(chuàng)意插入: 插頁 千位分隔符  /  復(fù)選框  /  單選按鈕  /  二維碼  /  條碼  /  對(duì)角線表  /  公式標(biāo)題  /  圖片說明  /  表標(biāo)題  /  多張圖片  /  在我們的插入組中發(fā)現(xiàn)更多信息

?? 精準(zhǔn)選擇: 精確定位特定頁面  /  表  /  形狀  /  標(biāo)題段落  /  使用我們的選擇組輕松導(dǎo)航

? 星級(jí)增強(qiáng): 快速導(dǎo)航至任何位置  /  自動(dòng)插入重復(fù)文本  /  在文檔窗口之間無縫切換  /  11 轉(zhuǎn)換工具 ...

使用 Kutools 轉(zhuǎn)換您的 Word 任務(wù)。 ?? 立即下載并試用 30 天 ??。