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

link之家

链接快照平台

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

相关文章推荐

勤奋的充电器 · 如何在Excel ...· 1 月前 ·

爱喝酒的橙子 · Excel如何判断是否是小数-百度经验· 1 月前 ·

烦恼的四季豆 · [更新]Excel催化剂插件常见问题汇总开发者社区· 2 周前 ·

直爽的牛肉面 · python/openpyxl/DataVa ...· 1 周前 ·

长情的火锅 · python读取excel,获得下拉选中所有 ...· 1 周前 ·

个性的小马驹 · Python三引号用法与变量详解-阿里云开发者社区· 5 月前 ·

不开心的烤面包 · PHP修改图片 - nd - 博客园· 1 年前 ·

才高八斗的李子 · 跨境电商+AIGC ...· 2 年前 ·

有胆有识的帽子 · %E5%BD%A9%E7%A5%A8%E6% ...· 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 VBA中运用IsNumeric函数-百度经验

1 月前

爱喝酒的橙子 · Excel如何判断是否是小数-百度经验

1 月前

烦恼的四季豆 · [更新]Excel催化剂插件常见问题汇总开发者社区

2 周前

直爽的牛肉面 · python/openpyxl/DataValidation给 excel添加下拉列表_excel data validation list

1 周前

长情的火锅 · python读取excel,获得下拉选中所有选项_python获取下拉菜单内容 excel

1 周前

个性的小马驹 · Python三引号用法与变量详解-阿里云开发者社区

5 月前

不开心的烤面包 · PHP修改图片 - nd - 博客园

1 年前

才高八斗的李子 · 跨境电商+AIGC 2分钟制作一个视频，万兴播爆引爆出海视频内容营销！ - 知乎

2 年前

有胆有识的帽子 · %E5%BD%A9%E7%A5%A8%E6%BA%90%E7%A0%81%E7%A8%8B%E5%BA%8F%E5%AE%89%E8%A3%85%E6%95%99%E7%A8%8B%E4%B8%8B%E8%BD%BD%E3%80%90%E行业资讯 - X-MO

2 年前

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

Stack Overflow用户