有关windows 日志 和VB 代码的问题?高手请进!

本人修改了这样的一段代码!
修改前
With Wd.ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = CentimetersToPoints(3.17)
        .BottomMargin =  CentimetersToPoints(3.17)
        .LeftMargin =  CentimetersToPoints(2.54)
        .RightMargin =  CentimetersToPoints(2.54)
        .Gutter =  CentimetersToPoints(1)
        .HeaderDistance =  CentimetersToPoints(1.5)
        .FooterDistance = CentimetersToPoints(1.75)
        .PageWidth = CentimetersToPoints(41.99)
        .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
'+++++++++++++++++++ 设置页面版式 +++++++++++++++++++++++
修改原因是在生成页面时如果是打开程序第一次生成可以成功.二次就报错.报错情况是CentimetersToPoints()函数出错,提示调用无效的函数或函数不存在!
修改后
 '+++++++++++++++++++ 设置页面版式 +++++++++++++++++++++++
   With Wd.ActiveDocument.PageSetup
        .LineNumbering.Active = False
        .Orientation = wdOrientLandscape
        .TopMargin = 90 'CentimetersToPoints(3.17)=89.85827
        .BottomMargin = 90 ' CentimetersToPoints(3.17)=89.85827
        .LeftMargin = 72 ' CentimetersToPoints(2.54)=72
        .RightMargin = 72 ' CentimetersToPoints(2.54)= 72
        .Gutter = 28.35 ' CentimetersToPoints(1)=28.34646
        .HeaderDistance = 42.55 ' CentimetersToPoints(1.5) = 42.51968
        .FooterDistance = 49.6 'CentimetersToPoints(1.75)=49.6063
        .PageWidth = 1190.27 'CentimetersToPoints(41.99)=1190.268
        .PageHeight = 841.89 ' CentimetersToPoints(29.7)= 841.8898
        .FirstPageTray = wdPrinterDefaultBin
        .OtherPagesTray = wdPrinterDefaultBin
        .SectionStart = wdSectionNewPage
        .OddAndEvenPagesHeaderFooter = False
        .DifferentFirstPageHeaderFooter = False
        .VerticalAlignment = wdAlignVerticalTop
        .SuppressEndnotes = False
        .MirrorMargins = False
        .TwoPagesOnOne = False
        .GutterPos = wdGutterPosLeft
        .LayoutMode = wdLayoutModeLineGrid
    End With
'+++++++++++++++++++ 设置页面版式 +++++++++++++++++++++++
修改后在本机上运行是万无一失,在别的机上运行老是被windows 日志无缘无故的关闭!运行不了!
请问高手有高招解决嘛!