如何通过查找得出一个字符所在页数或者是行数

vb学徒

如题，小弟初学，看了vba一册通，没有看到相关的代码。所以求教了 /

办公之星

也是，这玩儿状态行中就可以看到，可是怎么用程序得到呢？

守柔

欢迎VB学徒。

请参（建议是惟一性的查找文本）

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-6-1 17:00:25 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Option Explicit Sub GetFindPage() Dim MyRange As Range, strFindText As String, FindPage As Integer, FindLines As Integer Set MyRange = ThisDocument.Content strFindText = "适用性" '请修改你的查找文本 With MyRange.Find .ClearFormatting .Text = strFindText .Execute If .Found = False Then MsgBox "WORD没有找到指定的文本内容!", vbOKOnly + vbInformation Else FindPage = MyRange.Information(wdActiveEndPageNumber) FindLines = MyRange.Information(wdFirstCharacterLineNumber) MsgBox "您要查找的文本内容位于:" & FindPage & "页,位于该页的第" & FindLines & "行.", vbOKOnly + vbInformation End If End With End Sub '----------------------复杂一些的使用，可参考以下链接：

http://club.excelhome.net/viewthread.php?tid=94395

ybird

守柔版主好像答得太快了吧，这样的话，我们这些半瓶水的家伙该如何升级呢？好不容易才有回答得出来的问题，真是的，又让版主给抢了。[em03]

守柔

以下是引用ybird在2005-6-1 17:04:00的发言： 守柔版主好像答得太快了吧，这样的话，我们这些半瓶水的家伙该如何升级呢？好不容易才有回答得出来的问题，真是的，又让版主给抢了。[em03]

对不起，我不是有意的。

希望能看到您的好贴！

vb学徒

谢谢了，大家太热情了 。看来我也要加倍努力学习了。问问有没有关于word编程的相关资料。比如word专有的那些代码而在vb中没有的。不然由于资料不齐，学习起来太困难了 。