从Excel 单元格定位到Word 文档中指定的位置带来的思考

作者： unknow

@#以下VBA脚本实现标题阐述功能，考虑以下问题：
如何捕获一个Cell单元格的单击事件？Excel 中能否添加处理其他的Windows 消息？
@#Unit   :   mcc
@#Fun    :   Goto exactly position in Word from Excel impls by VBA.
@#args   :   Bookmark string(predefined in Word handed yourself or using tools)
@#ref    :   Ms Word/Excel object lib.
@#modify :   1.open word archives in readonly way 2.get abs path using for anchor
@#future :   1.search by string exactly
@#Author :   qjwxsd
@#DT     :   2005-04-18～～

Const TC3 = "TC03_軟体版權管理\TC03_Software license management"
Const TC4 = "TC04_配備資源管理\TC04_Periphery resource"
Const TC10 = "TC10_資料安全管理\TC10_Data security management"

Public Sub gotoWord(FileName, Bookmark As String)
    On Error Resume Next
    Dim a As Word.Application
    Dim b As Word.Document

    Dim c As Excel.Application
    Dim d As Excel.Workbook
    Dim e As Excel.Worksheet

    Dim path As String

    Set c = GetObject(, "Excel.Application")
    Set d = c.ActiveWorkbook
    Set e = d.ActiveSheet
    @#path = c.path
    path = d.path
    @#取得当前功能清单的路径，传到Word中。否则Word无法取得路径，
    @#打开相应的TC。
    Set a = GetObject(, "Word.Application")
    If a = Null Then
        Set a = CreateObject("Word.Application")
    End If

    @#a.Documents.Open "H:\0408\PCmain5.5.0 _Other.doc"
    @#MsgBox a.Path
    @#MsgBox Application.Path
    @#MsgBox CurDir
    @#MsgBox a.Documents.Item(0).FullName

    a.Documents.Open path & "\" & FileName & ".doc", ReadOnly:=True
    a.Selection.GoTo what:=wdGoToBookmark, Name:=Bookmark
    a.Visible = True
    a.Activate @#前台显示Word窗体
End Sub

Private Sub Label1_Click()
    gotoWord TC3, "TC3_1"
End Sub

Private Sub Label10_Click()
    gotoWord TC4, "TC4_4"
End Sub

返回顶部

下一篇：如何定制Web服务器控件的TagPrefix 而不是出现cc1 >>