Cal的文本框和箭头在页面上徘徊时出现问题。

他想知道是否有一种方法可以将锚锁定为默认值，而不是必须为他添加的每个文本框和图形锁定锚？

简短的答案是没有办法。原因是，当大多数人没有将锚定对象放置在文档中的第一位时，锁定锚定就没有多大意义。例如，虽然您可能能够正确地判断文本框的位置（并因此从一开始就将其锚定），但很有可能在添加箭头后需要移动和调整箭头。直到发生移动和调整之后，将它们锚定并没有多大用处。

您可以做的下一件事是创建一个宏，该宏将为您锚定或取消锚定对象。然后可以将宏添加到工具栏按钮或快捷键，以便您可以选择一个对象并简单地切换是否固定。当您有许多对象时，这将节省大量时间，因为您无需经历显示对话框和更改锚设置的麻烦。

Sub ToggleShapeAnchor()

Dim newlockAnchorSetting As Boolean     If Selection.Type = wdSelectionShape Then         If (Selection.ShapeRange.Count >= 1) Then             newlockAnchorSetting = Not Selection.ShapeRange(1).LockAnchor         End If         For Each Shape In Selection.ShapeRange             Shape.LockAnchor = newlockAnchorSetting         Next     End If End Sub

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（7745）适用于Microsoft Word 97、2000、2002和2003。您可以在Word（Word 2007）的功能区界面中找到此技巧的版本。和更高版本）在这里：

默认锚定对象。