I NEED TO CHANGE THE WORD 2007 DEFAULT "SAVE" & "SAVE AS" SAVE AS TYPE DEFAULT LISTING

Here is another doozie from my boss.
Is it possible to change the the "save as type default listings to simply default to "ALL FILE TYPES" instead of .docx or whatever Word thinks is appropriate for the moment.
The thinking is that my boss would like to see what he already has in his folder, so that he doesnt replicate names and so on.
I looked all over and I feel that if it is possible, it may be some kind of registry hack or something.
Thank you.
ralphtricocheAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

x
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Brad HoweDevOps ManagerCommented:
Hi,

There is no such thing as SAV ALL FILE TYPES. you will need to pick one.

To change default file save options in Office Word 2007

1.Double-click Microsoft Office Word 2007, double-click Word Options, and click Save.
2.In the right pane, right-click Save files in this format, and select Properties.
3.In Save files in this format, select Enabled.
4.In the drop-down box, select a default file save format.
5.Click Apply to save the settings.

http://www.mydigitallife.info/2007/01/04/change-office-2007-default-file-save-formats-and-extensions-using-group-policy-gpo/

Cheers
Hades666
Brad HoweDevOps ManagerCommented:
Oh, Sorry I understand the question now.  You want the save as diaglog to have the save type option "All Files (*.*)" in Office 2007.

I don't think there is a way to do this,

Hades666
PandaPantsCommented:
hades666 has it right: I don't think there is a way to do this, either. The reason is, Word has to know how (in what format) to save a document when the user requests it, and how to save temporary documents if any form of automatic saving is enabled. A default MUST be set or Word can't save at all, including in the event of a crash.

That being said, you can write him a macro to display the entire contents of his folder before saving, or even to alert him that another file (with a different file extension) exists with the same name as the one he just chose....
Determine the Perfect Price for Your IT Services

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden with our free interactive tool and use it to determine the right price for your IT services. Download your free eBook now!

ralphtricocheAuthor Commented:
I’m not good with macros. Is there a book or a website that could point me in the right direction for this? This would seem like a good alternative. Would it be something that would be seamless and transparent to him? He is not very "tech friendly"
PandaPantsCommented:
Well, here's a fairly ugly solution, off the top of my head. (It's late on a Friday, what can I say?) Maybe it will point you in the right direction. It brings up a FilePicker dialog to show what files exist (*.*), but your boss will have to proactively save the filename he types in and then paste it into the Save window that follows. The only way to get rid of the FilePicker dialog is to click Cancel.

Hope this helps (or at least amuses).
Public Sub CheckFilenameBeforeSave()
    On Error Resume Next
    Dim sFileName As String
    '****************
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    MsgBox "Start typing a filename to see if it's in use. When the TypeAhead function stops offering suggestions, you've found an unused filename." & _
                vbCrLf & vbCrLf & "Press Ctrl+A then Ctrl+C to save that filename, then click the Cancel button (or Cancel to quit).", vbOKOnly
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    ' Restrict to a single selection
    fd.AllowMultiSelect = False
    fd.Title = "Check existing filenames"
    fd.ButtonName = " "
    fd.InitialFileName = ""
    
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Use the Show method to display the File Picker dialog box and return the user's action.
        If .Show = -1 Then
            'The user pressed the action button.
        Else
            'The user pressed Cancel.
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
    '****************
    MsgBox "Press Ctrl+V on the next screen to insert your the filename you just saved.", vbOKOnly
    ActiveDocument.Save
End Sub

Open in new window

