VBAボタンシートをWord文書にコピーする

Question

以下のコードは、ワークブックからシートをコピーし、新しいWord文書にペーストします。私が抱えている唯一の問題は、Word文書が開いて情報をコピーすることですが、その情報は下部のタスクバーに残り、実際に画面上のページを開くことはありません。誰かが私に行方不明を教えてもらえますか？何でも助けてくれてありがとう。あなたのEnd Sub前

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

、ちょうどこの操作を行います。

を

objWord.Activate 

アプリケーションは、ユーザーのための焦点で、それを持って来るためには、あなたがそれを有効にする必要があり、タスクバーにそのように起動します。あるいは、AppActivateステートメントを使用することもできますが、これはちょうど追加されたドキュメントのという名前のを知る必要があります。これを行うには、私はDocuments.Addメソッドの戻り値を別の変数docを割り当て、その後、我々は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