刪除粘貼word文檔中空行的方法

楓葉飄飛 2008-01-27

展開全文

刪除粘貼word文檔中空行的方法
2008-1-27

用網絡來查找資料相當方便是人所皆知的事實，找到相關的文章，自然是拷貝粘貼啦，當然，拷貝的時候還需要點技巧，直接拷進Word文檔有時候是相當麻煩的，比較方便的做法是先拷進記事本，然后再轉入word，這樣做的好處是除去表格以等網頁元素，只拷貝“純文本”。然而這樣做還不夠徹底：網頁上的文字，有時候為了顯示的美觀，段落之間往往存在著空白行，這就使得拷下來的文章變得篇幅巨大，打印出來極不美觀。面對只有個位數的資料，刪除這些空行自然相當簡單，手動一下就可以了，但當你面對著兩位數的，甚至三位數的文章時，那簡直就是災難！當然，Word這么成熟的編輯軟件，理應有方便的方法使用達到刪除這些空行的目的！

下面就介紹兩種簡單實用的方法。

方法一：查找替換法。相信這個方法是比較簡單實用的，但用起來有一點兒麻煩。在輸入查找字符的時候，換段符是這樣表示的“^p”，手動換段(即shift+enter產生的符號)符是這樣表示的“^l”，其中的"l"是小字的L。那么，替換的方法就是把所有的“^l”先換成“^p”，再將所有的“^p^p”換成“^p”。當然，在此操作之前，需要先把所有的空格都替換掉。

方法二：使用宏。宏其實是個好東西，只不過平常比較少人去接觸它。并且出于安全性的考慮，Word默認的情況下是沒有啟用它的，需要先進行安全性設置，允許你自己選擇是啟用宏，還是不啟用宏。它其實是一段VB小程序，事實上，Word的大部分功能就是使用宏編寫出來的，只不過它們已經經過內置設定，使用者在GUI界面操作它們，根本不知道它們實際上是怎么來的。知道了這些知識背景之后，對宏大概沒有那么抵抗心理了吧？好，只要把下面這段VB代碼，復制到你的自定義宏庫中去，然后運行它，就可以一鍵消除所有的空行了！具體辦法：

1，打開WORD，打開“工具-宏-Visual Basic編輯器”，在Visual編輯器左邊，你會看到工程-project欄目，欄目中一般會包含兩個項，一個是“Normal”，另一個是“Project(Doc1)”，其中(Doc1)是你所打開的WORD文檔的名稱。前者為WORD共用程序庫，后者為單一文檔程序庫。如果你把代碼寫在前者里面，那你本機在本機的其它文檔中，也可以使用，是“共用”的程序庫；若為后者，則只有所在文檔才能使用，同時，也可以能過拷貝具體文檔，將宏帶者，前者則不行。

2，雙擊期中的“Thisdocument”（兩者任選），打開代碼輸入窗口，在其中輸入以下代碼：

Sub KillEmptyRows()

    '刪除空行,by不見不散,2006-1-15

    Dim p As Paragraph

    Dim r As Range

    Dim s As String

    Dim l As Long

    For Each p In ActiveDocument.Paragraphs

        Set r = p.Range

        s = CStr(r.Text)

        l = Asc(s)

        If (l = 13 Or l = 11) Then r.Text = ""

    Next p

End Sub