Question

word vba怎么查找字符串，并获取所在页码、所在行数

With ActiveDocument.Content.Find
.Text = "表一"
.Forward = True
.Execute
End With
使用该语句有bug，当光标定位在第一页并且“表一”字符串在第一页没问题，但“表一”字符串在第二页，光标在第一页时执行就有问题所在页不对

Answer 1

Private Sub CommandButton1_Click()
   Dim p, r, s, t
    s= "石膏板造型顶"
   With Selection.Find
       .ClearFormatting
       .MatchWholeWord = True
       .MatchCase = False
       t = .Execute(FindText:=s)
   End With
    p= Selection.Information(wdActiveEndPageNumber)
    r= Selection.Information(wdFirstCharacterLineNumber)
   If t Then
       MsgBox "成功，已找到“" & s & "”" & vbCrLf & _
           "页码："& p & vbCrLf & "行数：" & r, vbOKOnly, _
           "成功"
   Else
       MsgBox "很遗憾，没有找到“" & s & "”", vbOKOnly, _
           "遗憾"
   End If
End Sub

 写代码很辛苦，好心的楼主请  救济  点儿  悬赏分

追问

太感谢了，我现在只有5分了，要不我先去赚点分再加给你。我还有个30分的提问，是全部家当了，不嫌弃的话，帮我解答下。

追答

那个问题的链接？

追问

不好意思，那个上午有人解答了。这个我先赚点分再来结贴

追答

呵呵，那谢谢你了