How To Remove Automatic Date....

  • Thread starter Thread starter Bright Spark
  • Start date Start date
B

Bright Spark

Can someone please help me out with how to remove the automatic date
feature in MS Word documents when the documents have been prepared by
someone else. In other words, I have a bunch of memos which have been
created over the past couple of years, but every single one of them
opens with today's date in them and I just can't seem to get the
original date. I need to know and be able to print the memos with
the date they were created, not today's date, and it's making me
nuts!! :o))

I've tried removing all formatting, etc., but I'm just not coming up
with the right answer.

While I'm at it, I would like to remove all the "other" formatting
stuff in these memos that I do not use, like the 1/2 and 1/4
signs/symbols, etc.

Thanks very much for any help.

Bright Spark
 
Thank you! I have found how to get to the date field and change it.

I don't suppose there is a "global" way to do this in a whole folder
of documents at the same time, is there? Too much to hope for, I'm
sure!!

Bright Spark
 
The code from my web site will need changing a tad to enable the change to
be made in a the field. It will also replace any occurrence of the word date
that does not form part of a field, so after running the macro, revert the
first section to the original code and replace 'createdate' with date if the
word is used in the text..

Replace the appropriate sections of the code with:

'Open each file and make the replacement
Set myDoc = Documents.Open(PathToUse & myFile)
' Fix the skipped blank Header/Footer problem
ActiveWindow.View.ShowFieldCodes = True
MakeHFValid
' Iterate through all story types in the current document
For Each rngstory In ActiveDocument.StoryRanges
' Iterate through all linked stories
Do
SearchAndReplaceInStory rngstory, FindText, Replacement
' Get next linked story (if any)
Set rngstory = rngstory.NextStoryRange
Loop Until rngstory Is Nothing
Next
'Close the file, saving the changes.
ActiveWindow.View.ShowFieldCodes = False
myDoc.Close Savechanges:=wdSaveChanges
myFile = Dir$()

and

Do Until (rngstory Is Nothing)
With rngstory.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = strSearch
.Replacement.Text = strReplace
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.Execute replace:=wdReplaceAll
End With
Set rngstory = rngstory.NextStoryRange
Loop

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Thank you, Graham! I appreciate your response. This looks a bit
complicated to me - I'm just a word processor not a programmer, I'm
afraid, but I'll give it a shot! How come Microsoft doesn't write
the code??!! <g>

Bright Spark
 
Thank you, Suzanne! It's a bit complicated for me to write code, but
I'll give it a try!

Bright Spark
 
If Microsoft could anticipate every possible user requirement then I am sure
it would write the code, but as this is impossible it provides the tools to
do so yourself. If you are unfamiliar with the use of vba listings checkout
http://www.gmayor.com/installing_macro.htm. Pity you had to start with such
a complicated macro :)

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
This is nothing to do with the battery! It is a field updating issue.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com

<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
 
Back
Top