小吳 VBQA 程式設計討論

我在Outlook 2000底下寫了一個巨集要控制Word 2000的文件物件,
在做文件的版面設定時出現了遠端侍服器無法使用的訊息,我的程
式碼如下:
set mydocapp = createobject("word.application")
set mydoc = mydocapp.documents.add
call paperforRODOC()
:
　 :
　 :
mydoc.save
mydocapp.quit

private sub paperforRODOC()
With mydoc.PageSetup
.LineNumbering.Active = False
　　　　.Orientation = wdOrientLandscape
　　　　.TopMargin = CentimetersToPoints(3.17)
　　　　.BottomMargin = CentimetersToPoints(3.17)
　　　　.LeftMargin = CentimetersToPoints(2.54)
　　　　.RightMargin = CentimetersToPoints(2.54)
　　　　.Gutter = CentimetersToPoints(0)
　　　　.HeaderDistance = CentimetersToPoints(1.5)
　　　　.FooterDistance = CentimetersToPoints(1.75)
　　　　.PageWidth = CentimetersToPoints(42)
　　　　.PageHeight = CentimetersToPoints(29.7)
　　　　.FirstPageTray = wdPrinterDefaultBin
　　　　.OtherPagesTray = wdPrinterDefaultBin
　　　　.SectionStart = wdSectionNewPage
　　　　.OddAndEvenPagesHeaderFooter = False
　　　　.DifferentFirstPageHeaderFooter = False
　　　　.VerticalAlignment = wdAlignVerticalTop
　　　　.SuppressEndnotes = False
　　　　.MirrorMargins = False
　　　　.TwoPagesOnOne = False
　　　　.GutterPos = wdGutterPosLeft
　　　　.LayoutMode = wdLayoutModeLineGrid
　　End With
end sub
其中mydocapp與mydoc皆已宣告為公用變數, 且這個訊息並非每次執行都非發生,而是這一次執行正常但下一次執行就會出現這個問題. 在停止程式並做必要的處理後(並非修改程式碼或其他的設定),在下一次執行又恢復正常, 但下下一次一定又會出現同樣的訊息, 如此一次正常一次不正常. 每次發生錯誤都是在sub paperforRODOC裡面,且非常有趣的是, 當你把這一次出問題的一行去掉,下一次會是下一行出問題.
實在不知道這問題出在哪裡, 請各位高手為我解惑吧!