国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Word > 正文

編寫宏一鍵刪除word中的空格與空行

2024-08-22 13:23:25
字體:
供稿:網(wǎng)友

本文介紹一種使用Word自帶的宏功能來刪除word文檔中的空ge與空行的方法。通過這個方法,可以在word中添加一個按鈕,通過這個按鈕就可以自動一鍵刪除word中的所有空ge與空行了,具體操作方法如下所述。

(1)啟動word,關(guān)閉默認打開的word文檔;

(2)單擊菜單欄中的“工具-宏-visual basic編輯器”,會出現(xiàn)"visual basic編輯器";

(3)在"visual basic編輯器"窗口中,右擊"Normal",選擇“插入-模塊”,插入一個模塊;

(4)在"visual basic編輯器"右邊自動打開的窗口中輸入以下代碼下載:

 Sub KongGe()
    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
    Application.ScreenUpdating = True
    Options.AutoFormatAsYouTypeDeleteAutoSpaces = True
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Wrap = wdFindContinue
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

(5)代碼輸入完畢后,退出"visual basic編輯器”;

(6)右擊工具欄的任意位置,在出現(xiàn)的菜單中選擇“自定義”,打開“自定義”窗口并切換到“命令”選項卡,選項中“類別”列表框下邊的“宏”選項,這時“命令”列表框下邊就會出現(xiàn)一個名為“normal模塊1.kongge"的選項,選中這個選項,按住鼠標(biāo)左鍵不放將其拖到工具欄的任意位置。

這時工具欄上就會出現(xiàn)一個名為“normal模塊1.kongge"的命令按鈕,右擊這個命令按鈕,就會出現(xiàn)一個右鍵菜單,在這個右鍵菜單中我們主要進行以下操作。

1)將“命令”后邊文本框的內(nèi)容替換為“刪除空ge和空行”。

2)執(zhí)行“更改按鈕圖像”命令,在出現(xiàn)的子菜單中選中一個自己比較喜歡的圖標(biāo)(如紅心圖標(biāo))。

完成以上兩個步驟的操作之后,最后關(guān)閉“自定義”窗口。

通過以上幾步,我們就完成了工具欄中的“刪除空ge和空行”按鈕的添加工作,以后需要刪除某個WORD文檔中的空ge和空行時,只須打開該word文檔,再單擊工具欄中的“刪除空ge和空行”按鈕,稍等片刻,word文檔中的空ge和空行就被全部刪除了。

小提示:當(dāng)我們將一個網(wǎng)頁另存為一個將文本文件并將文本文件中的所有內(nèi)容復(fù)制到word中進行編輯時,由于空行產(chǎn)生的復(fù)雜性,單擊“刪除空ge和空行”按鈕可能一次不能刪除全部空行,這時,再單擊一次這個按鈕,就能全部刪除了。

另外錄入并應(yīng)用這個宏的時候請調(diào)整你的word宏安全設(shè)置。

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板: 沙雅县| 瑞金市| 乐陵市| 玉林市| 浏阳市| 拜城县| 旬邑县| 凉城县| 陵川县| 建湖县| 聂拉木县| 靖江市| 东光县| 虞城县| 汝州市| 庆安县| 深水埗区| 久治县| 广州市| 时尚| 紫云| 石楼县| 宁武县| 卢湾区| 东至县| 广昌县| 双流县| 宿迁市| 连江县| 达拉特旗| 静乐县| 镇雄县| 眉山市| 巴中市| 鄂尔多斯市| 兴山县| 兴山县| 武城县| 灵璧县| 六盘水市| 商南县|