將Word標題導出到Excel用戶窗體1文本框

Question

我需要VBA代碼才能在Excel用戶窗體1文本框中獲取標題書籤。請幫助我。我有頁數，但無法得到這個。我已經放置了下面的代碼，我試過了，但它不起作用。

我在得到錯誤：

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

和

wst.txtstatementof.Text = "MyBookmark" 

在此先感謝。

子ExportBookmarksToExcel（） 昏暗的BK作爲書籤 昏暗appXl作爲Excel.Application 昏暗WBK作爲Excel.Workbook 昏暗WST作爲Excel.Worksheet 暗淡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