word如何批量刪除空行

1、word 如何批量刪除空行空行為回車直接敲出來的用ApAp會把所有的回車都刪掉使全文格式全無Ap也是格式全無求一種即能刪除空行格式又能保持的方法不是shift加回車的空行哦!用A|不管用最佳答案用Word打開含空行的文章，依次單擊工具於“一“VisualBas輯器”，打開VisualBasic編輯器。雙擊“Project下的“ThisDocument”，打開代碼”輸入窗口，將下面的代碼輸入進去，并保存。SubDelBlank()DimiAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachiInActiveDocument.P

2、aragraphsIfLen(i.Range)=1Theni.Range.Deleten=n+1EndIfNextMsgBox共刪除空白段落&n&個Application.ScreenUpdating=TrueEndSub代碼輸入完畢，單擊工具欄”中的運行”按鈕，執(zhí)行這段代碼。這時，會彈出一個消息窗口，告訴你一共刪除了多少空行（如圖）MicrOSoR:1共刪除空白段落25個在平時上網(wǎng)過程中，我們經(jīng)常將網(wǎng)頁上有參考價值的文字信息復制到Word中，進行保存打印。但有時從網(wǎng)頁復制下來的文字包含許多空行，使得頁數(shù)居高不下，閱讀和打印都很不方便。怎樣將Word中的空行刪除呢，筆者教你三種

3、方法。替換法在用替換法之前，首先要搞清楚文章中的換行符是手動換行符（“Shift+車”，）還是段落標記。其次，還要觀察文章中的空行是否有規(guī)律性，如一次空一行，還是一次空兩行。弄清了這兩點，我們就好操作了。筆者以文章的換行符為段落標記”和工次空兩行”為例講解。首先，選取文章中要刪除空行的文字內(nèi)容，使其反白顯示。然后，單擊編輯”一替換”，彈出查找和替換”對話框。依次單擊高級”-特殊字符”一段落標記”，輸入一個段落標記”符。用同樣的方法，再輸入兩個段落標記”符。（若文章中是人工換行符”，在這里則輸入人工換行符”；若文章空行&次空一行”，在這里只需輸入兩個段落標記符）。這時，在查找和替換”對話

4、框中就出現(xiàn)了三個連續(xù)的0單擊替換為輸入框，用同樣的方法輸入一個op最后，單擊全部替換”，選中文章中的所有空行就被刪除了。如果，文章中的空行沒有規(guī)律性（如有時空一行，有時空兩行），替換法就無能為力了，則用下面的方法來解決。篩選法篩選法”就是將Word中含有空行的文本復制到Excel中，然后利用Excel的篩選”功能篩選出空行，將其刪除。首先，將Word中含有空行的文本選中，并單擊編輯”中的復制”，復制到剪貼板中。然后，打開Excel,單擊A1單元格，將剪貼板中的文本粘貼到工作表中。選中“儂U,依次單擊數(shù)據(jù)”一篩選”一自動篩選單擊A1單元格的篩選按鈕，選取空白”，篩選出空白行，并全部刪除。最后，取

5、消自動篩選”，選取含文本的單元格并復制，切換到word中用選擇性粘貼”一元格式文本”，粘貼即可。程序法用Word打開含空行的文章，依次單擊工具醫(yī)fVisualBaSC輯器，打開VisualBasic編輯器。雙擊Project下的ThisDocument：打開代碼輸入窗口，將下面的代碼輸入進去，并保存。SubDelBlank（）DimiAsParagraph,nAsIntegerApplication.ScreenUpdating=FalseForEachiInActiveDocument.ParagraphsIfLen（i.Range）=1Theni.Range.DeleteEndIfNext

6、MsgBox共刪除空白段落&n&個Application.ScreenUpdating=TrueEndSub代碼輸入完畢，單擊工具欄”中的運行”按鈕，執(zhí)行這段代碼。這時，會彈出一個消息窗口，告訴你一共刪除了多少空行（如圖2）圖2軟件法Word空行的刪除還可以通過第三方軟件來實現(xiàn)。從http:/ :先把兩個相鄰的回車符（與）替換為一個文檔中沒有的特殊符號，比如四分之一分隔符。用以標記正常的分段。2:再把所有的單個回車符（Ap）替換為空格。3:把之前替換的文檔中沒有的特殊符號，比如四分之一分隔符，替換成單個的回車符（Ap）,還原自然分段。并去除了空行。4:把可能出現(xiàn)的標點后的多于空格替換，比如逗號空格（，）替換成單個逗號（，）。句號、問號等都照做這樣就基本上完成了冗余格式的清理。最后效果如下圖所示：圖5由于人名是全大寫的，和對白在同一行并不影響閱讀，所以不必再單獨分段。如果想像原文一樣單獨一行，還可以用查找替換，選上區(qū)分大小寫，替