Results 1 to 5 of 5
  1. #1
    Star Lounger
    Join Date
    Nov 2001
    Location
    KS
    Posts
    60
    Thanks
    0
    Thanked 0 Times in 0 Posts

    default saves (Word 2000)

    I have a template that I use in conjunction with a macro button to create the date and header portions of a letter fitted to our company letterhead, and add a signature line. Then all I do is fill in the

  2. #2
    Plutonium Lounger
    Join Date
    Nov 2001
    Posts
    10,550
    Thanks
    0
    Thanked 7 Times in 7 Posts

    Re: default saves (Word 2000)

    Does
    <pre>ChangeFileOpenDirectory "x:folder"
    </pre>

    Do what you want?

    StuartR

  3. #3
    Star Lounger
    Join Date
    Feb 2002
    Location
    Illinois, USA
    Posts
    53
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: default saves (Word 2000)

    Ron:

    Are you opening the template (the dot file) directly or are you creating a document (a doc file) based on the template (File New)? If you are actually opening the template, Word by default will Save As to the folder in which the template is located. It sound to me like you're opening the template file. Another possibility is that you are using a boilerplate which is located in the c:WindowsApplication DataMicrosoftTemplates folder (a doc file). Again, Word will try first to save the file to the folder in which the original doc file is located.

    If you have a doc file, you can save it as a dot file in the templates folder, then use File New and select it as the template on which to base your new document. In Word, under Tools, Options, File Location set the path for Documents at cocuments (it is probably already set that way).

    Hope this solves the problem you are having.

  4. #4
    Star Lounger
    Join Date
    Nov 2001
    Location
    KS
    Posts
    60
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: default saves (Word 2000)

    Stuart, here is the macro language. Can you suggest the right changes:

    ChangeFileOpenDirectory "C:WINDOWSApplication DataMicrosoftTemplates"
    Selection.InsertFile FileName:="2ndPageLtrhead1.dot", Range:="", _
    ConfirmConversions:=True, Link:=False, Attachment:=False
    Selection.Find.ClearFormatting
    Selection.HomeKey Unit:=wdStory
    With ActiveDocument.PageSetup
    .LineNumbering.Active = False
    .Orientation = wdOrientPortrait
    .TopMargin = InchesToPoints(1)
    .BottomMargin = InchesToPoints(1)
    .LeftMargin = InchesToPoints(1.25)
    .RightMargin = InchesToPoints(1.25)
    .Gutter = InchesToPoints(0)
    .HeaderDistance = InchesToPoints(0.5)
    .FooterDistance = InchesToPoints(0.5)
    .PageWidth = InchesToPoints(8.5)
    .PageHeight = InchesToPoints(11)
    .FirstPageTray = wdPrinterLowerBin
    .OtherPagesTray = wdPrinterDefaultBin
    .SectionStart = wdSectionNewPage
    .OddAndEvenPagesHeaderFooter = False
    .DifferentFirstPageHeaderFooter = True
    .VerticalAlignment = wdAlignVerticalTop
    .SuppressEndnotes = False
    .MirrorMargins = False
    .TwoPagesOnOne = False
    .GutterPos = wdGutterPosLeft
    End With
    Selection.MoveDown Unit:=wdLine, Count:=8
    Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
    Selection.Delete Unit:=wdCharacter, Count:=1
    Selection.TypeParagraph
    Selection.MoveUp Unit:=wdLine, Count:=1
    Selection.InsertDateTime DateTimeFormat:="MMMM d, yyyy", InsertAsField:= _
    False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _
    InsertAsFullWidth:=False
    Selection.MoveRight Unit:=wdCharacter, Count:=3

  5. #5
    Star Lounger
    Join Date
    Nov 2001
    Location
    KS
    Posts
    60
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: default saves (Word 2000)

    I figured it out. Thanks for the tip.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •