将 Word 标题书签导出到 Excel UserForm1 文本框

Question

我需要 VBA 代码来获取 Excel UserForm1 文本框中的标题书签。请帮助我。我有页数，但无法得到这个。我已将代码放在下面，我已经尝试过，但它不起作用。

我收到错误：

Set wbk = ObjExcel.Workbooks.Open("C:\Users\Desktop\Test-2.xlsm")

和

wst.txtstatementof.Text = "MyBookmark"

提前致谢。

Sub ExportBookmarksToExcel() 将 bk 调暗为书签 Dim appXl As Excel.Application 将 wbk 调暗为 Excel.Workbook 暗淡为 Excel.Worksheet Dim x As UserForm1

Set appXl = CreateObject("Excel.Application")
Set wbk = ObjExcel.Workbooks.Open("C:\Users\Desktop\Test-2.xlsm")
With appXl
    .Visible = True
    Set wbk = .Workbooks.Add
    Set wst = wbk.UserForm1
     wst.txtstatementof.Text = "MyBookmark"
  End With

'For each bk In ActiveDocument.Bookmarks
    'lRow = lRow + 1
 '   wst.x.UserForm1.txtstatementof.Text = bk.Name
    'wst.Cells(lRow, 2) = bk.Range.Text
'Next bk
'wst.UsedRange.Columns.AutoFit

 End Sub

Answer 1

实际上，您离成功不远了。当然，这必须失败：-

Set appXl = CreateObject("Excel.Application")
Set wbk = ObjExcel.Workbooks.Open("C:\Users\Desktop\Test-2.xlsm")

您可以看到您的 Excel 应用程序名为 appXl。因此无法回复ObjExcel.Workbooks.Open。

下面是有效的代码。

Sub ExportBookmarksToExcel()

    ' MS Word variables:
    Dim Bk As Bookmark
    Dim R As Long

    ' MS Excel variables:
    Dim appXl As Excel.Application
    Dim Wbk As Excel.Workbook
    Dim Wst As Excel.Worksheet

    Set appXl = CreateObject("Excel.Application")
    With appXl
        .Visible = True
'        Set Wbk = .Workbooks.Open("C:\Users\Desktop\Test-2.xlsm")
        Set Wbk = .Workbooks.Add
        Set Wst = Wbk.Worksheets(1)
'        Wst.txtstatementof.Text = "MyBookmark"     ' what is "txtstatementof" ?
    End With

    R = 2                                           ' keep Row 1 for captions
    For Each Bk In ActiveDocument.Bookmarks
        Wst.Cells(R, 1) = Bk.Name
        Wst.Cells(R, 2) = Bk.Range.Text
        R = R + 1
    Next Bk
    Wst.UsedRange.Columns.AutoFit

 End Sub