Word模板UserForm多文本框内容独立复制到剪贴板问题求助

嘿，这个问题我太懂了！你遇到的就是剪贴板默认“覆盖式存储”的坑——普通的VBA复制方法每次只会把最新内容塞进剪贴板，之前的自然就被冲没了。要实现两个文本框内容作为独立条目共存，我给你两个靠谱的解决方案，都是在Word VBA里能直接用的：

Office自带的剪贴板本来就支持多条目存储，我们直接调用它就行，不用折腾复杂的系统API。把下面的代码放到你UserForm的提交按钮点击事件里：

Private Sub cmdSubmit_Click()
    ' 创建Office剪贴板对象（Late Binding，无需额外引用）
    Dim officeClipboard As Object
    Set officeClipboard = CreateObject("Office.Clipboard")
    
    ' 先清空剪贴板（可选，避免旧内容干扰）
    officeClipboard.Clear
    
    ' 把第一个文本框内容添加为剪贴板条目
    officeClipboard.PutInClipboard Me.TextBox1.Text
    
    ' 把第二个文本框内容添加为独立条目
    officeClipboard.PutInClipboard Me.TextBox2.Text
    
    MsgBox "两个内容已经存到Office剪贴板啦！你可以按Ctrl+V依次粘贴，或者打开Word「开始」选项卡的剪贴板面板直接选择要粘贴的内容~"
    
    ' 释放对象，避免内存占用
    Set officeClipboard = Nothing
End Sub

小提示： #

• 如果想更高效，可以用Early Binding：打开VBA编辑器→点击「工具」→「引用」→勾选「Microsoft Office xx.x Object Library」，然后把代码里的CreateObject("Office.Clipboard")改成New Office.Clipboard就行，编辑器还会给你提示代码补全。
• 打开Office剪贴板面板的方法：点击Word「开始」选项卡剪贴板组右下角的小箭头，就能看到所有存进去的独立条目，点哪个就粘哪个。

如果你不想依赖Office自带的剪贴板，也可以用系统API实现多格式存储（相当于把两个内容存成剪贴板里的不同“格式”，粘贴时可以选择）。代码稍微复杂一点，但兼容性更好：

' 先在模块顶部声明API函数（必须放在所有过程外面）
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard Lib "user32" () As Long
Private Declare Function SetClipboardData Lib "user32" (ByVal wFormat As Long, ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32" (ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyW" (ByVal lpString1 As Long, ByVal lpString2 As Long) As Long

' 定义剪贴板格式常量
Private Const CF_UNICODETEXT As Long = 13
Private Const CF_TEXT As Long = 1
Private Const GMEM_MOVEABLE As Long = &H2
Private Const GMEM_ZEROINIT As Long = &H40

Private Sub cmdSubmit_Click()
    Dim hMem1 As Long, hMem2 As Long
    Dim ptr1 As Long, ptr2 As Long
    
    ' 打开剪贴板
    If OpenClipboard(0&) = 0 Then
        MsgBox "无法打开剪贴板！"
        Exit Sub
    End If
    
    ' 清空剪贴板
    EmptyClipboard
    
    ' 处理第一个文本框内容（存为CF_TEXT格式）
    hMem1 = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(Me.TextBox1.Text) * 2 + 2)
    ptr1 = GlobalLock(hMem1)
    lstrcpy ptr1, StrPtr(Me.TextBox1.Text)
    GlobalUnlock hMem1
    SetClipboardData(CF_TEXT, hMem1)
    
    ' 处理第二个文本框内容（存为CF_UNICODETEXT格式）
    hMem2 = GlobalAlloc(GMEM_MOVEABLE Or GMEM_ZEROINIT, Len(Me.TextBox2.Text) * 2 + 2)
    ptr2 = GlobalLock(hMem2)
    lstrcpy ptr2, StrPtr(Me.TextBox2.Text)
    GlobalUnlock hMem2
    SetClipboardData(CF_UNICODETEXT, hMem2)
    
    ' 关闭剪贴板
    CloseClipboard
    
    MsgBox "两个内容已存入系统剪贴板！粘贴时部分软件可以选择格式，或者你可以按需求调用对应格式的内容~"
End Sub

注意： #

这个方案是把两个内容存成剪贴板的不同格式，有些软件会自动识别并显示可粘贴的选项，不过直观性不如Office剪贴板，更适合需要底层控制的场景。

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