Dim objWord As Object
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim NewDoc As Object
Set NewDoc = objWord.Documents.Add
Dim TitleRange As Object
Set TitleRange = NewDoc.Content
With TitleRange
'定位到文档尾
.MoveEnd Unit:=1, Count:=-1
.Collapse Direction:=0
'填入标题并回车
.InsertAfter Text1.Text
'.Font.Bold = True
.InsertAfter vbCrLf
.Font.Size = 15
End With
With NewDoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(1)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1)
.PageWidth = CentimetersToPoints(21)
.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
NewDoc.SaveAs "d:\fmfile\fm20030514.doc"
objWord.Quit
Set NewDoc = Nothing
Set objWord = Nothing
Set TitleRange = Nothing执行第一遍很正常,第二遍时
With NewDoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
在这个位置出错,错误如下
run time error '462'the remote server machine does not exist or is unavailable
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Dim NewDoc As Object
Set NewDoc = objWord.Documents.Add
Dim TitleRange As Object
Set TitleRange = NewDoc.Content
With TitleRange
'定位到文档尾
.MoveEnd Unit:=1, Count:=-1
.Collapse Direction:=0
'填入标题并回车
.InsertAfter Text1.Text
'.Font.Bold = True
.InsertAfter vbCrLf
.Font.Size = 15
End With
With NewDoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(1)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(1)
.FooterDistance = CentimetersToPoints(1)
.PageWidth = CentimetersToPoints(21)
.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
NewDoc.SaveAs "d:\fmfile\fm20030514.doc"
objWord.Quit
Set NewDoc = Nothing
Set objWord = Nothing
Set TitleRange = Nothing执行第一遍很正常,第二遍时
With NewDoc.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
在这个位置出错,错误如下
run time error '462'the remote server machine does not exist or is unavailable
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货