網(wǎng)頁(yè)上的文字,有時(shí)候?yàn)榱孙@示的美觀,段落之間往往存在著空白行,這就使得拷下來的文章變得篇幅巨大,打印出來極不美觀。面對(duì)只有個(gè)位數(shù)的資料,刪除這些空行自然相當(dāng)簡(jiǎn)單,手動(dòng)一下就可以了。
但當(dāng)你面對(duì)著兩位數(shù)的,甚至三位數(shù)的文章時(shí),那簡(jiǎn)直就是災(zāi)難!當(dāng)然,Word這么成熟的編輯軟件,理應(yīng)有方便的方法使用達(dá)到刪除這些空行的目的!下面就介紹兩種簡(jiǎn)單實(shí)用的方法。 方法一:查找替換法。相信這個(gè)方法是比較簡(jiǎn)單實(shí)用的,但用起來有一點(diǎn)兒麻煩。在輸入查找字符的時(shí)候,換段符是這樣表示的“^p”,手動(dòng)換段(即shift+enter產(chǎn)生的符號(hào))符是這樣表示的“^l”,其中的"l"是小字的L。那么,替換的方法就是把所有的“^l”先換成“^p”,再將所有的“^p^p”換成“^p”。當(dāng)然,在此操作之前,需要先把所有的空格都替換掉。 方法二:使用宏。宏其實(shí)是個(gè)好東西,只不過平常比較少人去接觸它。并且出于安全性的考慮,Word默認(rèn)的情況下是沒有啟用它的,需要先進(jìn)行安全性設(shè)置,允許你自己選擇是啟用宏,還是不啟用宏。它其實(shí)是一段VB小程序,事實(shí)上,Word的大部分功能就是使用宏編寫出來的,只不過它們已經(jīng)經(jīng)過內(nèi)置設(shè)定,使用者在GUI界面操作它們,根本不知道它們實(shí)際上是怎么來的。知道了這些知識(shí)背景之后,對(duì)宏大概沒有那么抵抗心理了吧?好,只要把下面這段VB代碼,復(fù)制到你的自定義宏庫(kù)中去,然后運(yùn)行它,就可以一鍵消除所有的空行了!具體辦法: 1:打開WORD,打開“工具-宏-Visual Basic編輯器”,在Visual編輯器左邊,你會(huì)看到工程-project欄目,欄目中一般會(huì)包含兩個(gè)項(xiàng),一個(gè)是“Normal”,另一個(gè)是“Project(Doc1)”,其中(Doc1)是你所打開的WORD文檔的名稱。前者為WORD共用程序庫(kù),后者為單一文檔程序庫(kù)。如果你把代碼寫在前者里面,那你本機(jī)在本機(jī)的其它文檔中,也可以使用,是“共用”的程序庫(kù);若為后者,則只有所在文檔才能使用,同時(shí),也可以能過拷貝具體文檔,將宏帶者,前者則不行。 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 保存,關(guān)閉Visual Basic編輯器,返回WORD界面。此時(shí)再打開“工具-宏”,在“宏的位置”中選擇“所有模版和活動(dòng)文檔”(因?yàn)椴恢滥闶谴嬖谀0嬷?,還是在單個(gè)文檔中,此選擇可以保證兩者皆可顯示),你會(huì)在上方窗口的“宏名”中看到一個(gè)KillEmptyRows的宏,選擇運(yùn)行即可! 兩種方法,各有優(yōu)缺點(diǎn),選用哪個(gè),就要看你自己的喜好咯! |
|