word中用VBA如何选定这个特殊的范围？

chenlifeng123 · 发表于 2016-11-23 14:28

有word文档（见附件），它的全部内容是：一个表格，表格后面有字符 “12345”。
现在我想用变量 a,表示word中“12345” 所在的范围。
下面的方法不对，请问如何修正呢？（有无表格，都要能通过才成）

sub bb()
dim i%,j%,a as range
i=InStr(ActiveDocument.Range.Text, “12345”)
j=len("12345")
Set a = ActiveDocument.Range(i, i + j)
end sub

复制代码

chenlifeng123 · 发表于 2016-11-23 14:49

用此法代替上文中的i，好像成功了：

Dim i%
With ActiveDocument.Content.Find
.Text = "12345"
Do While .Execute
i = .Parent.Start
Exit Do
Loop
End With

复制代码

duquancai · 发表于 2016-11-23 15:00

选定这个特殊的范围后想干什么？

duquancai · 发表于 2016-11-23 15:06

无具体实例，你的想法有可能在真实的文档中出现较大偏差，话说具体文档具体需求也有不同的处理方法

chenlifeng123 · 发表于 2016-11-23 15:14

duquancai 发表于 2016-11-23 15:00
选定这个特殊的范围后想干什么？

感谢老师关注。
我选定后，我可以对它进行其它格式处理。
之所以我没有举例具体文档，是因为是临时因为添加底纹而拓展想到的问题。所以无实例。不过我在附件应该说清楚了。如果还让老师疑虑，实在是我表达上的错导致的，十分抱歉。
我今后就按上面的意思这样选定了。

duquancai · 发表于 2016-11-23 15:17

chenlifeng123 发表于 2016-11-23 15:14
感谢老师关注。
我选定后，我可以对它进行其它格式处理。
之所以我没有举例具体文档，是因为是临时因为 ...

“我今后就按上面的意思这样选定了。“ 这是你的事情，随便你了！！！

chenlifeng123 · 发表于 2016-11-23 15:20

duquancai 发表于 2016-11-23 15:17
“我今后就按上面的意思这样选定了。“ 这是你的事情，随便你了！！！

*_* 这个思路还是来源于老师，一样相当是老师教我的，万分感谢。虽然现在只是举一反三并没有实际去用，但我的确还没有想到其它的解决办法，*_*

duquancai · 发表于 2016-11-23 15:25

chenlifeng123 发表于 2016-11-23 15:20
*_* 这个思路还是来源于老师，一样相当是老师教我的，万分感谢。虽然现在只是举一反三并没有实际去用，但 ...

前面已说明，具体文档具体分析，并没有万能的方法，比如你这方法到了具体的文档并非最优！！！

chenlifeng123 · 发表于 2016-11-23 15:34

duquancai 发表于 2016-11-23 15:25
前面已说明，具体文档具体分析，并没有万能的方法，比如你这方法到了具体的文档并非最优！！！

嗯，我想老师说的肯定是非常中肯的话。我所指的具体文档，目前来说能想到的就是：除了正常的文本内容，一个文档中还包含一个或若干个不定数量、不定位置的表格，或是其它杂乱、可能会干扰我选定内容的符号。
我要的效果就是，不管如何都要能选定我想要选定的范围就好。
感觉上面我有话说的不太对，但并没有忤逆老师之心，谢谢老师谅解。*_*

		自动登录	找回密码
密码			免费注册

[求助] word中用VBA如何选定这个特殊的范围？

评分