Hi,
I am trying to create a template for a document. I would like to copy the
styles from the document to the template. In Word 2002 the following VBA-Code
works fine:
-----------------------------------------------------------------------------------------------
sSource = m_docSource.FullName
Set docTemplate = appWord.Documents.Open( _
               m_docSource.AttachedTemplate.FullName, _
               addtorecentfiles:=False, _
               Visible:=False)      
'Un-protect the template if protected (will not be protected when saved again)
If docTemplate.ProtectionType <> wdNoProtection Then
    docTemplate.Unprotect m_sPasswordForOpen
End If
sTarget = docTemplate.FullName

For Each stlSource In m_docSource.Styles
       If stlSource.InUse Then
           appWord.OrganizerCopy sSource, sTarget, stlSource.NameLocal,
wdOrganizerObjectStyles
       End If
   Next
-----------------------------------------------------------------------------------------------

In Word 2007 this code works fine also, but only if the ActiveDocument is
stored on the local filesystem.
If the source document is stored somewhere on a fileserver the code produces
a error on appWord.OrganizerCopy that tells you, that the sSource document
is already open.
The system seems to block itself.
I have also used a mapped drive to the file server but this did not work
either.
Does anybody know a solution, how to solve the problem?

Thanks for help.