用excel的宏在word里进行表格转换成文本

conandst

我想要的效果是excel里的报告文字，复制粘贴到一张新建的word文档里，整体复制过去，是一张表格形式，然后利用word自带的功能按钮，表格转换成文本（段落标记），形成一张word格式的报告。于是我录制了一段代码，但是运行不下去，请大佬帮我看看。

gwjkkkkk

Sub SaveAsWord()
    Dim objWord As Object
    Dim objDoc As Object
   
    Set objWord = CreateObject("Word.Application") ' 创建一个新的Word应用程序对象
    Set objDoc = objWord.Documents.Add    ' 创建一个新的Word文档
    ar = Range("A1", Cells(Rows.Count, "A").End(xlUp)) ' 将当前工作簿的内容A列部分区域复制到Word文档中
    ar = Join(Application.Transpose(ar), vbCrLf) ' 将复制的内容粘贴到Word文档中
   
    Dim savePath As String
    savePath = ThisWorkbook.Path & "\" & "报告" & ".docx" ' 设置保存路径和文件名
    objDoc.Content = ar
    objDoc.SaveAs savePath   ' 保存Word文档
    objDoc.Close ' 关闭Word文档
    objWord.Quit ' 退出Word应用程序
    Set objDoc = Nothing ' 释放对象变量
    Set objWord = Nothing ' 释放对象变量
    MsgBox "工作簿已成功保存为Word文档。"
End Sub

gwjkkkkk

在原代码基础上简单修改 一下，不知达不到要求。。。

conandst

gwjkkkkk 发表于 2024-2-5 19:11
在原代码基础上简单修改 一下，不知达不到要求。。。

我测试了下，没有保留原格式，字体、居中，靠右对齐等设置都没了。

taller

conandst

我结合楼上2位大版主的代码，两位大佬的代码，各取一部分用。还出现一个问题，就是报告字体大小，原本都是黑体、宋体之类的，转存word之后，都变成等线这个字体了。有啥办法保留原格式转换？

taller

conandst 发表于 2024-2-7 16:23
我结合楼上2位大版主的代码，两位大佬的代码，各取一部分用。还出现一个问题，就是报告字体大小，原本都是 ...

这个可能没有办法保留，只能在Word中重新设置格式