Select and copy from a attached template

Hi
I have a template with refernce to another template which contains different
sections. I want to select one of teh secions, copy and paste it in to the
document based on the first template. I attache the second template with "
Set vbProj = ActiveDocument.VBProject
vbProj.References.AddFromFile "C:\Mallar\Samlingsmall.dot"" in an
autonewmacro.
I guess I need to start with something like this:
For x = 1 To Word.Templates.Count
If Templates(x).Name = "samlingsmall.dot" Then
num = x
Exit For
End If
Next x

and then

templates(num).????? (the code to select the section) but I cant find out
the code.
Does anyone know how I can do that?

Regards
Camilla

Jezebel
Tue Sep 16 20:50:59 CDT 2003

This approach won't work. Adding the template to the project's references
makes its macro code available to the project. It doesn't add the template
to the Templates() collection, nor provide a way to access the content of
the template. Nor could you use the templates collection anyway -- templates
are not loaded as documents.

What you need to do is open the template as a document, copy what you need,
then close it. The fact that it's a template rather than an ordinary
document makes no difference for this purpose.

Dim MyDoc as Word.Document
Set MyDoc = Documents.Open("C:\Mallar\Samlingsmall.dot")
....

etc






"camilla" <camilla@falckstockholm.com> wrote in message
news:ebcbCRKfDHA.3616@TK2MSFTNGP11.phx.gbl...
> Hi
> I have a template with refernce to another template which contains
different
> sections. I want to select one of teh secions, copy and paste it in to the
> document based on the first template. I attache the second template with "
> Set vbProj = ActiveDocument.VBProject
> vbProj.References.AddFromFile "C:\Mallar\Samlingsmall.dot"" in an
> autonewmacro.
> I guess I need to start with something like this:
> For x = 1 To Word.Templates.Count
> If Templates(x).Name = "samlingsmall.dot" Then
> num = x
> Exit For
> End If
> Next x
>
> and then
>
> templates(num).????? (the code to select the section) but I cant find out
> the code.
> Does anyone know how I can do that?
>
> Regards
> Camilla
>
>

Word
Fri Sep 19 04:59:52 CDT 2003

G'day "camilla" <camilla@falckstockholm.com>,

Unfortunately Jez is an ignorant beginner hack whose methods are oft
fraught with failure, please ignore him.

If the template is already loaded into the templates collection you
get some nasty side effects from loading it as he suggests.

What you have here is a classic case of shared boilerplate. What you
should do is make your own global template and store it in there as an
autotext entry. This makes it dead easy to reference it in both
places.

I go into boilerplate issues and the means of solving them quite
extensively in my Word Spellbook, available for sale from either of my
websites - see the very bottom of the message for one, or use my email
address root for the new one.



"camilla" <camilla@falckstockholm.com> was spinning this yarn:

>Hi
>I have a template with refernce to another template which contains different
>sections. I want to select one of teh secions, copy and paste it in to the
>document based on the first template. I attache the second template with "
>Set vbProj = ActiveDocument.VBProject
> vbProj.References.AddFromFile "C:\Mallar\Samlingsmall.dot"" in an
>autonewmacro.
>I guess I need to start with something like this:
>For x = 1 To Word.Templates.Count
> If Templates(x).Name = "samlingsmall.dot" Then
> num = x
> Exit For
> End If
> Next x
>
>and then
>
>templates(num).????? (the code to select the section) but I cant find out
>the code.
>Does anyone know how I can do that?
>
>Regards
>Camilla
>

Steve Hudson

Word Heretic, Sydney, Australia
Tricky stuff with Word or words for you.
Email steve@wordheretic.com
Products http://www.geocities.com/word_heretic/products.html

Replies offlist may require payment.