ralphtricocheAuthor Commented:
I will test this out and I will let you know if this works. Thank you for your help and sorry for the late response.
ralphtricocheAuthor Commented:
I tried out the Macro and two things are happening.
1. I can see my boss not wanting the messages once he knows how the Macro should work. How can I get rid of them, or streamline the process.
2. The Macro worked as it should on my machine; however when I created it on his workstation only the first part seemed to kinda work. Meaning as I typed I saw the name of the file I wanted, I pressed CTRL + A but the name disappeared, so I couldn’t copy it, but in any case, I manually did it and I copied the name, when I clicked Cancel, it never opened the second screen as it did on my work station.
Did I do something wrong?
PandaPantsCommented:
1. To remove the messages, simply remove or comment the MsgBox lines (lines 7-8 and line 29 in the snippet above).
2. I'm not sure you did anything wrong, but if the document in question had already been saved once, then the command on line 30, (ActiveDocument.Save) wouldn't bring up a second screen; instead, it would just save the changes to the existing filename. If you were to replace that line with ActiveDocument.SaveAs, that should always bring up a second screen, although you would have to deal with messages about the fact that a file by that name already exists.
ralphtricocheAuthor Commented:
I just tried simply creating a new document name in the first stage of the Macro and when I press Cancel it will not go to the second phase, although it tells me it will, in the message.
PandaPantsCommented:
Well, that's frustrating. I'm sorry you're having so much difficulty. That's what I get for whipping something up late on a Friday...and now, here it is Friday afternoon again. ;~)

If you're up for it, you can try replacing the last line of the previous code (ActiveDocument.Save) with the attached snippet. It's working for me....
Dim fdSaveAs As FileDialog
    Set fdSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    fdSaveAs.Show
    
    'Set the object variable to Nothing.
    Set fdSaveAs = Nothing

Open in new window

ralphtricocheAuthor Commented:
Sure let me try it and I will get back to you.  Thank you for all your help.
ralphtricocheAuthor Commented:
Here's what I am expering now.  The Macro opens the second phase just fine. However it is not saving the file.
Say I have either a blank document, or a test.docx docuemtn open, I either select from a name, do CTRL + A, then copy or write a new name, then hit cancel and paste the new name.
The new name will not go over the old document, nor will it create a new document with a new name?
It acts like it does but it does not.
Any ideas?
Sorry I am not that great at Macros. Im sure it something minor.
ralphtricocheAuthor Commented:
This is what the Macro looks like now, did I mess something up?
Public Sub CheckFilenameBeforeSave()
    On Error Resume Next
    Dim sFileName As String
    '****************
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    MsgBox "Start typing a filename to see if it's in use. When the TypeAhead function stops offering suggestions, you've found an unused filename." & _
                vbCrLf & vbCrLf & "Press Ctrl+A then Ctrl+C to save that filename, then click the Cancel button (or Cancel to quit).", vbOKOnly
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    ' Restrict to a single selection
    fd.AllowMultiSelect = False
    fd.Title = "Check existing filenames"
    fd.ButtonName = " "
    fd.InitialFileName = ""
     
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Use the Show method to display the File Picker dialog box and return the user's action.
        If .Show = -1 Then
            'The user pressed the action button.
        Else
            'The user pressed Cancel.
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
    '****************
    MsgBox "Press Ctrl+V on the next screen to insert your the filename you just saved.", vbOKOnly
    Dim fdSaveAs As FileDialog
    Set fdSaveAs = Application.FileDialog(msoFileDialogSaveAs)
    fdSaveAs.Show
    
    'Set the object variable to Nothing.
    Set fdSaveAs = Nothing

End Sub

Open in new window

PandaPantsCommented:
Okay, let's take a different approach. I just threw out everything from line 29 on, and replaced it with an input box to collect the saved filename, and a single line to save the document with that name. See how that works. (My fingers are crossed.)
Public Sub CheckFilenameBeforeSave()
    On Error Resume Next
    Dim sFileName As String
    '****************
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    MsgBox "Start typing a filename to see if it's in use. When the TypeAhead function stops offering suggestions, you've found an unused filename." & _
                vbCrLf & vbCrLf & "Press Ctrl+A then Ctrl+C to save that filename, then click the Cancel button (or Cancel to quit).", vbOKOnly
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    ' Restrict to a single selection
    fd.AllowMultiSelect = False
    fd.Title = "Check existing filenames"
    fd.ButtonName = " "
    fd.InitialFileName = ""
    
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Use the Show method to display the File Picker dialog box and return the user's action.
        If .Show = -1 Then
            'The user pressed the action button.
        Else
            'The user pressed Cancel.
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
    '****************
    sFileName = InputBox("Press Ctrl+V in the field below to insert the filename you just saved.")
    ActiveDocument.SaveAs FileName:=sFileName

