Reply
 
Thread Tools Display Modes
  #1   Report Post  
Posted to microsoft.public.word.docmanagement
Aaks Aaks is offline
external usenet poster
 
Posts: 1
Default How do I make Word remember where the last document was saved?

I am trying to save several files in the same location. However, each time I
try to save a document, it goes back to My Computer, and I have to navigate
to the folder I want to save my documents in. Is there a way for word to
remember and show the last location straight away, when saving multiple files
in the same location.
  #2   Report Post  
Posted to microsoft.public.word.docmanagement
Suzanne S. Barnhill Suzanne S. Barnhill is offline
external usenet poster
 
Posts: 33,624
Default How do I make Word remember where the last document was saved?

Ordinarily Word does do this, at least within a given Word session. If you
start Word fresh for each document, it will default to the folder you have
specified for "Documents" on the File Locations tab of Tools | Options. You
can change this path, and you can also add specific folders in current use
to the Places Bar in the Open and Save dialogs.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA

"Aaks" wrote in message
...
I am trying to save several files in the same location. However, each time
I
try to save a document, it goes back to My Computer, and I have to
navigate
to the folder I want to save my documents in. Is there a way for word to
remember and show the last location straight away, when saving multiple
files
in the same location.



  #3   Report Post  
Hard__warE Hard__warE is offline
Junior Member
 
Posts: 0
Default

Here are some Macro's for Word 2010 that allows it to Remember the last
Location you Saved to or Opened a Document From.

The code is not 100% Optimized, but does work as expected ...

Has not been tested with Word 2007 ...

Add these Macro's to your Normal.dotm

-------------------- Start of Macro's-------------------

Sub FileOpen()

FilePath (wdDialogFileOpen)

End Sub

Sub FileSave()

FilePath ("Save")

End Sub

Sub FileSaveAs()

FilePath (wdDialogFileSaveAs)

End Sub

Function FilePath(iDialog)
Dim MyString As String
uProfile = Environ("USERPROFILE")

If FileOrDirExists(uProfile & "\FilePath.txt") Then
Else: GoTo SkipInput
End If

Open uProfile & "\FilePath.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
Loop
Close #1

ChangeFileOpenDirectory MyString

SkipInput:
If iDialog = "Save" Then
ActiveDocument.Save
Else
Set nDialog = Dialogs(iDialog)
On Error Resume Next
With nDialog
.Show
End With
On Error GoTo 0
End If

Open uProfile & "\FilePath.txt" For Output As #2
Write #2, CurDir()
Close #2

End Function

Function FileOrDirExists(PathName As String) As Boolean
Dim iTemp As Integer

On Error Resume Next
iTemp = GetAttr(PathName)

Select Case Err.Number
Case Is = 0
FileOrDirExists = True
Case Else
FileOrDirExists = False
End Select

On Error GoTo 0
End Function

-------------------- End of Macro's -------------------

Quote:
Originally Posted by Aaks View Post
I am trying to save several files in the same location. However, each time I
try to save a document, it goes back to My Computer, and I have to navigate
to the folder I want to save my documents in. Is there a way for word to
remember and show the last location straight away, when saving multiple files
in the same location.
  #4   Report Post  
Posted to microsoft.public.word.docmanagement
hard__ware hard__ware is offline
external usenet poster
 
Posts: 1
Default How do I make Word remember where the last document was saved?


Here are some Macro's for Word 2010 that allows it to Remember the
last
Location you Saved to or Opened a Document From.

The code is not 100% Optimized, but does work as expected ...

Has not been tested with Word 2007 ...

Add these Macro's to your Normal.dotm

-------------------- Start of Macro's-------------------

Sub FileOpen()

FilePath (wdDialogFileOpen)

End Sub

Sub FileSave()

FilePath ("Save")

End Sub

Sub FileSaveAs()

FilePath (wdDialogFileSaveAs)

End Sub

Function FilePath(iDialog)
Dim MyString As String
uProfile = Environ("USERPROFILE")

If FileOrDirExists(uProfile & "\FilePath.txt") Then
Else: GoTo SkipInput
End If

Open uProfile & "\FilePath.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, MyString
Loop
Close #1

ChangeFileOpenDirectory MyString

SkipInput:
If iDialog = "Save" Then
ActiveDocument.Save
Else
Set nDialog = Dialogs(iDialog)
On Error Resume Next
With nDialog
Show
End With
On Error GoTo 0
End If

Open uProfile & "\FilePath.txt" For Output As #2
Write #2, CurDir()
Close #2

End Function

Function FileOrDirExists(PathName As String) As Boolean
Dim iTemp As Integer

On Error Resume Next
iTemp = GetAttr(PathName)

Select Case Err.Number
Case Is = 0
FileOrDirExists = True
Case Else
FileOrDirExists = False
End Select

On Error GoTo 0
End Function

-------------------- End of Macro's -------------------


Aaks;20630 Wrote:

I am trying to save several files in the same location. However, each
time I
try to save a document, it goes back to My Computer, and I have to

navigate
to the folder I want to save my documents in. Is there a way for word

to
remember and show the last location straight away, when saving multiple

files
in the same location.



--
hard__ware
------------------------------------------------------------------------
hard__ware's Profile: http://www.thecodecage.com/forumz/member.php?u=2359
View this thread: http://www.thecodecage.com/forumz/showthread.php?t=6271

http://www.thecodecage.com/forumz


--- news://freenews.netfront.net/ - complaints: ---
Reply
Thread Tools
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
How to make a document 'remember' which printer. ThomasAJ Microsoft Word Help 9 March 21st 08 02:43 PM
How do I make word remember extra line between paragraph numbers ScottS Microsoft Word Help 3 January 25th 08 09:20 AM
Is it possile to make Three saved files into one document? Leona Microsoft Word Help 1 July 27th 06 11:34 AM
saved word document open blank how to make it bijo Microsoft Word Help 1 March 8th 06 04:16 PM
I can't remember the name of a saved document but I do remember s. Ronda M Microsoft Word Help 3 December 12th 05 07:05 PM


All times are GMT +1. The time now is 11:16 PM.

Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Copyright ©2004-2024 Microsoft Office Word Forum - WordBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Word"