------ Register to get rid of these "In Post" ads! ------


Jean D, you are my hero!!!!! This is EXACTLY what I wanted to accomplish. You are amazing!!!



Jean D wrote:

Actually, I thought about this some more and decided to do it
'Original Source: The Code Cage Forums http://www.thecodecage.com/forumz/word-vba-programming/176450-my-hero.html#post633698
27-May-08

Actually, I thought about this some more and decided to do it with
SendKeys:

SendKeys "%"
SendKeys "F"
SendKeys "N"
SendKeys "{Tab}{Tab}{Tab}"
SendKeys "{Down}{Down}"
SendKeys "{Enter}"

Now I can give the users a button on their QAT that runs this macro and
gets them directly to our custom templates only.

Thanks again.

Previous Posts In This Thread:

On Wednesday, May 21, 2008 8:55 PM
Jean D wrote:

New File Dialog in Word 2007
I have a little macro that opens the new file dialog in Word 2007 and
changes its default view:

Sub CustomFileNew()
Set vdialog = Dialogs(wdDialogFileNew)
vdialog.Update
SendKeys "%2"
Button = vdialog.Show
If Button <> 0 Then
vTemp = vdialog.Template
Documents.Add Template:=vTemp
End If
End Sub

It works fine, however, it brings up the dialog which shows all of Word's
template tabs as well as our own. I'd like to bring up the dialog that
appears when you click the Office button, New, My Templates that shows only
our custom tabs. Can anyone tell me how to modify this code to do that?

Thanks!

On Sunday, May 25, 2008 4:29 AM
Cindy M. wrote:

Hi Jean,You can useDialogs(wdDialogFileNew).
Hi Jean,

You can use

Dialogs(wdDialogFileNew).Show

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 17 2005)
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 :-)

On Tuesday, May 27, 2008 12:13 PM
Jean D wrote:

Re: New File Dialog in Word 2007
On Sun, 25 May 2008 10:29:47 +0200, Cindy M. wrote:


Thank you Cindy, but that still brings up all of Word's categories (Faxes,
Letters, Other Documents, etc.) with its templates. Is there a way to
bring up only our custom directories? In Pro, you click on Office button,
New, My Templates and get the view which I would like to achieve.

Thanks so much for your reply!

On Tuesday, May 27, 2008 1:42 PM
Jean D wrote:

Actually, I thought about this some more and decided to do it
Actually, I thought about this some more and decided to do it with
SendKeys:

SendKeys "%"
SendKeys "F"
SendKeys "N"
SendKeys "{Tab}{Tab}{Tab}"
SendKeys "{Down}{Down}"
SendKeys "{Enter}"

Now I can give the users a button on their QAT that runs this macro and
gets them directly to our custom templates only.

Thanks again.


Submitted via EggHeadCafe - Software Developer Portal of Choice
XmlDocument Caching / SQL Server nText
http://www.eggheadcafe.com/tutorials...hing--sql.aspx