请问熟练VBA&Word编程高手-关于特定字符串定位有关问题
请教熟练VBA&Word编程高手---关于特定字符串定位问题
word文档中有N（N>20）个表格，这些表格都不是普通的规则表格。比如：3行4列、5行4列这样的表格。
表格中有按规则的编号字符串，比如：第一个表格的第一个“单元格”中的字符串是：“001”，横向第二个“单元格”的字符串是：“002”，依次类推。
问题：： 想通过使用VBA中的Range 对象，包括与该对象相关的方法属性等。实现准确对“001”，“002”这些字符串的定位。并且给找到的字符串添加上书签。想通过循环来实现对所有的字符串添加书签，字符串的编号规则就是“00X”，可以在代码中把X定义成一个变量。大致的思路就是这样。
请高手们给点思路。
Set WordDoc = WordApp.ActiveDocument
Dim myRange As Range
Dim bianhao As String
For i = 0 To 3
..........
..........
WordApp.Selection.Bookmarks.Add ("bianhao_" & i)
Next i
------解决方案--------------------
Selection.Find.ClearFormatting
With Selection.Find
.Text = "001"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
word文档中有N（N>20）个表格，这些表格都不是普通的规则表格。比如：3行4列、5行4列这样的表格。
表格中有按规则的编号字符串，比如：第一个表格的第一个“单元格”中的字符串是：“001”，横向第二个“单元格”的字符串是：“002”，依次类推。
问题：： 想通过使用VBA中的Range 对象，包括与该对象相关的方法属性等。实现准确对“001”，“002”这些字符串的定位。并且给找到的字符串添加上书签。想通过循环来实现对所有的字符串添加书签，字符串的编号规则就是“00X”，可以在代码中把X定义成一个变量。大致的思路就是这样。
请高手们给点思路。
Set WordDoc = WordApp.ActiveDocument
Dim myRange As Range
Dim bianhao As String
For i = 0 To 3
..........
..........
WordApp.Selection.Bookmarks.Add ("bianhao_" & i)
Next i
------解决方案--------------------
Selection.Find.ClearFormatting
With Selection.Find
.Text = "001"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute