有时我们需要把指定的单元格或区域中内容导出的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 ”库
导出效果图
