word一键删除空格word一键删除空格
先启动word然后关闭默认打开的word文档,再单击菜单“工具,宏,
visualbasic编辑器”命令,调节器出"visualbasic编辑器",在"visualbasic编辑器"窗口中,右击"Normal",选择“插入,模块“命令,插入一个模块。
插入一个模块后,在"visualbasic编辑器"右边自动打开的窗口中输入以下代码(代码)如下:
Sub KongGe()
Dim i As Paragraph, n As Long
Application.ScreenUpdating = Fal...
word一键删除空格
先启动word然后关闭默认打开的word文档,再单击菜单“工具,宏,
visualbasic编辑器”命令,调节器出"visualbasic编辑器",在"visualbasic编辑器"窗口中,右击"Normal",选择“插入,模块“命令,插入一个模块。
插入一个模块后,在"visualbasic编辑器"右边自动打开的窗口中输入以下代码(代码)如下:
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
代码输入完毕后,退出"visualbasic编辑器",这时刚刚输入的代码不被自动
保存了。
右击工具栏的任意位置,在出现的菜单中选择“自定义”,打开“自定义”
窗口并切换到“命令”选项卡,选项中“类别”列表框下边的“宏”选项,这时“命令”列
表框下边就会出现一个名为“normal模块,.kongge"的选项,选中这个选项,按
住鼠标左键不放将其拖到工具栏的任意位置。
这时工具栏上就会出现一个名为“normal模块,.kongge"的命令按钮,右击这个命令按钮,就会出现一个右键菜单,在这个右键菜单中我们主要进行以
下操作。
1.将“命令”后边文本框的内容替换为“删除空格和空行”。
2.执行“更改按钮图像”命令,在出现的子菜单中选中一个自己比较喜欢
的图标(如红心图标)。
完成以上两个步骤的操作之后,最后关闭“自定义”窗口。
至此,我们就完成了工具栏中的“删除空格和空行”按钮的添加工作,以后需要删除某个WORD文档中的空格和空行时,只须打开该word文档,再单击工具栏中的“删除空格和空行”按钮,稍等片刻,word文档中的空格和空行就被
全部删除了。
本文档为【word一键删除空格】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑,
图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。