时间戳

首页 > 解决方案 > 如何在 Mac OS 上使用 Excel VBA 保存 Word 文档？

excel - 如何在 Mac OS 上使用 Excel VBA 保存 Word 文档？

问题描述

我正在尝试运行 Excel VBA 子例程来保存 Word 文档。

语言版本：Word/Excel 版本 16.41
操作系统：Mac OS Mojave 10.14.6

我试过了：（https://www.reddit.com/r/vba/comments/ivwxlw/trouble_with_path_when_saving_basic_word_document/）

（https://answers.microsoft.com/en-us/msoffice/forum/all/excel-vba-macro-to-save-as-basic-word-document/df78bf58-ec21-4502-abfe-bc3df1fca7ae）

我在不同的计算机和操作系统上从头开始。我现在使用 Mac OS Majave 10.14.6 和 Word/Excel 版本 16.41。我能够打开工具-引用-并选择 Word 库，但现在引用未突出显示且无法单击。（之前也是短暂的）

我遇到：

运行时错误 -2146959355 (80080005) 自动化错误。

需要调试的行：

Set wdApp = New Word.Application

Option Explicit

Sub CreateBasicWordReportEarlyBinding()

    Dim wdApp As Word.Application

    Set wdApp = New Word.Application
    With wdApp

        .Visible = True
        .Activate
        .Documents.Add
       
        With .Selection
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .BoldRun
            .Font.Size = 18
            .TypeText "Best Movies Ever"
            .BoldRun
            .Font.Size = 12
            .TypeText vbNewLine
            .ParagraphFormat.Alignment = wdAlignParagraphLeft
            .TypeParagraph

        End With

        Range("A2", Range("A2").End(xlDown).End(xlToRight)).Copy

        .Selection.Paste

        .ActiveDocument.SaveAs2 Environ("UserProfile") & "\Desktop\MovieReport.docx"

        .ActiveDocument.Close

        .Quit

    End With

   Set wdApp = Nothing
End Sub

标签： excelvbamacosms-word

解决方案

请参阅freeflow的评论，该评论应作为答案发布。在 VBE 中，选择工具 > 参考 > Microsoft Word 16.0 对象库。

推荐阅读