无法激活Word应用程序

Question

我正在写一个宏，将一堆表格和图表粘贴到Word文档中，然后上传到我们的保险公司系统。我试着做了一个小样本，并不断得到一个错误，Word应用程序无法激活。

Sub PasteToWord()
Dim wordapp As Word.Appliation
Dim worddoc As Word.Document
Dim xlrng As Range
Set wordapp = New Word.Application
wordapp.Activate
wordapp.Visible = True
Set worddoc = wordapp.Documents.Add
Set xlrng = ActiveSheet.Range("A1:A10")
xlrng.copy
worddoc.Paragraphs(1).Range.PasteExcelTable False, True, False
End Sub

Answer 1

您需要在激活任何东西之前显示应用程序:

Sub PasteToWord()
Dim wordapp As Word.Appliation
Dim worddoc As Word.Document
Dim xlrng As Range
Set wordapp = New Word.Application

wordapp.Visible = True
wordapp.Activate

Set worddoc = wordapp.Documents.Add
Set xlrng = ActiveSheet.Range("A1:A10")
xlrng.copy
worddoc.Paragraphs(1).Range.PasteExcelTable False, True, False
End Sub