欢迎访问抖客教程网!

抖客教程网

您现在的位置是:主页 > 办公课堂 >

办公课堂

word怎么删除一行内容,删除,内容

发布时间:2023-11-18 06:52:04办公课堂评论
1.如何取消WORD文档多余的行 【去掉Word中的所有空行】利用宏 /show.asp?id=41 宏其实是个好对象,只不外泛泛较量少人去打仗它。而且出于安详性的思量,Word默认的环境下是没有启用它的

1.如何取消WORD文档多余的行

【去掉Word中的所有空行】利用宏 /show.asp?id=41

宏其实是个好对象,只不外泛泛较量少人去打仗它。而且出于安详性的思量,抖客教程网,Word默认的环境下是没有启用它的,需要先举办安详性配置,答允你本身选择是启用宏,照旧不启用宏。它其实是一段VB小措施,事实上,Word的大部门成果就是利用宏编写出来的,只不外它们已经颠末内置设定,利用者在GUI界面操纵它们,基础不知道它们实际上是如何来的。知道了这些常识配景之后,对弘或许没有那么抵挡心理了吧?好,只要把下面这段VB代码,复制到你的自界说宏库中去,然后运行它,就可以一键消除所有的空行了!详细步伐:

1:打开WORD,打开“东西-宏-Visual Basic编辑器”,在Visual编辑器左边,你会看到工程-project栏目,栏目中一般会包括两个项,一个是“Normal”,另一个是 “Project(Doc1)”,个中(Doc1)是你所打开的WORD文档的名称。前者为WORD共用措施库,后者为单一文档措施库。假如你把代码写在前者内里,那你本机在本机的其它文档中,也可以利用,是“共用”的措施库;若为后者,则只有地址文档才气利用,同时,也可以能过拷贝详细文档,将宏带者,前者则不可。

2:双击期中的“Thisdocument”(两者任选),打开代码输入窗口,在个中输入以下代码:

Sub KillEmptyRows()

'删除空行,by不见不散,2006-1-15

Dim p As Paragraph

Dim r As Range

Dim s As String

Dim l As Long

For Each p In ActiveDocument.Paragraphs

Set r = p.Range

s = CStr(r.Text)

l = Asc(s)

If (l = 13 Or l = 11) Then r.Text = ""

Next p

End Sub

生存,封锁Visual Basic编辑器,返回WORD界面。此时再打开“东西-宏”,在“宏的位置”中选择“所有模版和勾当文档”(因为不知道你是存在模版中,照旧在单个文档中,此选择可以担保两者皆可显示),你会在上方窗口的“宏名”中看到一个 KillEmptyRows的宏,选择运行即可!

热心评论

评论列表