怎么用代码实现选中所有尾注？？(已解决)

zanjero · 发表于 2007-5-10 12:57

怎么用代码实现:

1.选中所有尾注？？

2.只有TypeBackspace，没有TypeDelete方法怎么办？？

[此贴子已经被作者于2007-5-10 19:24:32编辑过]

konggs · 发表于 2007-5-10 13:16

Sub SelectAllEndnote()
    Dim a As Endnote
    Dim myrange As Range
    For Each a In ActiveDocument.Endnotes
        Set myrange = a.Reference.Editors.Add(wdEditorEveryone)
    Next
    ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
    ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

zanjero · 发表于 2007-5-10 13:28

我可能没说清楚

第一个：想选中文章最后所有的尾注文本，不是文章中间的尾注序号

第二个问题呢？比如在每行行首Delete一个字符？（不用 .HomeKey .Moveright .TypeBackspace的方法）

[此贴子已经被作者于2007-5-10 13:53:05编辑过]

zanjero · 发表于 2007-5-10 19:03

自己搞定了

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