Why use two templates?  It could all be done with one.

Iam New member for this group!!!!

My project is to pass values from .dot file to another .dot file (lets
say two .dot files test1.dot and test2.dot)

test1.dot: When user runs the macro go(), the wizard / form will be
open to enter the employee number, once he enters, it prints the
Employee number in a document (Doc1) and saved it to the disk, after
this it will open test2.dot

test2.dot: This should calculate the salary based on the employee
number received from the test1.dot, and attach the salary component to
the earlier created file (Doc1) by test1.dot

Iam not sure how to pass the values from one .dot file to another .dot
file
test1.dot code
==============
Private Sub CmdFinish1_Click()

   ActiveDocument.Bookmarks("Firs­­tName").Range.Text =
Me.txtFirstName.Text
   ActiveDocument.Bookmarks("EmpN­­umb").Range.Text = Me.TextBox1
   test1.Enabled = False
   ActiveDocument.SaveAs FileName:="C:\doc1.dot"
   ActiveDocument.SaveAs FileName:="C:\doc2.dot"
   Call test2
   Unload Me
   Application.Quit

End Sub
Public Function test2()
   Dim wrdAppl As Word.Application
   Set wrdAppl = New Word.Application
   wrdAppl.Documents.Open ("C:\test2.dot")
   Set wrdAppl = Nothing
End Function
test2.dot code
==============
Private Sub Document_Open()
   ActiveDocument.Bookmarks("bksa­­lary").Range.Text = salary
   test2.Show
End Sub

Public Function salary() As String
   Dim sal As String
   If
(ActiveDocument.CustomDocument­­Properties.Item("Employee").V­a­lue

= "1") Then
     salary = "100K"
   ElseIf
(ActiveDocument.CustomDocument­­Properties.Item("Employee").V­a­lue
= "
") Then
       salary = "Salary not generated"
   End If
End Function

Private Sub CmdFinish2_Click()
       ActiveDocument.Bookmarks("Last­­Name").Range.Text =
Me.txtLastName.Text
       Dim Doc1 As Word.Document
       Set Doc1 = GetObject("C:\doc1.dot", "Word.Document")
       Doc1.Range = Doc1.Range + ActiveDocument.Range
       Doc1.SaveAs FileName:="C:\doc3.dot"
       Doc1.Close 'close doc3
       Set Doc1 = Nothing
       Unload Me
       ActiveDocument.Close 'close test2.dot
End Sub

in test2.dot
============
I have written code to read the values from customdocumentproperties if
we want to see manually ..open any document go to File menu ->
Properties -> Custom Tab.

What i need is to get the employee number from test1.dot to the custom
properties of the test2.dot so that i can perform necessary salary
calculations

If any of know how to pass the values from .dot file to another .dot
file will be a great help
You can directly mail to me if you need the test1.dot and test2.dot
files for any clarification
I will also update the groups as and when required

Thanks
Srini

Hi Srini,

Well, the first problem I see, when doing a quick scan of your code, is
that you're actually OPENING test2.dot. One normally wouldn't do this
with a template. Is there a reason you're OPENING the template, rather
than creating a new document from it?

Generally, if you're opening a file (be it .doc or .dot), you assign it
to an object variable. Example:
   Dim docTest2 as Word.Document
   Set docTest2 = Documents.Open(test2.dot)
 
Now, you can work with it's document properties or document variables

   docTest2.CustomDocumentProperties("Salary").Value = number

Your biggest problem is that you have to learn to use object variables,
instead of "ActiveDocument". Once you do that, things will become MUCH
easier :-)

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question or
reply in the newsgroup and not by e-mail :-)