[mso] Re: Open Word Template In File/New Format

This code will do the job for you...but sorry, don't have time to teach you
how to use it. You can read this article for details: 

Sharing Macros:
http://pubs.logicalexpressions.com/Pub0009/LPMArticle.asp?ID=166

And kudos to Greg who wrote this code for me for a project many years ago.
Great stuff, my dear! ;-)

Note...if you need further help with the VBA code, you might want to join my
Word_VBA group where a couple hundred other folks writing code might be able
to provide more help. Sorry I can't...but it's TechTrax time<smile>...and I
have a magazine to publish! Here's the info URL to the VBA group:

http://groups.yahoo.com/group/Word_VBA/

Or you can post to the Microsoft free support groups at:
http://support.microsoft.com/newsgroups

Just drill down to the Word VBA group for help. Here's another article if
you decide to go this route and need more help/info about using the
newsgroups.

How To Get Help
http://www.computorcompanion.com/LPMArticle.asp?ID=124

Good luck! (see below for VBA code to copy into your ThisDocument module of
your template.


Private Sub Document_Open()

'this code is for template and prevents
'the user from accidentally opening template
'in development mode...create standard document

'turns off repagination and screen updating
'to allow automation to work faster and
'less chance of template corruption or
'crashing

Options.Pagination = False
Application.ScreenUpdating = False

Dim intDocumentType
Dim strTemplateName As String
Dim strTemplatePath As String

'The following allows the entire project
'to know which template is being worked with
'and it's path. This prevents from having
'to place the template in a specific
'Word template directory. Both are Globals

'gets the full path/name of the active template
strTemplateName = Templates(1).FullName

'gets Path to Template and pads with "\" if required
strTemplatePath = Templates(1).Path
If Right(strTemplatePath, 1) <> Application.PathSeparator Then
    strTemplatePath = strTemplatePath & Application.PathSeparator
End If

intDocumentType = ActiveDocument.Type

'*******************************************
'COMMENT OUT ALL INDENTED CODE BELOW WHEN WORKING
'ON TEMPLATE IN DESIGN MODE OR CHANGES
'WON'T BE PROPERLY SAVED. TURN IT BACK ON
'FOR FINAL SO USER CAN'T ACCIDENTIALLY
'ACCESS MASTER TEMPLATE DESIGN
'********************************************

        If intDocumentType = 1 Then
            Documents.Add Template:=strTemplateName
            Documents(strTemplateName).Close SaveChanges:=wdDoNotSaveChanges
        End If

End Sub
 


Dian D. Chapman
Technical Consultant, 
Microsoft MVP & Instructor

Free Tutorials: www.mousetrax.com/techtrax
Free Word Tips & Tricks eBook: www.mousetrax.com/books.html
Learn VBA the easy way, thru video! www.mousetrax.com/techcourses.html

  


-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Cathy.Evans@xxxxxxxxx
Sent: Monday, December 29, 2003 10:10 AM
To: MS Office
Subject: [mso] Open Word Template In File/New Format


Can anyone show me how to write something into my Word template that will
cause it under any circumstances to open in file/new format and is there a
down side to setting this up in a document?


 

                    Cathy Evans

                    12/18/2003           To:     mso@xxxxxxxxxxxxx

                    04:54 PM

                                         cc:

 

                                         Subject:     Re: [mso] Re: Open
Access OLE Word Doc as Template(Document   
                                          link: Cathy Evans)...

 

 
..... 
 




Sorry to be so long in reply, this project got temporarily put aside for
other workload.  Are you talking about the Document_Open of Microsoft Word
or on the Microsoft Access side.  My explanation was bad, it's not the
opening as a doc that is a problem, it's that when Access opens the Word
document it opens the template as if you were opening from the file/open
menu in Word instead of opening as file/new.  This causes the automation in
the form to not activate.  I'm not finding on the Access side how to
accomplish this and do not know visual basic on the Word side.  I am barely
making my way through learning Access code by trial and error, so I'm
needing help on the Access side if possible, cause I am very lost in Word.
Also, I've got merge fields in some of the Word forms I'm using that feed
from the Access side, however, is there a way to pass that field data into
the Word form when you open it, thereby doing away with the merge and still
accomplishing the data portion.  Thank you, Cathy


 

                    "Dian Chapman"

                    <dian@mousetrax      To:     <mso@xxxxxxxxxxxxx>

                    .com>

                    Sent by:             cc:

                    mso-bounce@free

                    lists.org            Subject:     [mso] Re: Open Access
OLE Word Doc as Template                
                    12/14/2003

                    04:47 AM
..... 
                    Please respond

                    to mso

 

 





Templates are SUPPOSED to open as docs. Just add the automation into the
Document_New event to get it to fire properly. It's probably in the
Document_Open or Auto_Open/Exec events. It should be in the Document_New
event.


Dian D. Chapman
Technical Consultant,
Microsoft MVP & Instructor

Free Tutorials: www.mousetrax.com/techtrax Free Word Tips & Tricks eBook:
www.mousetrax.com/books.html Learn VBA the easy way, thru video!
www.mousetrax.com/techcourses.html

-----Original Message-----
From: mso-bounce@xxxxxxxxxxxxx [mailto:mso-bounce@xxxxxxxxxxxxx] On Behalf
Of Cathy.Evans@xxxxxxxxx
Sent: Sunday, December 14, 2003 12:35 AM
To: mso@xxxxxxxxxxxxx
Subject: [mso] Open Access OLE Word Doc as Template


Hello, I have an Access 97 database with linked .dot forms.  Clicking the
link opens them in Word as documents, not templates, causing loss of the
automation built into the forms.  Have tried embedding as OLE instead of
link but it still opens .dot as .doc.  Have been searching the net for code
solutions but no answers. Can anyone help?  Thank you! :)






----------------------------------------------------------------------------
-------------------------
The information transmitted is intended only for the person or entity to
which it is addressed and may contain confidential and/or privileged
material. If you are not the intended recipient of this message you are
hereby notified that any use, review, retransmission, dissemination,
distribution, reproduction or any action taken in reliance upon this message
is prohibited. If you received this in error, please contact the sender and
delete the material from any computer.  Any views expressed in this message
are those of the individual sender and may not necessarily reflect the views
of the company.  
----------------------------------------------------------------------------
---------------------------

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to mso-request@xxxxxxxxxxxxx
with the word "unsubscribe" (without the quotes) in the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also
allow you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation
with instructions.  Once you are a member of the files group, you can go
here to upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

---
Incoming mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.554 / Virus Database: 346 - Release Date: 12/20/2003
 

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.554 / Virus Database: 346 - Release Date: 12/20/2003
 

*************************************************************
You are receiving this mail because you subscribed to mso@xxxxxxxxxxxxx or 
MicrosoftOffice@xxxxxxxxxxxxxxxx

To send mail to the group, simply address it to mso@xxxxxxxxxxxxx

To Unsubscribe from this group, send an email to 
mso-request@xxxxxxxxxxxxx with the word "unsubscribe" (without the quotes) in 
the subject line.

Or, visit the group's homepage and use the dropdown menu.  This will also allow 
you to change your email settings to digest or vacation (no mail).
http://www.freelists.org/webpage/mso

To be able to use the files section for sharing files with the group, send a 
request to mso-moderators@xxxxxxxxxxxxx and you will be sent an invitation with 
instructions.  Once you are a member of the files group, you can go here to 
upload/download files:
http://www.smartgroups.com/vault/msofiles
*************************************************************

Other related posts: