[VBA ] 剪貼簿問題

[forkome (丁丁是個人材)]

小弟因工作需要，而要修改別人的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