请教守柔版主：如何用VBA将WORD文档中的每行以“A+行号为名加上书签

hao123

按“对于书签中的WITH Activedocument改上面插入一句MsgBox "LineCount=" & LineCount”要求测试结果如下：

守柔

版本问题，我知道了，这样，你用二种方法，看一下

一将光标位于文档首或者文档末，即在不选定文本的情况下，点工具/字数统计，看一下，有多少行？

二是全选文档，点工具/字数统计，看一下，有多少行？

我等于回应。

hao123

情况如下，或将“On Error Resume Next”设为注释，则出错……

守柔

你新建一个空白文档，运行以下宏，将结果保存在文档中上传该文档，我查看一下。

'* +++++++++++++++++++++++++++++++++++++++

'* Created By I Love You_Word!@ExcelHome 2005-1-14 12:22:52

'仅测试于System: Windows NT Word: 10.0 Language: 2052

'^The Code CopyIn [标准模块-模块1]^'

'* --------------------------------------------------------------------------

Sub GetComName() Dim i As CommandBar, strCom As String, SelCom As String On Error Resume Next For Each i In Application.CommandBars strCom = i.Name & vbCrLf SelCom = SelCom & strCom Next Selection.InsertAfter SelCom End Sub '----------------------

hao123

宏写在文档中？ 6i2xrow3.rar (6.72 KB, 下载次数: 26)

2005-1-14 12:28 上传

点击文件名下载附件
结果如下

[此贴子已经被作者于2005-1-14 12:27:00编辑过]

守柔

把我上述14楼的代码复制于新建的文档的THISDOCUMENT模块中啊，然后运行此宏，怎么啦？

hao123

已完成，在15楼，版主辛苦了！先休息一下，有空再做它吧，再次谢谢！

[此贴子已经被作者于2005-1-14 13:05:48编辑过]