用ShapeRange(名称)指定名称的方式，无法定位线条对象，怎么回事？

xiaoyouxi01

首先我在文档第1段，画条线（对象锚记位置在第1段），并用下面的语句设定线条名称为“线条1”。Selection.Paragraphs(1).Range.ShapeRange(1).Name = "线条1"

然后再复制到第3段（对象锚记位置在第3段）。

此时两条线的Name是一样的。可以将光标分别定位到第1段和第3段，然后用下面的语句测试。
MsgBox Selection.Paragraphs(1).Range.ShapeRange(1).Name
第1段的线条Name


第3段的线条Name


然后问题来了：

当光标在第1段时，用下面的语句可以正常运行并输出线条Name。
MsgBox Selection.Paragraphs(1).Range.ShapeRange("线条1").Name
但当光标在第3段时，运行上面这句代码就会报错，提示“未找到以指定名称命名的项目”。


来论坛求助一下，这是怎么回事？为何不能用ShapeRange(名称)这样”指定名称”的方式来定位对象呢？

test.rar (5.39 KB, 下载次数: 5)

2018-11-7 15:10 上传

点击文件名下载附件

vbee

ActiveDocument.Range.ShapeRange(2).Select

xiaoyouxi01

vbee 发表于 2018-11-7 15:31
ActiveDocument.Range.ShapeRange(2).Select

用ShapeRange(序号)的方式定位，确实是可行的，因为我用这句语句也能输出Name值
MsgBox Selection.Paragraphs(1).Range.ShapeRange(1).Name

但是我希望的是，能用指定名称的方式来定位：
光标在第1段运行Selection.Paragraphs(1).Range.ShapeRange("线条1").Select就选中第1条线条
光标在第3段运行Selection.Paragraphs(1).Range.ShapeRange("线条1").Select就选中第2条线条

因为会有同一段落中有多条线条的情况（分别是线条1、线条2……），而我不知道线条1的序号是几，它可能是1也可能是2，因此我希望用名称来直接区分并定位。

xiaoyouxi01

没人能解决问题么？