Office XP剪贴板中最多可以保存多少项?

发布网友发布时间：2022-12-22 17:06

共2个回答

热心网友时间：2024-12-05 14:43

下面的代码仅能将Office剪贴板中最后一项内容以文本方式赋值给变量：

Sub 显示Office剪贴板最后一项内容()
'前提是剪贴板中有内容，空的情况略过（可用代码检测）...

Dim MyData As DataObject
Set MyData = New DataObject
Dim sClipText As String

MyData.GetFromClipboard
sClipText = MyData.GetText(1) '用以存储剪切板内容的变量,(1)以文本方式保存
Msgbox "Office剪贴板上最后一项内容为：" & sCliipText
End Sub

大家知道，Office 剪贴板中最多可保存达24项内容，第25项内容将把每一项“挤出”，如何通过代码将全部内容赋值给数组变量？

思路如下：1、检查内容条（数）目，确定数组变量的下标；2、通过循环将全部内容赋值给数组变量。

注：搜了坛子中关于“剪贴板”的全部内容，未发现解决办法。

有一笨办法：用循环监控剪贴板，发现有内容后，将内容赋值给数组变量，清除剪贴板，继续监控，直到人为中止，使用DoEvents语句，但总觉得不是一个好的解决方案/

热心网友时间：2024-12-05 14:43

office的剪贴板可以保存最多24项内容
合理应用，善于取舍！！！