請問有沒有軟件可以將文檔裏面的空行全部去掉?
壹次刪除N個空行
我們在網上下載資料.用word整理歸檔井打印的時候,常發現文檔裏有非常多的空白行,直接打印既影響閱讀,又浪費紙張,壹個個刪除十分麻煩,那麽如何次刪除多個空白段落昵?下面我們就來編寫壹個功能小模塊,並把已做成壹個菜單為妳解決問題
1.點擊“工具--宏--宏”( 或按下快捷鍵Alt + F8 )打開“宏”對話框,在“宏名”下面壹欄輸人“DelBlank”,點擊“創建”按鈕。
2.打開。Visual Basic 編輯器後,在右側代碼窗口的sub DelBlank() 和End Sub 之間輸入下面壹段代碼。
Dim i As Paragraph, n As Long
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "***刪除空白段落" & n & "個!"
Application.ScreenUpdating = True
點擊“文件壹保存Normal保存當前的代碼,然後關閉visual Basic 編輯器。
將這個宏命令添加到word 菜單中。在菜單欄上點右鍵,在彈出的右鍵菜單中點擊“自定義”,選擇“命令”選項,在左側“類別”列表框中找到“宏”,在右側“命令”列表框中把“ Normal.NewMacros.DelBlank ”拖拽到“工具”菜單欄上。在命令上點擊右鍵,將這個菜單重命名為“刪除空行( & D ) ”。到此.這個可以壹次刪除N 個空行的菜單就制作成功了 。打開認訪word 文檔,選擇“工具—刪除空行”,(或按下快捷鍵“ Ctrl + D ”)就可以刪除空行,最後向妳報告刪除的結果還等什麽,大家決去體驗壹蔔它的便利吧。