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

duquancai

笑九方 发表于 2016-10-25 10:40
完全不会啊~~~~~~~~

不会，那就算了。我没时间给你当劳工，主要是没时间。

笑九方

额  还是谢谢了~~~~~~~~

kqbt

笑九方 发表于 2016-10-26 10:13
额  还是谢谢了~~~~~~~~

简单点办法：建议修改代码，输出书签所在“页次”时不要附加任何文字信息，直接输出页码数字，这样一来，因为书签名与页次数字之间是用制表符分隔的，全部输出到文档后，“文本转换成表格”，再按页次列对表格进行升序排列即可。

笑九方

大神  输出的页码 对不上！

另外我研究了下  研究不出来 页码合并效果  您指导下呢！
现在的效果：
书签:样子1        在第:1页   
书签:样子2        在第:1页   
书签:样子3        在第:1页   
书签:样子4        在第:1页   
书签:样子5        在第:4页   
书签:示例1        在第:4页   
书签:示例2        在第:3页   
书签:示例3        在第:7页
我想变成：
样子：1,4
示例：3-4,7

重复的页码合并成1个，连续的页码 -号连起来。最后输出到TXT文本里

示例.zip (219.19 KB, 下载次数: 8)

2016-11-19 13:02 上传

点击文件名下载附件

duquancai

笑九方 发表于 2016-11-19 12:54
大神  输出的页码 对不上！

另外我研究了下  研究不出来 页码合并效果  您指导下呢！

没时间跟你墨迹同一类问题。又不难，自己搞。

duquancai

笑九方 发表于 2016-11-19 12:54
大神  输出的页码 对不上！

另外我研究了下  研究不出来 页码合并效果  您指导下呢！

Sub shishi()
   Dim su As Bookmark, Sn$
   Dim rg As Range, Ym%
   Set d = CreateObject("Scripting.Dictionary")
   For Each su In ActiveDocument.Bookmarks
      Sn = su.Name: Set rg = su.Range: rg.Collapse 1
      ym1 = rg.Information(wdActiveEndPageNumber)
      rg = su.Range: rg.Collapse 0
      ym2 = rg.Information(wdActiveEndPageNumber)
      If ym1 <> ym2 Then
         MsgBox Sn & "书签引用的范围存在多页！改返回哪页呢？"
      End If
   Next
End Sub

ant008

非常感谢！代码很好用！