vba - 后期装订 wdGoToBookmark

Question

我必须使用后期绑定(bind)。我如何替换以下内容？

Sub CopyCell(wd As Object, stringcell As String, BookMarkName As String)

       'find Word bookmark
        wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName

        wd.Selection.TypeText stringcell 
 End Sub

感谢急需的帮助

Answer 1

我会将它保留在原处，但在模块级别将其声明为常量，可能在它自己的 WordConstants 中模块:

Public Const wdGoToBookmark As Long = -1

或者更好的是，重新创建枚举类型:

Public Enum WdGoToItem
    wdGoToBookmark = -1
    wdGoToComment = 6
    '...
End Enum

您可以在 MSDN 上找到枚举定义。

这样，此代码仍然合法:

wd.Selection.GoTo What:=wdGoToBookmark, Name:=BookMarkName

它只是不再解析为在引用库中声明的常量。

或者你可以硬编码一个魔法 -1现场值，但随后就很难知道它代表什么，因此将其放在评论中并不是一个坏主意:

wd.Selection.GoTo What:=-1, Name:=BookMarkName ' -1: wdGoToBookmark