Using a bit of VBA code, your could do it. If you create a macro with the
name of FileSaveAs, that macro will run in place of the File>SaveAs command
Here is the information on the SaveAs method in the Visual Basic Help File
that you would have to use in the macro:
Document.SaveAs Method
Saves the specified document with a new name or format. Some of the
arguments for this method correspond to the options in the Save As dialog
box (File menu).
Syntax
expression.SaveAs(FileName, FileFormat, LockComments, Password,
AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts,
SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding,
InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)
expression Required. A variable that represents a Document object.
Parameters
Name Required/Optional Data Type Description
FileName Optional Variant The name for the document. The default is the
current folder and file name. If the document has never been saved, the
default name is used (for example, Doc1.doc). If a document with the
specified file name already exists, the document is overwritten without the
user being prompted first.
FileFormat Optional Variant The format in which the document is saved. Can
be any WdSaveFormat constant. To save a document in another format, specify
the appropriate value for the SaveFormat property of the FileConverter
object.
LockComments Optional Variant True to lock the document for comments. The
default is False.
Password Optional Variant A password string for opening the document. (See
Remarks below.)
AddToRecentFiles Optional Variant True to add the document to the list of
recently used files on the File menu. The default is True.
WritePassword Optional Variant A password string for saving changes to the
document. (See Remarks below.)
ReadOnlyRecommended Optional Variant True to have Microsoft Office Word
suggest read-only status whenever the document is opened. The default is
False.
EmbedTrueTypeFonts Optional Variant True to save TrueType fonts with the
document. If omitted, the EmbedTrueTypeFonts argument assumes the value of
the EmbedTrueTypeFonts property.
SaveNativePictureFormat Optional Variant If graphics were imported from
another platform (for example, Macintosh), True to save only the Microsoft
Windows version of the imported graphics.
SaveFormsData Optional Variant True to save the data entered by a user in a
form as a record.
SaveAsAOCELetter Optional Variant If the document has an attached mailer,
True to save the document as an AOCE letter (the mailer is saved).
Encoding Optional MsoEncoding The code page, or character set, to use for
documents saved as encoded text files. The default is the system code page.
You cannot use all MsoEncoding constants with this parmeter.
InsertLineBreaks Optional Variant If the document is saved as a text file,
True to insert line breaks at the end of each line of text.
AllowSubstitutions Optional Variant If the document is saved as a text file,
True allows Word to replace some symbols with text that looks similar. For
example, displaying the copyright symbol as (c). The default is False.
LineEnding Optional Variant The way Word marks the line and paragraph breaks
in documents saved as text files. Can be one of the following
WdLineEndingType constants: wdCRLF (default) or wdCROnly.
AddBiDiMarks Optional Variant True adds control characters to the output
file to preserve bi-directional layout of the text in the original document.
Remarks
You can save as a PDF or XPS file from a 2007 Microsoft Office system
program only after you install an add-in. For more information, search for
"Enable support for other file formats, such as PDF and XPS" on Office
Online.
Security
Avoid using hard-coded passwords in your applications. If a password is
required in a procedure, request the password from the user, store it in a
variable, and then use the variable in your code. For recommended best
practices on how to do this, see Security Notes for Microsoft Office
Solution Developers.
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP, originally posted via msnews.microsoft.com
