[Okta Webinar] Learn how to a build a cloud-first strategyRegister Now

x
?
Solved

Microsft word 2003 auto date update

Posted on 2006-04-28
7
Medium Priority
?
325 Views
Last Modified: 2012-08-14
Good Afternoon,
I have searched extensively on your sight and just can't come up with a solution to my issue.

When we open up our word documents the original creation dates change to the current date.
I understand if I turn Go to insert - Date and time and uncheck  Update Automatically it should correct the new documents going forward from changing automatically.

Couple of questions,
Please understand I have never used Macros or normal.dot so please be as specific as possible.

How do I know if there is a macro set up or normal.dot is automatically set up to do this vs. just shutting off AUto update?
When I open word and then open Normal.dot it just opens up a blank word document so I don't think there is any special formatting in this file.

I need a way to open up our current saved documents with auto update embedded to not change the date when we open them.

Is there a Macro that I can add to everyone's computer that when they open the documents this date does not change that is seemless to them?
Or a third party plug-in?

If there is can you please tell me from start to finsish specifically how to do this?

Thanks in advance for your help!
0
Comment
Question by:kcassone
  • 4
  • 3
7 Comments
 
LVL 44

Expert Comment

by:bruintje
ID: 16563606
Hello kcassone,

>>I understand if I turn Go to insert - Date and time and uncheck  Update Automatically it should correct the new documents going forward from changing automatically.

no if you uncheck that setting it will only apply to the current document not a new document

what do you need?


hope this helps a bit
bruintje
0
 

Author Comment

by:kcassone
ID: 16563816
Thanks for your response but none of my questions were answerd.
I will restate what I need.

How do I know if there is a macro set up or normal.dot is automatically set up to do this vs. just shutting off AUto update?
When I open word and then open Normal.dot it just opens up a blank word document so I don't think there is any special formatting in this file.

How do I ensure that when I create a new document it does not use auto update. -
I assumed if automatic update is unchecked when I open word all new documents will not autoupdate.( when you say current what do you mean)  a new document can be current as well as an old document, I think you mean the document currently opened.

I need a way to open up our current saved documents with auto update embedded to not change the date when we open them
0
 
LVL 44

Expert Comment

by:bruintje
ID: 16564154
>>I need a way to open up our current saved documents with auto update embedded to not change the date when we open them

that was what i was looking for the real question

How do i insert the actual date in a new document without it being updated when opened anew

i really assumed all your other questions where just related to the real question

---------
1. How do I know if there is a macro set up

a. you can check a document for a macro by going to the menu Tools
b. choose macros
c. if the list is empty there are no macros in this document

there is a second source of macros are addins

a. go to tools, choose templated and addins
b. mostly only normal.dot is listed if others are then you will need to open them to see if there are macros in it with the method above

2. or normal.dot is automatically set up to do this vs. just shutting off Auto update?

not sure what you mean by this you can with the method above check if there are macros in the normal.dot but turning off autoupdate is not an option in a template or a document it is a property of the field you insert
---------

now back to this >> How do i insert the actual date in a new document without it being updated when opened anew

this can only be done through a macro, you can get a script that will run on any new document and insert the date, this date will not update when the document is opened again if this is what you needed then comment
0
Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 

Author Comment

by:kcassone
ID: 16564761
Ok,
Thanks for steps 1 and 2. I will look at your instruction.
However, the 3rd question is not stated correctly above.
I have 100's of old saved documents that automatically update to todays date when I open them and I don't want that to happen.
 I need a way to automatically ensure when a user opens one of the documents dates do not change.

Is there a macro that you know of that can do this?
I don't want to have to open each document after the date changes to today and then manually change the date back.

Hope this is clear.
Thanks
0
 
LVL 44

Expert Comment

by:bruintje
ID: 16564769
yeah now i see what you need, will look at it
0
 
LVL 44

Accepted Solution

by:
bruintje earned 1000 total points
ID: 16564970
here we go

0. do this on a copy of your originals to be sure you can always start a new
1. open word
2. with ALT+F11 we open the VB Editor
3. from the menu choose insert, then module
4. this give you an empty code pane, and paste the following

'---------
'source: http://word.mvps.org/FAQs/MacrosVBA/BatchFR.htm



Public Sub BatchReplaceAll()

Dim FirstLoop As Boolean
Dim myFile As String
Dim PathToUse As String
Dim myDoc As Document
Dim Response As Long
PathToUse = "C:\Test\"
'Error handler to handle error generated whenever
'the FindReplace dialog is closed

On Error Resume Next
'Close all open documents before beginning
Documents.Close SaveChanges:=wdPromptToSaveChanges
'Boolean expression to test whether first loop
'This is used so that the FindReplace dialog will
'only be displayed for the first document
FirstLoop = True
'Set the directory and type of file to batch process
myFile = Dir$(PathToUse & "*.doc")
While myFile <> ""
    'Open document
    Set myDoc = Documents.Open(PathToUse & myFile)
    If FirstLoop Then
        'Display dialog on first loop only
        Dialogs(wdDialogEditReplace).Show
        FirstLoop = False
        Response = MsgBox("Do you want to process " & _
        "the rest of the files in this folder", vbYesNo)
        If Response = vbNo Then Exit Sub
    Else
        'On subsequent loops (files), a ReplaceAll is
        'executed with the original settings and without
        'displaying the dialog box again
        With Dialogs(wdDialogEditReplace)
            .ReplaceAll = 1
            .Execute
        End With
    End If
    'Close the modified document after saving changes
    myDoc.Close SaveChanges:=wdSaveChanges
    'Next file in folder
    myFile = Dir$()
Wend
End Sub
'---------

5. especially written for cases like this
6. you need to change this line PathToUse = "C:\Test\" to a path where your documents reside
7. now type F5 which will start the macro to run
7. you will get prompted for a find text = DATE and a replace text = CREATEDATE
8. be sure to check the boxes for match case and whole word only
9. now if all goes well all documents in the folder will be updated from autoupdate DATE fields to CREATEDATE fields
0
 

Author Comment

by:kcassone
ID: 16752202
Seems real complicated but I will try it and let you know.
THanks
0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Cancel future meetings from user mailboxes in Office 365 using Remove-CalendarEvents
Windows Explorer lets you open cabinet (cab) files like any other folder. In VBA you can easily handle normal files and folders, but opening and indeed creating cabinet files takes a lot more - and that's you'll find here.
This video shows where to find templates, what they are used for, and how to create and save a custom template using Microsoft Word.
Polish reports in Access so they look terrific. Take yourself to another level. Equations, Back Color, Alternate Back Color. Write easy VBA Code. Tighten space to use less pages. Launch report from a menu, considering criteria only when it is filled…

834 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question