P
pgagge
When opening a accelerator for proposals word document with a vba macro
(even an empty macro) in the open event an error message is given "You are
currently viewing this document in multiple windows. To attach an XML
expansion pack, you must first close all additional windows so that you are
viewing the document in only one window." and the accelerator for proposals
fails to load.
I have found a knowledge base article describing this error and confirming
it as a bug (
http://support.microsoft.com/default.aspx?scid=kb;EN-US;832115 ) but my
question is:
Is the problem we're experience related to this bug or is there another
reason for the error message in our case? Is there a workaround?
To reproduce the problem:
Use the accelerator for proposals word template (you will need the
accelerator for proposals installed on your client and probably the server
part on sharepoint installed too) and add a vba macro to the AutoOpen event.
The vba macro we used was to update all fields:
Sub UpdateAll()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub
(even an empty macro) in the open event an error message is given "You are
currently viewing this document in multiple windows. To attach an XML
expansion pack, you must first close all additional windows so that you are
viewing the document in only one window." and the accelerator for proposals
fails to load.
I have found a knowledge base article describing this error and confirming
it as a bug (
http://support.microsoft.com/default.aspx?scid=kb;EN-US;832115 ) but my
question is:
Is the problem we're experience related to this bug or is there another
reason for the error message in our case? Is there a workaround?
To reproduce the problem:
Use the accelerator for proposals word template (you will need the
accelerator for proposals installed on your client and probably the server
part on sharepoint installed too) and add a vba macro to the AutoOpen event.
The vba macro we used was to update all fields:
Sub UpdateAll()
Dim oStory As Range
For Each oStory In ActiveDocument.StoryRanges
oStory.Fields.Update
If oStory.StoryType <> wdMainTextStory Then
While Not (oStory.NextStoryRange Is Nothing)
Set oStory = oStory.NextStoryRange
oStory.Fields.Update
Wend
End If
Next oStory
Set oStory = Nothing
End Sub