作者forkome (丁丁是个人材)
看板Visual_Basic
标题[VBA ] 剪贴簿问题
时间Wed Nov 21 21:28:59 2007
小弟因工作需要，而要修改别人的VBA程式
自己从来没使用过VBA，基本的看的懂
不过碰到我看不懂的程式码，希望有高手可以帮忙
repeat:
If ClipboardEmpty Then if 剪贴簿为空白 then
WordApp.Selection.Wholestory 游标所选的区域全选
WordApp.Selection.Copy 所选的区域Copy
sClipText = Clipboard.GetText(vbCFRTF) 取到上面Copy的内容
Clipboard.Clear 剪贴簿清空
RaisErr = False RaisErr = False
Else Else
Set_Timeout(1) 自订的副程式
Clipboard.Clear 剪贴簿清空
GoTo repeat 执行repeat标签
RaisErr = True RaisErr = True
End End
上面是我自己去网路查的意思，希望没有错
在GoTo repeat的部分，每次执行到这时，应该会从头去判断
为什麽他还会执行到RaisErr = True呢？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.254.22.93