具体如下:
1、首先我们打开一个Word文档,然后点击视图,切换到视图页面后,在工具栏中找到“宏”,这时会弹出一个对话框,我们输入“删除“”车,然后点击创建,如图所示。
2、这时会弹出一个名为Microsoft Visual Basic for Applications的代码界面,在下方文件栏中找到“Project(文档1)—Microsoft Word对象”并鼠标右键单击这个选项,弹出菜单后选择“插入”中的“模块”。
3、这时,在右侧会有一个空白的输入框,我们按照顺序输入以下内容:(如图所示)
Sub Del()
Dim temp As Paragraph
For Each temp In ActiveDocument.Paragraphs
If VBA.Len(temp.Range)=1 Then
temp.Range.Delete
End If
Next
End Sub
4、输入后我们点击完成,关闭窗口后再次点击“宏”,这时就会弹出我们刚刚建立的程序命令,点击运行即可。