How does one make the added doc the active one? (Word 2000/SR1)

[Jim Bassett]

I am adding Word docs to an existing instance of Word via automation from inside a word addin, here is the code that does that:

On Error Resume Next
'Try an establish link to open instnace of Word
Set objWorkpaperWord = GetObject(, "Word.Application")

I

' if this fails then open a new word app
If objWorkpaperWord Is Nothing Then
Set objWorkpaperWord = CreateObject("Word.Application")
End If
objWorkpaperWord.Visible = True
objWorkpaperWord.Documents.Add (arrFilePaths(iSelectedTitle) & "" & WorkpaperTemplates(iSelectedTitle, iSelectedCategories, iSelectedWorkPaper))
objWorkpaperWord.ActiveWindow.Activate
objWorkpaperWord.ActiveWindow.Caption = strDocname
objWorkpaperWord.Activate

Set objWorkpaperWord = Nothing


And this is sucessfully adding the word doc to the existing instance but there is a problem in that the new added document is not active. The icon on the status bar for the new document is active and the document the caption is correct but the area that contains the caption is grayed out and I first have to select the document before it becomes active. How do I do this via VBA code?

I have tried adding code in the template that is being added in it's ThisDocument_New event such as :
' Make sure this document has the focus
ThisDocument.Activate

But this does help.

[Gary Frieder]

Jim,

Thought I recently saw a post by Hans V. with the answer to this question, but anyway:

Assign the new document to an object variable, as you add it; then activate the new document via the object variable, along the lines of:

'(after you have created the objWorkPaperWord object)
Dim objWordDoc As objWorkpaperWord.Document
Set objWordDoc = objWorkpaperWord.Documents.Add (arrFilePaths(iSelectedTitle) & "" & WorkpaperTemplates(iSelectedTitle, iSelectedCategories, iSelectedWorkPaper))
objWordDoc.Activate 'etc.....
'and at the end of the procedure, don't forget:
Set objWordDoc = Nothing

Gary

[Jim Bassett]

Thanks but I have tried that and tried it again and it still does not set focus to the document I wish to have focus. One would think there would be a set focus method.

[Gary Frieder]

Here's another one to try:

objWorkpaperWord.Documents(objWorkpaperWord.Docume nts.Count).Activate

[Jim Bassett]

Tried that too before and tried it again but no cigar. It is a strange problem that I ma having here.

[Gary Frieder]

If those methods aren't working, then you're right something strange is going on.
Question re your first post:

<hr>I am adding Word docs to an existing instance of Word via automation from inside a word addin<hr>

Not sure I see the big picture for why you are doing this - If you're using a Word add-in to add documents to an existing instance of Word, then why are you using automation in the first place?

Gary

[Jim Bassett]

I have noticed one other thing happening which I don't seem to be able to stop and that is when I open one of the docs via the VB code I also get the toolbox appearing as well. Maybe it is related.

[Gary Frieder]

Jim,

The upshot of my previous post was that if there is a way to do this project without the automation, it would probably work more reliably and be easier to debug. Automation is kind of rickety to begin with. The part about automating Word from Word just caught my attention, it sounds like something prone to cause a problem.

Gary

[Jim Bassett]

LOL... yes but the requirements are that one of our Word Templates shall be able to create another Word doc, etc.

[Gary Frieder]

Fair enough, but you don't need automation to have a Word template create a Word document; you can do the whole thing directly in Word without needing to create an extra instance of Word.

Automation is used to control one application from another application. If your entire application is completely based within Word, then not only do you not need to be using automation, but that is almost guaranteed to be the reason you're having a problem.

[Jim Bassett]

I am creating the new word doc from inside the Word Addin using the code shown in the first message of this posting. There are 32 templates so we want as much reusable code as possible. How else would I do this?

[Gary Frieder]

In its simplest form, it can be as simple as:

<pre>Public Sub CreateNewDocument(strTemplatePathName)
Documents.Add strTemplatePathName
End Sub
</pre>

Where you are passing in the full template path and name as the argument.

In your example code you are building the template path and name from three different arguments; you can either adjust the code illustrated here to reflect the three arguments rather than one, or alternatively you can have another preliminary function which takes the three path arguments, concatenates them, and provides as a return value the full template path and name to be passed into CreateNewDocument.

(One thing that has not been discussed in this thread is: how are you getting the template path/name arguments in the first place? Presumably you have a custom userform that gives the user the option of which of the 32 templates they want to create a new document from, or perhaps alternatively you have a custom toolbar with buttons or menu items from which they can select a template to use. In either case, you have code running, based on the user selection, which determines the template path/name arguments to feed into the CreateNewDocument procedure - correct?)

You might want to add code into CreateNewDocument to call a function which confirms that the template being referred to actually exists (more of an issue if the templates are being stored on individual machines rather than the network, but a good idea even in the latter case).

And of course the CreateNewDocument procedure has to be located in a global add-in template, preferably residing in the Startup directory so that it is always available when Word starts up.

There isn't much more to it than that....

[jscher2000]

Try changing your code as follows (note: this was not tested in VBE, just typed here):

Dim docNew as Word.Document
Set docNew = objWorkpaperWord.Documents.Add(arrFilePaths(iSelec tedTitle) & "" & WorkpaperTemplates(iSelectedTitle, iSelectedCategories, iSelectedWorkPaper))
With docNew
.ActiveWindow.Caption = strDocname
.Activate
End With

Does that help?