Word VBA Assistance

Re: Word VBA Assistance

Hi Sin....

is that first name sin, second name thetic...?

Anyway, I know nothing about Word Macros, but just recorded the actions you described below in a macro.... The result looked like this -

public sub test()


ActiveDocument.SaveAs FileName:="Doc4.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
    ActiveDocument.Save
    ActiveDocument.Close
end sub

Note - you say in your post, you want to 'save as' then 'save' and close the document. I'm not sure if you really wanted to go "save as" and then "save". Not much point in doing the two when there will be no changes between the "save as" and "save". Does that make sense? Anyway, just remove ActiveDocument.Save if you dont want to do two saves.

HTH
Ger

Re: Word VBA Assistance

Why dont you just assign a key stroke to the macro?
Ger

Re: Word VBA Assistance

Sorry Sin, I still dont understand. The code I provided will do all of this for you... You dont need to record or re-record the macro.

Enter the code in the VBE and follow the instructions to assign a key to a macro as follows (from the Word Help file)

Quote

Assign or remove a shortcut key
Show All
Hide All
You can assign a shortcut key (shortcut key: A function key or key combination, such as F5 or CTRL+A, that you use to carry out a menu command. In contrast, an access key is a key combination, such as ALT+F, that moves the focus to a menu, command, or control.) to a command, macro (macro: An action or a set of actions that you can use to automate tasks. Macros are recorded in the Visual Basic for Applications programming language.), font, AutoText (AutoText: A storage location for text or graphics you want to use again, such as a standard contract clause or a long distribution list. Each selection of text or graphics is recorded as an AutoText entry and is assigned a unique name.) entry, style, or commonly used symbol.

On the Tools menu, click Customize.
Click Keyboard.
In the Save changes in box, click the current document name or template (template: A file or files that contain the structure and tools for shaping such elements as the style and page layout of finished files. For example, Word templates can shape a single document, and FrontPage templates can shape an entire Web site.) in which you want to save the shortcut key changes.
In the Categories box, click the category that contains the command or other item.
In the Commands box, click the name of the command or other item.
Any shortcut keys that are currently assigned appear in the Current keys box.

Display More

Ger

Re: Word VBA Assistance

By the way, 2 other things...

1) you can assign a keyboard short cut to any menu item, font or macro that already exists.
2) what you are trying to do in code can be done using two pre-existing MS Word keyboard short cuts CTRL + S to save the document (or save as if it hasnt already been saved) and CTRL + W to close the document. ALT + F4 closes word completely.

Ger

Re: Word VBA Assistance

Ger

I don't know if I'm right but I think the OP wants to display the Save As dialog box to prompt for a filename.:)

We all know how to do that in Excel - GetSaveAsFilename, but I'm unsure how it's done in Word.

I'll just go and see if I can find out.