论文部分内容阅读
用word编辑从网上下载的文章的时候，最头痛的莫过于删除文章中太量的空行了，还好，笔者在word的工具栏上建立了一个按钮，只要点击该按钮，文中的大量空行将一扫而空。
第一步：建立一个名为“删除空行”的宏
运行Word程序，选择“工具一宏→VisuaI Basic编辑器”。打开VisualBasic编辑器界面[或直接按AIt+F11]，双击“工程→NormaI”中的Normal文件夹下的“ThisDocument”文件(如图1)，在弹出的代码编辑窗口里输入以下代码：
Sub删除空行()
Dim P As Paragraph
Dim r As Range
Dim s As String
Diml As Long
For Each p In ActiveDocumentParagraphs
Set r=p.Range
s=CStr(r，Text)
1=Asc(s)
If(1=13Orl=11)Then r.Text＝""
Next P
End Sub
单击标准工具栏上的“视图MicrosoftWord”按钮，返回Word文本编辑界面。
第二步：为宏“删除空行”在工具栏上建立按钮
选择“工具一自定义”，打开自定义对话框，单击“命令”选项卡，在类别中找到“宏”，将右边窗口中出现的“NormalThisDocument删除空行”用鼠标拖动到格式工具栏，当工具栏中出现“l”形状时，松开鼠标(如图2)。
第三步，重命名新建按钮
右击该按钮，在弹出的菜单中，将命名右边文本框中的原按钮名称修改为“删除空行”，将鼠标在文档编辑区空白处单击。完成按钮的重新命名。
以后，要在本机处理含有大量空行的文档时，你只需要单击“删除空行”按钮就行了。
第一步：建立一个名为“删除空行”的宏
运行Word程序，选择“工具一宏→VisuaI Basic编辑器”。打开VisualBasic编辑器界面[或直接按AIt+F11]，双击“工程→NormaI”中的Normal文件夹下的“ThisDocument”文件(如图1)，在弹出的代码编辑窗口里输入以下代码：
Sub删除空行()
Dim P As Paragraph
Dim r As Range
Dim s As String
Diml As Long
For Each p In ActiveDocumentParagraphs
Set r=p.Range
s=CStr(r，Text)
1=Asc(s)
If(1=13Orl=11)Then r.Text＝""
Next P
End Sub
单击标准工具栏上的“视图MicrosoftWord”按钮，返回Word文本编辑界面。
第二步：为宏“删除空行”在工具栏上建立按钮
选择“工具一自定义”，打开自定义对话框，单击“命令”选项卡，在类别中找到“宏”，将右边窗口中出现的“NormalThisDocument删除空行”用鼠标拖动到格式工具栏，当工具栏中出现“l”形状时，松开鼠标(如图2)。
第三步，重命名新建按钮
右击该按钮，在弹出的菜单中，将命名右边文本框中的原按钮名称修改为“删除空行”，将鼠标在文档编辑区空白处单击。完成按钮的重新命名。
以后，要在本机处理含有大量空行的文档时，你只需要单击“删除空行”按钮就行了。