正在寻找在屏幕上显示Word邮件合并公式或输出到Excel/其他Word文档的VBA方法

Question

我有一个word文档，其中包含mailmerge字段和公式(主要是if语句(。

它们嵌入的单元格太小，如果不将公式复制粘贴到记事本中，我就无法查看字段或公式。

有没有办法通过VBA实现：

1. 当我高亮显示邮件合并字段/公式时，是否显示该字段/公式(通过消息框或其他方式(
2. 循环浏览所有Mailmerge字段/公式，并将它们输出到另一个word文档或excel电子表格

Answer 1

制作mailmerge主文档的副本，然后对副本运行以下宏：

Sub Demo()
Application.ScreenUpdating = False
ActiveWindow.View.ShowFieldCodes = False
With ActiveDocument.Range
Do While .Tables.Count > 0
.Tables(1).ConvertToText vbTab
Loop
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Replacement.Text = ""
.Format = False
.Wrap = wdFindContinue
.MatchWildcards = True
.Text = "[^32-^255]"
.Execute Replace:=wdReplaceAll
End With
.Style = wdStyleNormal
.Font.Reset
.Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = True
Application.ScreenUpdating = True
End Sub

你最终应该得到一个文档，只包含字段(显示(，一些图像，选项卡&段落/换行符。