一直提示Selection.Information(wdActiveEndPageNumber)错误

想通过这个代码从EXCEL中运行宏获取特定字符在word文档中的页码，但一直提示Selection.Information(wdActiveEndPageNumber)错误，麻烦那位大师能够指正一下，谢谢
Sub test()
Dim mypath, Newname, wApp
mypath = ThisWorkbook.Path & "\文件夹\"
Newname = "文档.doc"
Set wApp = CreateObject("word.application")
With wApp
.Documents.Open mypath & Newname
If .Selection.Find.Execute("投标人") = True Then
Sheet9.Range("C10").Value =Selection.Information(wdActiveEndPageNumber)
End If
.Quit
End With
Set wApp2 = Nothing
End Sub

sheet9改成 this workbooks.sheet(9).range.... 试试

你在Excel里调用word，参数不能用word的，要用数字
在word的立即窗口里debug.print wdActiveEndPageNumber，获取对应的数字

我这个是做的前期引用，区别不大，我引用的是MICRO WORD 16.0 OBJECT LIBRARY，关键的原因是对像没搞清，所以才会出错的
Sub aaaa()
Dim Wapp As New Word.Application
Dim Doc As New Word.Document
Dim Rng As Word.Range
Set Doc = Wapp.Documents.Open("D:\Backup\×ÀÃæ\111.doc")
Set Rng = Doc.Range
If Rng.Find.Execute("投标人") Then
MsgBox Rng.Find.Parent.Information(wdActiveEndPageNumber)
End If
End Sub

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

8回复贴，共1页

<<返回vba吧

分享到:

日	一	二	三	四	五	六