首页
学习
活动
专区
圈层
工具
发布
首页
学习
活动
专区
圈层
工具
MCP广场
社区首页 >问答首页 >如何在Mac上使用Excel保存Word文档?

如何在Mac上使用Excel保存Word文档?
EN

Stack Overflow用户
提问于 2020-09-25 21:57:59
回答 4查看 1.2K关注 0票数 0

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

语言版本: Word/Excel版本16.41

操作系统: Mac 10.14.6

我试过:(文件/文件)

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

我从零开始在不同的计算机和操作系统上工作。我现在使用Majave 10.14.6和Word/Excel版本16.41。我能够打开工具--引用--并选择单词库,但是现在引用没有高亮显示,也是不可点击的。(在此之前也是短暂的)

我遇到:

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

需要调试的行:

代码语言:javascript
运行
复制
Set wdApp = New Word.Application
代码语言:javascript
运行
复制
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
EN

Stack Overflow用户

发布于 2022-04-08 14:56:23

要找到保存到Mac文件夹的正确语法,请执行以下操作:

  • 打开文件
  • 记录宏
  • 保存文件(选择文件夹)
  • 停止录音
  • 编辑宏
  • 看看Word是如何在VisualBasic中翻译它的

以Word 16 (2019)为例:

代码语言:javascript
运行
复制
ActiveDocument.SaveAs2 FileName:= _
    "/Users/myusername/anyfolder/nameofthefile" & DocNum & ".txt" _
    , FileFormat:=wdFormatText, LockComments:=False, Password:="", _
    AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
    EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
    :=False, SaveAsAOCELetter:=False, Encoding:=65001, InsertLineBreaks:= _
    False, AllowSubstitutions:=False, LineEnding:=wdCROnly
票数 0
EN
查看全部 4 条回答
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接:

https://stackoverflow.com/questions/64071777

复制
相关文章

相似问题

领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档