VBAbutton复制到Word文档问题

下面的代码从我的工作簿复制工作表并将其粘贴到一个新的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语句，但这需要知道刚刚添加的文档的名称 。 为此，我将另一个variablesdoc分配给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