写入word_“Excel附注”批量写入“Word附注”的实现方法

最新推荐文章于 2024-08-17 08:32:30 发布

一只小呆橘阿

最新推荐文章于 2024-08-17 08:32:30 发布

阅读量2k

点赞数 1

文章标签：写入word

本文链接：https://blog.csdn.net/weixin_34355360/article/details/112591484

版权

本文介绍了如何使用VBA将Excel中的附注批量写入Word附注，提高办公效率。通过编写VBA代码，实现Excel内容到Word表格的批量导入，适合需要处理大量附注的场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

怎么才能把“Excel附注”批量写入“Word附注”？

其实在我之前的工作中也遇到过这个问题，由于种种原因，一直没去钻研。后来我出的审计报告中已经很少涉及报表附注了(专项审计居多)，所以也没在这方面进行深入的研究。

就在前段时间，有位报名买我课的小伙伴咨询我：怎么才能把“Excel附注”批量写入“Word附注”？

因为他经常需要这样处理附注。

于是在空闲之余，我也稍加研究了一下“Excel附注”批量写入“Word附注”的实现方法。

首先想到的就是用过VBA来实现此功能。

当前文件夹下有我们的Excel附注和Word附注：

测试文件中，我只摘取了附注的一部分进行测试。

我在Excel附注中写了这么一段VBA代码：

Sub test()On Error GoTo 100   Dim Word对象 As New Word.Application, 当前路径, 文件路径, i, j   当前路径 = ThisWorkbook.Path   判断 = 0      文件路径 = 当前路径 & "\test - 附注.docx"      With Word对象        .Documents.Open 文件路径        .Visible = False        Set myTable = ActiveDocument.Tables(1)        With myTable        For j = 1 To 20                 If j = 1 Then               For i = 3 To 8                    .Cell(j, i - 1).Range = Cells(j, i)                    .Cell(j, i - 1).Range = Cells(j, i)                    .Cell(j, i - 1).Range = Cells(j, i)                    .Cell(j, i - 1).Range = Cells(j, i)                    .Cell(j, i - 1).Range = Cells(j, i)                    .Cell(j, i - 1).Range = Cells(j, i)               Next                    Else               For i = 3 To 8                      .Cell(j, i).Range = Cells(j, i)                    .Cell(j, i).Range = Cells(j, i)                    .Cell(j, i).Range = Cells(j, i)                    .Cell(j, i).Range = Cells(j, i)                    .Cell(j, i).Range = Cells(j, i)                    .Cell(j, i).Range = Cells(j, i)               Next            End If              Next        End With         End With        If 判断 = 0 Then      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")   End If100:   Word对象.Documents.Save   Word对象.Quit   Set Word对象 = NothingEnd Sub

下面我们就可以通过Excel附注中的VBA代码来实现这一神奇的功能。

实现过程：

Word附注的最终效果：