Word VBA 急救!!! 100分!!

cyberkit 2006-01-01 12:24:23

为什么以下代码只能运行一次,第2次运行的时候就提示 "远程服务器不存在或不能使用"
必须将winword进程杀了之后才能再用,但用完一次之后,又不能用..........

Dim NewDoc As Document

Dim WordApp As New Word.Application
Set NewDoc = WordApp.Documents.Add

Dim Title As Range
Set Title = NewDoc.Range(Start:=0, End:=0)
With Title
.InsertAfter Text:="Hello"
.InsertParagraphAfter
With .Font
.Name = "黑体"
.Size = 18
.Bold = False
End With
End With
With NewDoc.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.2)
End With
Dim Rang2 As Range
Set Rang2 = NewDoc.Range(Start:=NewDoc.Paragraphs(2).Range.Start, End:=NewDoc.Paragraphs(2).Range.End)

With Rang2
.InsertAfter Text:="SOMETHING"
.InsertParagraphAfter
End With
NewDoc.Paragraphs(2).SpaceAfter = InchesToPoints(0.3)

Dim Rang3 As Range
Set Rang3 = NewDoc.Range(Start:=NewDoc.Paragraphs(3).Range.Start, End:=NewDoc.Paragraphs(3).Range.End)
Rang3.InsertAfter Text:=Format(Now, "YYYY年MM月DD日")
NewDoc.Paragraphs(3).Alignment = wdAlignParagraphRight

WordApp.Visible = True
Set WordApp = Nothing

...全文

200 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

laidon 2006-01-02

打赏
举报

应该是引用的word版本的问题，另外，释放所有资源

faysky2 2006-01-01

打赏
举报

我试了一下，点好多次也没问题，我引用的是 Word 10.0,以前好象也碰到过这个问题，是引用 11.0版本引起的

hhjjhjhj 2006-01-01

打赏
举报

代码都要以定义好的对象变量开始,如:
InchesToPoints(xx)改成
WordApp.InchesToPoints(xx)

rainstormmaster 2006-01-01

打赏
举报

//为什么以下代码只能运行一次,第2次运行的时候就提示 "远程服务器不存在或不能使用"
必须将winword进程杀了之后才能再用,但用完一次之后,又不能用..........

这个就是程序结束时,对象没清理干净,把你用到的全部对象都清理掉应该就可以了

northwolves 2006-01-01

打赏
举报

我原以为你在VBA里用呢.前边加一句 On Error Resume Next 试试

Private Sub Command1_Click()
On Error Resume Next
Dim NewDoc As Document

Dim WordApp As New Word.Application
Set NewDoc = WordApp.Documents.Add

Dim Title As Range
Set Title = NewDoc.Range(Start:=0, End:=0)
With Title
.InsertAfter Text:="Hello"
.InsertParagraphAfter
With .Font
.Name = "黑体"
.Size = 18
.Bold = False
End With
End With
With NewDoc.Paragraphs(1)
.Alignment = wdAlignParagraphCenter
.SpaceAfter = InchesToPoints(0.2)
End With
Dim Rang2 As Range
Set Rang2 = NewDoc.Range(Start:=NewDoc.Paragraphs(2).Range.Start, End:=NewDoc.Paragraphs(2).Range.End)

With Rang2
.InsertAfter Text:="SOMETHING"
.InsertParagraphAfter
End With
NewDoc.Paragraphs(2).SpaceAfter = InchesToPoints(0.3)

Dim Rang3 As Range
Set Rang3 = NewDoc.Range(Start:=NewDoc.Paragraphs(3).Range.Start, End:=NewDoc.Paragraphs(3).Range.End)
Rang3.InsertAfter Text:=Format(Now, "YYYY年MM月DD日")
NewDoc.Paragraphs(3).Alignment = wdAlignParagraphRight

WordApp.Visible = True
Set WordApp = Nothing

End Sub

cyberkit 2006-01-01