將VBA按鈕複製到Word文檔問題

Question

下面的代碼從我的工作簿複製工作表並將其粘貼到新的Word文檔中。我遇到的唯一問題是Word文檔打開並複製信息，但其保留在底部的任務欄上，並且實際上並未打開屏幕上的頁面（如果這是有意義的）。有人能告訴我我錯過了什麼嗎？任何幫助，謝謝。

Sub btnExport() 
Dim objWord As Word.Application 
Range("C2:D60").Copy 
Set objWord = CreateObject("Word.Application.14") 
With objWord 
    .Documents.Add 
    .Visible = True 
    .Selection.Paste 
    .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow 
End With 
End Sub 

Answer 1

您End Sub之前，只是這樣做：

objWord.Activate 

應用程序啓動時一樣，在任務欄，以便使它獲得焦點的用戶，則需要將其激活。或者，您也可以使用AppActivate聲明，但這需要知道剛剛添加的文檔的名稱。要做到這一點，我給你另一個變量doc到Documents.Add方法的返回，然後我們可以做AppActivate doc.Name：

Sub btnExport() 
Dim objWord As Word.Application 
Dim doc as Word.Document 
Range("C2:D60").Copy 
Set objWord = CreateObject("Word.Application.14") 
With objWord 
    Set doc = .Documents.Add 
    .Visible = True 
    .Selection.Paste 
    .ActiveDocument.Tables(1).AutoFitBehavior 2 'wdAutoFitWindow 
End With 
AppActivate doc.Name 
End Sub