守柔请进：另一种空白段落的删除问题？

cofe2000 · 发表于 2004-7-13 08:27

esVRhT4j.rar (4.02 KB, 下载次数: 58)

附件中的空白行如何删除？谢谢！

tang1971hi · 发表于 2004-7-13 14:39

^l^l替换成^p，原文件中的是人工换行符。

守柔 · 发表于 2004-7-13 15:03

二楼解得好。

COFE2000兄应该将该文发出来，让大家有个学习机会嘛！

cofe2000 · 发表于 2004-7-13 17:00

以下是引用守柔在2004-7-13 15:03:00的发言：

二楼解得好。

COFE2000兄应该将该文发出来，让大家有个学习机会嘛！

什么文件啊？楼上不是有附件吗？

2楼的办法我知道啊，就是想知道用vba怎么实现，就想前不久版主发表的空白段落的删除问题一样，用替换当然也可以解决

[此贴子已经被作者于2004-7-13 17:00:27编辑过]

守柔 · 发表于 2004-7-13 17:47

既然COFE兄想利用VBA解决问题，你可以录入宏，还是替换的法子，也能做到。我想COFE兄不是这个意思。

这是我前时做了一个，不是很慎密，但对于这类问题应该可以解决，注意它不会变成段落。（即不修改原有段落）请将以下代码粘贴于活动文档的‘’THIS DOCUMENT“ 模块下：

Sub Linecount() Dim i As Integer, Linecount As Integer, Range1 As Long, Range2 As Range, l As String On Error Resume Next Application.ScreenUpdating = False CommandBars("Word Count").Visible = True CommandBars("word count").Controls(2).Execute l = CommandBars("word count").Controls(1).List(6) CommandBars("Word Count").Visible = False Application.ScreenUpdating = True Linecount = Int(Mid(l, 1, Len(l) - 1)) 'MsgBox Linecount Range(0, 0).Select For i = 1 To Linecount Range1 = Selection.Start Selection.EndKey Unit:=wdLine If Range2 = Range1 Then Selection.Delete End If Selection.GoToNext (wdGoToLine) Next End Sub

cofe2000 · 发表于 2004-7-13 21:35

谢谢，搞定，不知是否消化的了

还有3楼说的文件是怎么回事啊

守柔 · 发表于 2004-7-14 06:32

以下是引用cofe2000在2004-7-13 21:35:00的发言：

谢谢，搞定，不知是否消化的了

还有3楼说的文件是怎么回事啊

呵呵，让COFE兄见笑了。3楼所云文件，是指你附件中的表格操作（即你所说的网上下载的），挺不错的，所以我说，你可以直接发贴或转贴，让新手们学习呀。

至于代码消化的问题，其实很简单，但它是我最近研究WORD中行号所得：在工具/字数统计中工具栏中，有一个组合框，其中就有行数，我通过代码将其取出，然后进行循环，从1到最后一行，通过定位下一行的方法，判断其光标所在行的开始字符与结束字符，如果相等，将其删除。

如果是空白段落，也可以利用（因为段落中也含有行），但效率肯定太低，不如“空白段落删除”中代码速度快。

按说应该从最后一行开始删，时间关系，没改，所以说不太慎密，凑合用，以后有时间重新修订一下。

cofe2000 · 发表于 2004-7-14 08:32

谢谢

一楼的表格操作文件本来就是从excelhome论坛下载的，再发的话恐怕就有重复发帖的嫌疑了，呵呵

cofe2000 · 发表于 2004-7-14 08:47

再请问一下CommandBars("Word Count")什么工具栏，我用下面的代码运行一下，应该是列出所有的工具栏，但为什么就没有呢？请多指教！

Sub 列举菜单项() For i = 1 To CommandBars.Count Selection.TypeText i & ":" & CommandBars(i).Name Selection.TypeParagraph For a = 1 To CommandBars(i).Controls.Count Selection.TypeText " " & a & ":" & CommandBars(i).Controls(a).Caption Selection.TypeParagraph Next Next End Sub

守柔 · 发表于 2004-7-14 09:12

有啊！

39:Word Count

1:字数统计(&W)

2:重新计数(&C)

		自动登录	找回密码
密码			免费注册