在Word文档中,有时会出现一些多余的空白段落。这样的空白段落的典型特征是其只有一个硬回车,在对文档编辑时可以通过使用"Delete"依次删除这些硬回车来删除这样的空白段落。实际上,通过编写简单的VBA代码可以快速实现对这类空白段落的删除,具体的方法就是在代码中对所有段落进行判断,判断其长度是否为1,如果是就删除该段落。下面介绍快速删除Word 2013文档段落中的硬回车的具体操作方法。
1、启动Word 2013并打开需要处理的文档,该文档中存在多余的空白段落,如图1所示。
图1 需要处理的文档
2、按"Alt F11"键打开Visual Basic编辑器,在"工程资源管理器"窗格中右击需要处理文档所对应的工程,在打开的快捷菜单中选择"插入"|"模块"命令,如图2所示。
图2 选择"模块"命令
3、此时将插入一个模块,在该模块的代码窗口中输入程序代码,如图3所示。具体的程序代码如下。
图3 在"代码"窗口中输入程序代码
01 Sub Del()
Word制作数据分析图
Word制作数据分析图 点击word文档左上角,弹出的工具框,再点击图标. 点击你需要的类型图.我选择的是折线图,你的word文档里面会出现一个数据图. 同时右边会出现一个数据表格,将你需要的数据输入就ok了 输入数据之后 右边的word中会相应的折线图 . 在word工具栏的左上方 点击更换图标类型 将会弹出如图 选择你要更换的类型. 将会出现你选择更换的类型数据图.是不是十分的简单呀.
02 Dim temp As Paragraph
03 For Each temp In ActiveDocument.Paragraphs
04 If VBA.Len(temp.Range)=1 Then
05 temp.Range.Delete
06 End If
07 Next
08 End Sub
4、按"F5"键执行该过程,文档中的空白段落被直接删除,如图4所示。
图4 文档中的空白段落被删除
word怎么缩小页面?
word怎么缩小页面? 在操作word2013的过程中,为例编辑或者浏览的需要我们经常需要改变页面的显示比例和显示效果. 1.首先,用word2013打开一篇文档,正常情况下如下图 2.当需要缩小页面比例,查看通篇格式或其他内容时,点击"视图",再点击"多页",如下图 3.最后调整页面比例,摁住Crtl滚动鼠标滚轮或者调节右下角页面比例调节设置,就可以出现页面平铺的效果