如何在WORD表格快速填写页码范围2

witkeylaw

原贴详见：http://club.excelhome.net/thread-1260240-1-1.html
原稿附件链接：下载附件代码附件链接：下载链接
只解决了开始页码的问题。

关于终止页码，我是这样处理的：
将第二个标题的开始页码作为第一个标题的终止页码，会出现2个问题
1、终止页码可能不对，打部分情况下应该是获得的终止页码-1才是正确的。
2、无法获取最后一个标题的终止页码，且会报错。

请问终止页码应该如何处理。

duquancai

Find   再做一些 处理及判断就行了。

ming0018

对这些序号或者标题的范围加个书签，然后想怎样就怎样。我一般是这样做的。

duquancai

本来“所有标题”都应该另起一页！所以某一标题的页码范围 就是本标题开始到下一个同级别标题开始减1页！但是最后一个标题到文档结束页除外。
或者：某一标题的页码范围 就是本标题开始到下一个同级别标题开始页（根本不用减1页）！最后一个标题页码范围是到文档结束页。

nzkboy

duquancai 发表于 2018-6-13 12:30
本来“所有标题”都应该另起一页！所以某一标题的页码范围 就是本标题开始到下一个同级别标题开始减1页！但 ...

使用交叉引用，不可以用-1 来实现呀

413191246se

Sub test()
    If Not Selection.Information(12) Then MsgBox "请将光标放在表格中！", 0 + 16: End
    MsgBox Selection.Tables(1).Range.Characters.First.Information(wdActiveEndPageNumber) '起码页码
    MsgBox Selection.Tables(1).Range.Characters.Last.Information(wdActiveEndPageNumber) '终止页码
End Sub

duquancai

有个奇葩问题：
标题：“投标人综合情况简介”，然而投标技术文件资料清单中：“投标人情况综合简介”，前后不一致！！！
害得我检查了“半天”！！！！

1. Sub main()
   
2.     Dim Dic As Object, myDoc As Document, tb As Table, c As Cell
   
3.     Set myDoc = ActiveDocument
   
4.     Set Dic = CreateObject("Scripting.Dictionary")
   
5.     Call getData(myDoc, Dic)
   
6.     If Dic.Count = 0 Then Exit Sub
   
7.     If myDoc.Tables.Count = 0 Then Exit Sub
   
8.     Set tb = myDoc.Tables(1)
   
9.     For Each c In tb.Columns(2).Cells
   
10.         With c.Range
    
11.             .End = .End - 1: sr = .Text
    
12.             If Len(sr) Then
    
13.                 If Dic.Exists(sr) Then
    
14.                     tb.Cell(c.Row.Index, c.Column.Index + 1).Range.Text = Dic(sr)
    
15.                 End If
    
16.             End If
    
17.         End With
    
18.     Next
    
19.     MsgBox "OK!"
    
20. End Sub
    
21. Sub getData(Doc As Document, d As Object)
    
22.     Dim myStart&, n&, k$, t1&, t2&
    
23.     With Doc.Content.Find
    
24.         Do While .Execute("[一二三四五六七八九十〇百千]@．", , , -1)
    
25.             n = n + 1
    
26.             With .Parent
    
27.                 If n > 1 Then
    
28.                     t1 = Doc.Range(myStart, myStart).Information(1)
    
29.                     t2 = Doc.Range(myStart, .Start).Information(1)
    
30.                     d(k) = t1 & "—" & t2
    
31.                 End If
    
32.                 myStart = .Start: .Start = .End: .MoveEndUntil vbCr
    
33.                 k = .Text: .SetRange .End, .End
    
34.             End With
    
35.         Loop
    
36.     End With
    
37.     If n > 0 Then
    
38.         t1 = Doc.Range(myStart, myStart).Information(1)
    
39.         t2 = Doc.Range(myStart, Doc.Content.End - 1).Information(1)
    
40.         d(k) = t1 & "—" & t2
    
41.     End If
    
42. End Sub

复制代码

witkeylaw

不好意思，没有发现源文件的问题。