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

Question

我有一个包含邮件合并字段和公式（主要是 if 语句）的 word 文档。

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

有没有办法通过 VBA 到：

当我突出显示该字段时显示邮件合并 Field/Formula（通过消息框或其他方式）？
遍历所有 Mailmerge fields/formulae 并将它们输出到另一个 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

您最终应该得到一个仅包含字段（显示）、一些图像、制表符和 paragraph/line 分隔符的文档。

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

Looking for VBA Method to Display a Word Mailmerge Formula on screen or Output to Excel/Other Word Document

vba

ms-word

mailmerge