Microsoft Word 365中GetFromClipboard的替代方案需求

问题背景 #

原VBA代码通过DataObject.GetFromClipboard读取剪贴板内容到变量，运行多年后部分客户端频繁报错：

DataObject:GetFromClipboard OpenClipboard Failed.

报错初期为运行25次后触发，后续需多次重启宏，现在首次执行即报错，仅单台同配置电脑可正常运行。

原代码示例：

Public var1
Dim MyData As DataObject
Set MyData = New DataObject
Dim var1 As String  

' 定位并选中文本的额外代码
Selection.Copy
MyData.GetFromClipboard
var1 = MyData.GetText(1)

核心需求 #

替代方案需支持存储的变量在嵌套或被调用的宏中访问，此前尝试的Static、PutInClipboard等Excel方案在Word中无效。

替代方案 #

方案1：直接读取选中文本，绕开剪贴板（推荐） #

原代码的核心目的是获取选中的文本，无需通过剪贴板中转，直接利用Word的Selection.Text属性即可获取，同时将变量声明为公共模块级变量，确保所有宏可访问。

步骤1：声明公共变量

在标准模块（如Module1）的最顶部声明公共变量：

Public var1 As String ' 公共变量，所有宏均可直接访问

步骤2：修改获取文本的宏

Sub GetSelectedText()
    ' 保留原有的定位并选中文本的代码
    
    ' 直接读取选中的文本，无需操作剪贴板
    var1 = Selection.Text
End Sub

方案优势

• 彻底避免剪贴板操作带来的OpenClipboard Failed错误，稳定性大幅提升
• 公共变量声明在标准模块顶部，任何嵌套或被调用的宏都能直接使用var1

方案2：需同步复制到剪贴板时的兼容写法 #

如果业务逻辑需要同时将文本复制到剪贴板，可保留Selection.Copy，但仍直接通过Selection.Text获取变量，无需从剪贴板读取：

Sub CopyAndGetText()
    ' 保留原有的定位并选中文本的代码
    
    Selection.Copy ' 复制到剪贴板
    var1 = Selection.Text ' 直接读取选中文本到变量
End Sub

内容的提问来源于stack exchange，提问作者Loui Tucker