G
Guest
Hi,
I posted a question to the Word programming newsgroup but get no satisfying
answer. I decided to post it here hoping to get at least an explanation. Here
is the problem:
I use Access 2000 and Word 2000 at the office. Through Access, I use
automation to create a report. When I run the report in 2000, it works fine
the first time. If I run it again, I get an error message saying that the
server control is not available or has lost it's link (or something like
this). See the code below.
' ****************************************
' ...
Dim oWord As Word.Application
Dim oDoc As Word.Document
' ...
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.Activate
With oDoc.ActiveWindow.Selection
..TypeText Text:="Company Name"
..ParagraphFormat.Style = "Title 1"
..TypeParagraph
End With
' Here comes the problem...
oWord.ActiveDocument.ActiveWindow.Selection.ParagraphFormat.TabStops.Add _
Position:=CentimetersToPoints(8), _
Alignment:=wdAlignTabDecimal, _
Leader:=wdTabLeaderDots
' The rest works fine...
' Save the document.
oWord.ActiveDocument.SaveAs FileName:="Report " & _
intYear - 1, FileFormat:=wdFormatDocument
' ************ End of code *****************
It seems that the reference to the document created is lost somewhere. How
can this be avoided?
That is why I added the "oWord.ActiveDocument.ActiveWindow.Selection".
I got an answer from Jezebel stating that maybe I should not use the
Selection object. I tried the suggestion and came out with this code:
' ************ Start of code *****************************
Sub TestDeJac()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.Activate
oDoc.Content.InsertAfter "Report title"
oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.Style = "Title 1"
oDoc.Content.InsertParagraphAfter
' *********** Bug is still here *******************
With oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.ParagraphFormat
..TabStops.Add Position:=CentimetersToPoints(8), _
Alignment:=wdAlignTabDecimal, Leader:=wdTabLeaderDots
End With
' *********** Bug is up here ********************
' ...
oWord.ActiveDocument.SaveAs FileName:="Report for the year " & _
intYear - 1, FileFormat:=wdFormatDocument
oDoc.Activate
oDoc.Save
' ...
oDoc.Close SaveChanges:=False
Set oDoc = Nothing
Set oWord = Nothing
End Sub
' ************* End of code ******************************
The error message says that the server reference is gone or unavailable.
Again I say: the report works fine the first time it is called but bugs if
it is called again in the same session. If close the application and reopen
it, it works fine the first time... I use the french version of Word 2000.
I hope someone can give me some encouragement before Christmas.
Thanks
I posted a question to the Word programming newsgroup but get no satisfying
answer. I decided to post it here hoping to get at least an explanation. Here
is the problem:
I use Access 2000 and Word 2000 at the office. Through Access, I use
automation to create a report. When I run the report in 2000, it works fine
the first time. If I run it again, I get an error message saying that the
server control is not available or has lost it's link (or something like
this). See the code below.
' ****************************************
' ...
Dim oWord As Word.Application
Dim oDoc As Word.Document
' ...
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.Activate
With oDoc.ActiveWindow.Selection
..TypeText Text:="Company Name"
..ParagraphFormat.Style = "Title 1"
..TypeParagraph
End With
' Here comes the problem...
oWord.ActiveDocument.ActiveWindow.Selection.ParagraphFormat.TabStops.Add _
Position:=CentimetersToPoints(8), _
Alignment:=wdAlignTabDecimal, _
Leader:=wdTabLeaderDots
' The rest works fine...
' Save the document.
oWord.ActiveDocument.SaveAs FileName:="Report " & _
intYear - 1, FileFormat:=wdFormatDocument
' ************ End of code *****************
It seems that the reference to the document created is lost somewhere. How
can this be avoided?
That is why I added the "oWord.ActiveDocument.ActiveWindow.Selection".
I got an answer from Jezebel stating that maybe I should not use the
Selection object. I tried the suggestion and came out with this code:
' ************ Start of code *****************************
Sub TestDeJac()
Dim oWord As Word.Application
Dim oDoc As Word.Document
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
Set oDoc = oWord.Documents.Add
oDoc.Activate
oDoc.Content.InsertAfter "Report title"
oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.Style = "Title 1"
oDoc.Content.InsertParagraphAfter
' *********** Bug is still here *******************
With oDoc.Paragraphs(oDoc.Paragraphs.Count).Range.ParagraphFormat
..TabStops.Add Position:=CentimetersToPoints(8), _
Alignment:=wdAlignTabDecimal, Leader:=wdTabLeaderDots
End With
' *********** Bug is up here ********************
' ...
oWord.ActiveDocument.SaveAs FileName:="Report for the year " & _
intYear - 1, FileFormat:=wdFormatDocument
oDoc.Activate
oDoc.Save
' ...
oDoc.Close SaveChanges:=False
Set oDoc = Nothing
Set oWord = Nothing
End Sub
' ************* End of code ******************************
The error message says that the server reference is gone or unavailable.
Again I say: the report works fine the first time it is called but bugs if
it is called again in the same session. If close the application and reopen
it, it works fine the first time... I use the french version of Word 2000.
I hope someone can give me some encouragement before Christmas.
Thanks