如何在Mac上使用Excel保存Word文档？开发者社区

link之家

链接快照平台

输入网页链接，自动生成快照
标签化管理网页链接

相关文章推荐

飘逸的野马 · 在 Excel 中将命令发送到程序时出错 ...· 1 月前 ·

文武双全的灭火器 · Excel“向程序发送命令时出现问题”之终极 ...· 1 月前 ·

乖乖的绿豆 · Configuration options ...· 1 年前 ·

淡定的盒饭 · 用 Python ...· 2 年前 ·

侠义非凡的苦瓜 · MD5三种方式加密（16位大小、32位大小） ...· 2 年前 ·

飘逸的饭卡 · mysql - [MySQL] 如何存储 ...· 2 年前 ·

踢足球的鸭蛋 · 快速入門 – Azure Key ...· 2 年前 ·

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

ActiveDocument.SaveAs2 FileName:= _

推荐文章

飘逸的野马 · 在 Excel 中将命令发送到程序时出错 - Microsoft 365 Apps | Microsoft Learn

1 月前

文武双全的灭火器 · Excel“向程序发送命令时出现问题”之终极解决-百度经验

1 月前

乖乖的绿豆 · Configuration options for Linux package installations | GitLab

1 年前

淡定的盒饭 · 用 Python 创作酷炫的几何图形-python绘制图形

2 年前

侠义非凡的苦瓜 · MD5三种方式加密（16位大小、32位大小），base64两种方式加解密整理 - 简书

2 年前

飘逸的饭卡 · mysql - [MySQL] 如何存储 array比较合适? - SegmentFault 思否

2 年前

踢足球的鸭蛋 · 快速入門 – Azure Key Vault Python 用戶端程式庫 – 管理祕密 | Microsoft Learn

2 年前

问 如何在Mac上使用Excel保存Word文档？

Stack Overflow用户