Loop Help

[moishy]

I'm trying to create a new document based on a template which is stored on a network drive, to merge data to.

It will not load the first time, since there seems to be a Word 2010 bug, that Word is still initializing. It succeeds after several tries.

How can I create a loop that will try to create the document until it succeeds (try once every second for 5 seconds).

I thought I'd use something like this:

For i = 0 To 5
   Set WordDoc = WordApp.Documents.Open("Z:\Templates\Test.dot")
   i = i + 1
   [COLOR=Red]if opening succeeded then exit for[/COLOR]
Next i

The red line is where i need help.

Is there a better way of doing this?

 

[jdraw]

Please show how you are Opening word.

You could try searching for Access and Word or similar. vbaInet has several posts on the subject

 

[moishy]

Dim oWord As Object
Set oWord = CreateObject("Word.Application")

 

[moishy]

I tried a quick search but didn't find anything, can you point me to some relevant posts?

 

[mdlueck]

I thought I'd use something like this:

For i = 0 To 5
   Set WordDoc = WordApp.Documents.Open("Z:\Templates\Test.dot")
   i = i + 1
   [COLOR=Red]if opening succeeded then exit for[/COLOR]
Next i

The red line is where i need help.

Here is a working example of how to use Exit For...

    For Each frm In Forms
      If frm.Name = MePointer.Name Then
        With frm
          .Filter = vbNullString
          .FilterOn = False
          .OrderBy = vbNullString
          .OrderByOn = False
        End With
        [B][COLOR=Red]Exit For[/COLOR][/B]
      End If
    Next frm

I must scan through the Forms collection and check each Form's Name property as I (in this area of the code) have opened the form via its class and the Form's Name is not added to the Forms collection as an index.

Once the loop code finds the form, it does not need to loop any farther.

Have you had failure of Word opening that has you considering such a remedy?

 

[moishy]

Have you had failure of Word opening that has you considering such a remedy?

As I mentioned in my question the answer is yes. It fails with error 4198.

 

[moishy]

I'm considering looping until Err.Number <> 4198. Any comments?

 

[jdraw]

Try searching this forum for

vbainet create word from access



also see http://forums.aspfree.com/visual-ba...eate-word-document-from-access-db-122725.html

It may give you some ideas.

 

[moishy]

@jdraw
I can't find anything relevant.

 

[mdlueck]

@jdraw
I can't find anything relevant.

Google turned this up as its top suggestion...

http://social.msdn.microsoft.com/Forums/en/worddev/thread/99af2bc9-d2ee-4036-9901-afbc4c1b1174

Looks like this work-around worked for this person.

 

[jdraw]

I found this
http://www.access-programmers.co.uk/forums/showthread.php?t=218775

but I think Michael's link is better targeted to your 4198.

 

[DrallocD]

I don't think that the loop will help you.

If loading the word document fails it probably displays a hidden dialog box . Your application will hang until the document opens so I would suggest making word visible to see what is going on.

oWord.visible = True

You might also want to kill any WINWORD tasks that you may have left hanging around.