WORD如何一次性输出所有书签名 和所在页数！！

笑九方

比如这些书签，每次文档做完后 要标记书签的位置 进行统计  一个个查找太麻烦。
能否有函数 VBA啥的一次性导出来  
导出格式类似：
盖章1  27页
盖章2  36页
......
签字1 33页
签字2 42页
....


可行吗？？？

有附件~~~~~~~~~~
示例.rar (182.03 KB, 下载次数: 7)

2016-10-24 20:20 上传

点击文件名下载附件

duquancai

有图无附件，不好搞！因为我比较懒，我不想按照你的问题自己去模拟附件！路过一下吧！

笑九方

附件上传了~~~~~~~~~~~~~~~~

duquancai

请下载附件，打开Word文档，点击按钮》》》》

1. Sub shishi()
   
2.     Dim su As Bookmark, Op%, Sn$, str$, k%
   
3.     For Each su In ActiveDocument.Bookmarks
   
4.         n = n + 1
   
5.         Sn = su.Name
   
6.         Op = su.Range.Information(1)
   
7.         If n = 1 Then
   
8.             str = "书签:" & Sn & vbTab & "在第:" & Op & "页" & vbCr
   
9.         Else
   
10.             str = str & "书签:" & Sn & vbTab & "在第:" & Op & "页" & vbCr
    
11.         End If
    
12.     Next
    
13.     Documents.Add
    
14.     ActiveDocument.Content = str
    
15. End Sub

复制代码

duquancai

笑九方 发表于 2016-10-24 20:20
附件上传了~~~~~~~~~~~~~~~~

下载附件，打开word文档，点击按钮》》》》

笑九方

大神 膜拜~~~~~~~~~~~~~~~~~~

笑九方

代码我改了一下 ，把书签名去掉了。能否再优化下



按照页码顺序排序，而不是书签名顺序。

示例1        在第:1页
示例2        在第:2页
示例3        在第:3页
示例4        在第:2页   

变成

示例1        在第:1页
示例2        在第:2页
示例4        在第:2页
示例3        在第:3页

duquancai

笑九方 发表于 2016-10-25 09:44
代码我改了一下 ，把书签名去掉了。能否再优化下

自己修改，没时间

笑九方

duquancai 发表于 2016-10-25 10:14
自己修改，没时间

完全不会啊~~~~~~~~

笑九方

VBA根本不懂 只会看下结构~