从Excel复制内容并粘贴到MS Word中的宏

Question

我有一个从Excel到Word的报告生成宏的想法。

Excel中的报告格式如下。

文字报告

现有以下代码可复制并粘贴到word中。 但是有没有办法像上面的屏幕截图一样格式化它？

Sub TestingMacAndWin()
Dim appWD As Object
Dim wddoc As Object

On Error Resume Next
Set appWD = GetObject(, "Word.application")    'gives error 429 if Word is not open
If Err = 429 Then
    Set appWD = CreateObject("Word.application")    'creates a Word application
    Err.Clear
End If

Set wddoc = appWD.Documents.Add
appWD.Visible = True

With appWD.ActiveDocument.PageSetup
    .TopMargin = appWD.InchesToPoints(0.3)
    .BottomMargin = appWD.InchesToPoints(0.3)
    .LeftMargin = appWD.InchesToPoints(0.3)
    .RightMargin = appWD.InchesToPoints(0.3)
End With

Sheets("Sheet1").Range("A1:D2").CopyPicture xlScreen
appWD.Selection.Paste

appWD.Activate

End Sub

来源： http : //www.rondebruin.nl/mac/mac030.htm

Answer 1

粘贴您的数据。停止Macro（ stop命令将执行此操作），然后记录格式（ Alt + T，M，R ）。 去获取录制的宏，然后将其粘贴到宏中，修复您正在处理的对象（例如，将.ActiveDocument为AppWD.ActiveDocument尽管您可能不必这样做）。

多年来，COM发生了变化，现在建议将GetObject对象作为Document对象而不是Application对象。 它消除了Application对象上的引用计数问题，其中，应用程序在关闭时不会退出。