将 Excel 图表复制到 Word 的 VBA 脚本在更高版本的 Word 中不起作用

Question

我正在尝试将 Excel 图表复制到 Word。我在 Excel 中有以下脚本，它适用于 PC 版 Office 2003 和 Office Mac 2011。在更高版本的 Office (2016) 中，图表在粘贴时不会调整大小，并且它搜索的标记不会被图表替换为它在早期版本中。这是有效但不适用于更高版本的 Office 的脚本。任何帮助将不胜感激。

ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Set wrd = CreateObject("Word.Application")
wrd.Documents(DocumentName).Activate
        wrd.Selection.Find.ClearFormatting
        With wrd.Selection.Find
            .Text = "insert" & ChartName 'This is the token it is looking for in the Word document and is where the chart should be inserted. 
            .Replacement.Text = ""
            .Forward = True
            .Wrap = 1 'wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
            .Execute
            If .Found = True Then
                wrd.Selection.PasteAndFormat Type:=13  'wdChartPicture
            End If

在早期版本的 Office 中，此脚本通过查找标记并将其粘贴来获取活动图表并将其复制并粘贴到 Word 中。标记被图表替换并且图表被调整大小。在较新的版本中，标记保留在图表的底部，并且图表没有调整大小。

如果无法弄清楚为什么它不起作用，是否可以编写代码以强制它在所有版本的 Office 中工作？我试图确保所有偏好都相同，但我可能错过了一些可能导致问题的偏好。任何想法都将不胜感激，因为这对我来说是一个相当大的问题。

Answer 1

你基本上有两个问题：

1. 为什么这在 Excel 2016 中不起作用
2. 如何使此代码独立于版本和操作系统？

我没有 2016 Excel，也没有 Mac OS，所以我可能无法回答 #1，但我将分享我在 Excel 2010 和 2013 中的一些发现，以防万一帮助您在 2016 年找到解决方案. 我可以回答下面的#2。

Excel 2010/2013 调查结果：

在 2010 Excel 中，我能够看到一些类似的问题，.Execute 实际上并没有替换文本。我观察到.Execute 正在更改选择——本质上是.Execute选择找到的文本。 IOW，它不默认为 replace，它只是 finds 和 selects。为了替换，我需要这样做：

.Execute Replace:=wdReplaceAll

但是，两者都粘贴（PasteAndFormat 或 ExecuteMso 都成功替换了新的“选择”。

我在 Excel 2013 中观察到相同的情况、which is the latest version documented on MSDN 和大概与 2016 年相同的对象模型。

NB 我使用了.CopyPicture 方法而不是.Copy 方法。使用这种方法可能会更好。值得一试。

对独立于版本（和独立于操作系统的代码）的追求

是否可以以强制其在所有版本的 Office 中工作的方式编写代码？

是的，这需要确定每个版本的工作原理，并使用称为Conditional Compilation 的技术。通常，此技术用于适应对象模型中可能引发编译错误的更改。

例如，假设 这个 代码块在 2003 年工作：

        .Execute
        If .Found = True Then
            wrd.Selection.PasteAndFormat Type:=13  'wdChartPicture
        End If

而这段代码在 2010 年和 2013 年都有效：

        .Execute Replace:=wdReplaceAll
        If .Found = True Then
            wrd.CommandBars.ExecuteMSO "PasteAsPicture"
        End If

还有一些其他代码在 2016+ 年有效（这不是真正的代码，但请耐心等待）：

       .Execute Replace:=wdReplaceAll
       If .Found = True Then
           wrd.SOMETHING_FOR_2016
       End If

那么你会这样做：

#If Mac Then
    Debug.Print "Mac"
    .Execute
    If .Found = True Then
        wrd.SOMETHINGFORMAC 'pseudo-code
    End If
#Else
    Debug.Print "Windows"
    Select Case CLng(Application.Version)
        Case 11 'Excel 2003
            Debug.Print 2003
            .Execute
            If .Found = True Then
                wrd.Selection.PasteAndFormat Type:=13  'wdChartPicture
            End If
        Case 14 'Excel 2010
            Debug.Print 2010
            .Execute Replace:=wdReplaceAll
            If .Found = True Then
                wrd.CommandBars.ExecuteMSO "PasteAsPicture"
            End If
        Case 15 'Excel 2013
            Debug.Print 2013
            .Execute Replace:=wdReplaceAll
            If .Found = True Then
                wrd.CommandBars.ExecuteMSO "PasteAsPicture"
            End If
        Case Is > 15 'Excel 2016+
            Debug.Print "2016+"
           .Execute Replace:=wdReplaceAll
           If .Found = True Then
               wrd.SOMETHING_FOR_2016
           End If
        Case Else
            MsgBox "Other versions would require add'l logic..."
    End Select
#End If