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

相关文章推荐

失落的汽水 · Excel公式提取最后一个分隔符右边的数据_ ...· 3 周前 ·

淡定的盒饭 · 我想在Excel文件中添加超链接使用Open ...· 2 周前 ·

果断的围巾 · OpenXml ...· 2 周前 ·

耍酷的芹菜 · OpenXml 之 Excel ...· 2 周前 ·

长情的啤酒 · 表格 wps excel vba ...· 2 周前 ·

气宇轩昂的葫芦 · 巧用Freemarker的自定义方法_51C ...· 1 年前 ·

玩足球的可乐 · Python ...· 1 年前 ·

从容的柳树 · Python之数据序列化（json、pick ...· 1 年前 ·

潇洒的充电器 · Python ...· 1 年前 ·

腹黑的板凳 · Webview加载pdf遇到的一些坑及解决方 ...· 1 年前 ·

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公式提取最后一个分隔符右边的数据_函数_思路_方法

3 周前

淡定的盒饭 · 我想在Excel文件中添加超链接使用Open XML，当单击超链接时打开另一个选项卡-腾讯云开发者社区-腾讯云

2 周前

果断的围巾 · OpenXml 获取Excel文件指定工作簿中的表格部件和表格数量_officeopenxml xls文件获不到sheet-CSDN博客

2 周前

耍酷的芹菜 · OpenXml 之 Excel 复制插入行_openxml 插入行-CSDN博客

2 周前

长情的啤酒 · 表格 wps excel vba VLOOKUP 自定义函数数组查找_哔哩哔哩_bilibili

2 周前

气宇轩昂的葫芦 · 巧用Freemarker的自定义方法_51CTO博客_freemarker 自定义方法

1 年前

玩足球的可乐 · Python xpath表达式如何实现数据处理-腾讯云开发者社区-腾讯云

1 年前

从容的柳树 · Python之数据序列化（json、pickle、shelve） - 云游道士 - 博客园

1 年前

潇洒的充电器 · Python pandas将这个Json规范化为pandas

1 年前

腹黑的板凳 · Webview加载pdf遇到的一些坑及解决方法 - 腾讯云开发者社区-腾讯云

1 年前

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

Stack Overflow用户