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

相关文章推荐

坚强的馒头 · phpexcel 一些基本设置总结 - ...· 3 月前 ·

刚分手的皮蛋 · 咨询：无需VBA实现Excel单元格内容自动 ...· 2 月前 ·

大鼻子的荒野 · NPOI ...· 12 月前 ·

傻傻的南瓜 · 机器视觉必看课程【缺陷检测】-基于Pytho ...· 1 年前 ·

玩命的拖把 · 如何在Hologres中优化内部表的性能_实 ...· 2 年前 ·

爱笑的登山鞋 · JDBC和mysql及oracle中的Dat ...· 3 年前 ·

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:= _

推荐文章

坚强的馒头 · phpexcel 一些基本设置总结 - 声声慢43

3 月前

刚分手的皮蛋 · 咨询：无需VBA实现Excel单元格内容自动匿名化的方法

2 月前

大鼻子的荒野 · NPOI HSSFWorkbook替换为XSSFWorkbook无法导出文件_hssfworkbook转xssfworkbook-CSDN博客

12 月前

傻傻的南瓜 · 机器视觉必看课程【缺陷检测】-基于Python的人工智能机器学习_哔哩哔哩_bilibili

1 年前

玩命的拖把 · 如何在Hologres中优化内部表的性能_实时数仓Hologres-阿里云帮助中心

2 年前

爱笑的登山鞋 · JDBC和mysql及oracle中的Date,Time,Timestamp处理_mysql jdbc timestamp_闲人不梦卿的博客-CSDN博客

3 年前

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

Stack Overflow用户