有时我们需要把指定的单元格或区域中内容导出的Word，同时希望把公式也添加到Word中。方便编写文档

下面自定义VBA函数代码可以实现这个功能，可以将选择的单元格或区域中的公式内容添加到Word中，方便打印。

在VBE模块中添加以下代码，按F5或者运行此代码即可

Public Sub PrintFormulasToWord()     Dim Cnt As String     Dim C As Range     Dim WordObj As Word.Application     Dim HasArr As Boolean     On Error Resume Next     err.Number = 0     Set WordObj = GetObject(, "Word.Application")     If err.Number = 429 Then         Set WordObj = CreateObject("Word.Application")         err.Number = 0     End If     WordObj.Visible = True     WordObj.Documents.Add     With WordObj.Selection         .Font.Name = "Courier New"         .TypeText "工作表名称：" + ActiveSheet.Name         .TypeParagraph         .TypeText "单元格： " + Selection.Cells(1, 1).Address(False, False, xlA1) & " to " & Selection.Cells(Selection.Rows.count, Selection.Columns.count).Address(False, False, xlA1)         .TypeParagraph         .TypeParagraph     End With     For Each C In Selection         HasArr = C.HasArray         Cnt = C.Formula         If HasArr Then             Cnt = "{" + Cnt + "}"         End If         If Cnt <> "" Then             With WordObj.Selection                 .Font.Bold = True                 .TypeText C.Address(False, False, xlA1) & ": "                 .Font.Bold = False                 .TypeText Cnt                 .TypeParagraph                 .TypeParagraph             End With         End If     Next C     MsgBox "已完成将指定单元格公式打印到Word中。 ", , "打印公式到Word" End Sub

注意：需要单击菜单“工具→引用”，引用“Microsoft Word 14.0 Object Library ”库

导出效果图