如何用代码解决“不选”问题

gao2ming1

本来在文档中有一个图形被选（任意图形），怎样用代码退出选择

konggs

activedocument.range(0,0).select

雨雪霏霏

感谢孔兄明示！小弟学下了！呵呵，现在小弟对VBA算是有点“眼熟”，仍未入门。

gao2ming1兄的帖子都很有意思，让小弟跟着学了很多知识，谢谢gao2ming1兄！

以下是守柔版主与如意版主的巨著《Word非常接触》第331页—第336页的内容摘要，请gao2ming1兄参考：

Selection 对象的一些常用方法

Selection 对象常用方法	说　明
Selection.WholeStory	全选文档，等同于Ctrl+A组合键
Selection.HomeKey wdStory	光标移至文档起始处，等同于Ctrl+Home组合键
Selection.EndKey wdStory	光标移至文档结尾，等同于Ctrl+End组合键
Selection.Collapse wdCollapseStart	折叠到所选内容的开始处
Selection.Collapse wdCollapseEnd	折叠到所选内容的结尾处
Selection.InsertAfter "Text"	在所选内容之后插入“Text”并扩展所选内容
Selection.InsertBefore "Text"	在所选内容之前插入“Text” 并扩展所选内容

重要的 Range 位置

文档起始位置	ActiveDocument.Range(0,0)
文档结束位置	ActiveDocument.Range(ActiveDocument.Content.End - 1,ActiveDocument.Content.End - 1)
起始段落	ActiveDocument.Paragraphs(1).Range
文档最后一个段落区域	ActiveDocument.Paragraphs.Last.Range

[此贴子已经被作者于2007-5-9 6:28:49编辑过]

守柔

比较规范一点是：

它类似于在图形选定状态下按下ESC键

Sub Example()
'退出图形选定
    Dim myRange As Range
    Set myRange = Selection.ShapeRange(1).Anchor.Paragraphs(1).Range
    myRange.SetRange myRange.Start, myRange.Start
    myRange.Select
End Sub

雨雪霏霏

QUOTE:

以下是引用守柔在2007-5-9 6:57:39的发言：

比较规范一点是：

它类似于在图形选定状态下按下ESC键

老大神明！

以下是小弟的理解，请老大、孔兄和各位兄弟指点：

老大的宏极具针对性，该为正宗的“Word解剖大师”思路，针对的是非“嵌入式”图形，运行效果等同于按Esc键——将光标定位到图形锚点对应的段落的段首——是否也可以理解为这是老大对Esc命令在某种Case下的内部诠释？

对于“嵌入式”图形，可以选择用Selection方法来将光标位置折叠到图形的前边或后边。如果考虑到gao2ming1兄要求的“任意图形”，大概还是用Selection方法较周全（它还可以用于“任意文字”，呵呵）。

小弟这样的思路是“刀走偏锋”，没有正面迎敌。投机取巧不可取，还请老大、孔兄和各位好兄弟批评！