《WORD快速删除段首空格.pdf》由会员分享，可在线阅读，更多相关《WORD快速删除段首空格.pdf（2页珍藏版）》请在三一文库上搜索。
1、快速删除段首空格快速删除段首空格 如何快速删除段首空格，而不改变现有的文档格式呢？我们可以通过宏来实现。 用 Word 打开文章，依次单击“开发工具” “代码” “Visual Basic 编辑器”，打开 Visual Basic 编辑器，快捷键是 Alt+ F11。双击“Project”，点击菜单栏的“插入”“模块” ，在打 开的“代码”输入窗口，将下面的代码输入进去。然后运行宏“Del_Front_Space”即可。 （每 段段首的空格都会被删除，表格中的段落的段首空格也会被删除！ ） 注意：如果无“开发工具”选项卡， 1、在 office 2007 中，在打开的“Word 选项” “常用
2、” 在“使用 Word 时采用的 首选项”区域选中“在功能区显示开发工具选项卡”复选框，并单击“确定”按钮。 2、在 office 2010 中， “文件” “Word 选项” “自定义工具区域” 在右侧，勾选 开发工具复选框，并单击“确定”按钮。 以下为代码： Sub Del_Front_Space() Author: Yu Xiang Baidu ID：keeponline Version：1.0.0 Release date: 2012-9-3 Dim i As Long Dim k As Long Dim s As Long Dim e As Long Application.Scre
3、enUpdating = False For Each Paragraph In ActiveDocument.Paragraphs s = Paragraph.Range.Start e = Paragraph.Range.End k = e - s i = 0 While i k And (ActiveDocument.Range(s + i, s + i + 1).Text = Or ActiveDocument.Range(s + i, s + i + 1).Text = ) 中文空格和英文空格 i = i + 1 Wend If i 0 Then ActiveDocument.Range(s, s + i).Delete Next Application.ScreenUpdating = True End Sub