End Sub

Open in new window

ralphtricocheAuthor Commented:
This worked. I can see a problem however. 1. It does not allow you to save in any particuar folder. When I tested it I was looking at my desktop and It saved it in the "my docuemnts" folder. My boss works out of several different folkds. He uses some more than others, but this was he losses any flexability.
PandaPantsCommented:
Okay, that makes sense: If we don't define a particular folder, Word will default to the, um, default folder. So, we're looking for a way to save the path that was used in the original FileDialog. I'll try some things and get back to you.
ralphtricocheAuthor Commented:
Thank you very much for all your help.
PandaPantsCommented:
Sheesh, it's so obvious, now that I've seen it. I left out the Execute command in the original code that used the SaveAs dialog. One more time:
Public Sub CheckFilenameBeforeSave()
    On Error Resume Next
    Dim sFileName As String, sPath As String
    '****************
    'Declare a variable as a FileDialog object.
    Dim fd As FileDialog
    MsgBox "Start typing a filename to see if it's in use. When the TypeAhead function stops offering suggestions, you've found an unused filename." & _
                vbCrLf & vbCrLf & "Press Ctrl+A then Ctrl+C to save that filename, then click the Cancel button (or Cancel to quit).", vbOKOnly
    'Create a FileDialog object as a File Picker dialog box.
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    ' Restrict to a single selection
    fd.AllowMultiSelect = False
    fd.Title = "Check existing filenames"
    fd.ButtonName = " "
    fd.InitialFileName = ""
    
    'Use a With...End With block to reference the FileDialog object.
    With fd
        'Use the Show method to display the File Picker dialog box and return the user's action.
        If .Show = -1 Then
            'The user pressed the action button.
                'Step through each string in the FileDialogSelectedItems collection
            For Each vrtSelectedItem In .SelectedItems
                sPath = vrtSelectedItem
                'vrtSelectedItem is a String that contains the path of each selected item.
                'You can use any file I/O functions that you want to work with this path.
                'This example simply displays the path in a message box.
                MsgBox "Selected item's path: " & vrtSelectedItem

            Next vrtSelectedItem
        Else
            'The user pressed Cancel.

    
    
        End If
    End With
    'Set the object variable to Nothing.
    Set fd = Nothing
    '****************
    sFileName = InputBox("Press Ctrl+V in the field below to insert the filename you just saved.")
    Set fd = Application.FileDialog(msoFileDialogSaveAs)
    fd.InitialFileName = sFileName
        'Use the Show method to display the File Picker dialog box and return the user's action.
        If fd.Show = -1 Then
            'The user pressed the action button.
            fd.Execute
        Else
            'The user pressed Cancel.
        End If

End Sub

Open in new window

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
ralphtricocheAuthor Commented:
I think this will work. FANTASTIC WORK my friend. Thank you so much. If he asked for more stuff, then I'll be sure to post again. Just to be sure, in case he gets tired of the messages, where do I get rid of them now?

Thanks have a great weekend.
PandaPantsCommented:
Just search for the MsgBox -- there's only one left, now (in lines 7-8). The other one was replaced by the InputBox on line 41, which is serving a dual purpose and probably should be left alone. Enjoy your weekend!
ralphtricocheAuthor Commented:
This was like working on a joint project with an old colleague. It was wonderful experience.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Microsoft Word

From novice to tech pro — start learning today.