本示例选定活动文档第一个图形锁定标记所在的段落。
ActiveDocument.Shapes(1).Anchor.Paragraphs(1).Range.Select