为了正常的体验网站,请在浏览器设置里面开启Javascript功能!
首页 > word一键删除空格

word一键删除空格

2018-08-06 2页 doc 13KB 12阅读

用户头像

is_036899

暂无简介

举报
word一键删除空格word一键删除空格 先启动word然后关闭默认打开的word文档,再单击菜单“工具,宏, visualbasic编辑器”命令,调节器出"visualbasic编辑器",在"visualbasic编辑器"窗口中,右击"Normal",选择“插入,模块“命令,插入一个模块。 插入一个模块后,在"visualbasic编辑器"右边自动打开的窗口中输入以下代码(代码)如下: Sub KongGe() Dim i As Paragraph, n As Long Application.ScreenUpdating = Fal...
word一键删除空格
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,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索