☰

有没有办法将 Excel 数据以特定格式复制到 Word 中？

tag-icon • tag-icon microsoft-excel microsoft-word script formatting
有没有办法将 Excel 数据以特定格式复制到 Word 中？

我就不说细节了，但本质上我想写一本学习指南或一本语言学习书。我想知道是否有一种快速简便的方法（甚至是困难的方法哈哈）可以按照某些特定格式快速将单元格导出到 Word 文档？我制作了一个示例 Excel 和 Word 文档来更好地解释，但别担心，我不会保留这种格式哈哈，它太丑了。我只是想知道是否有办法从单元格中获取信息并将其粘贴到 Word 等中的特定行上。我是否必须编写一些脚本……？任何帮助都将不胜感激！

该屏幕截图显示了我正在尝试做的事情。 我想要实现的目标示例

编辑 我尝试过使用 VBA 但是失败了。

Sub dataToWord()

    Dim wordApp As Word.Application
    Dim templateFile As Object
    Dim c As Integer
    
    On Error Resume Next
    Set wordApp = GetObject(, "Word.Application") 'gives error 429 if Word is not open
    On Error GoTo 0 'stop ignoring errors
    If wordApp Is Nothing Then
        Set wordApp = CreateObject("Word.Application") 'creates a Word application
    End If

    wordApp.Visible = True

    Set templateFile = wordApp.Documents.Open(ThisWorkbok.Path & "/" & Range("E1").Value & ".docx")
    wordApp.Visible = True
    c = 2
    
    For i = 1 To 3
            
            templateFile.ContentControls(i).Range.Text = Sheets("Data").Cells(2, c)
            c = c + 1

    Next i
    
    wordApp.Documents.Close
    wordApp.Quit
    
End Sub

我使用的 Excel 和 Word 文档如下所示

我正在查看教程并发现邮件合并，所以我可能只会这样做。

编辑2

继续使用邮件合并，但重音符号有问题。问题是字母显示为下划线看这里

答案1

邮件合并主要是为了允许一封信或其他文件发送给多个收件人。然而，正如@CharlesKenyon在评论中指出的那样，它可以与图形一起使用我认为邮件合并是可行的方法。

您将把 Word 文档链接到 Excel 文件，并且只要您对 Excel 文件进行任何更改，Word 文件就会相应更新。

您只需使用 Word 文件来按照您希望的方式格式化最终文档。

相关内容