Word07 Macro to Insert Locked Date 1

[PeterMoran]

Hi,

I have the following code which I want to use to create a locked date in a Word Document, but seem unable to get the syntax or code correct!

If I remember correctly Locking a Date originally seemed to me to be one of the Field options displayed when you specified "Date", but it does not seem to be there now!

Sub InsertNumDate()
'
' InsertNumDate Macro
' Inserts Numeric Date Locked! - "\!" Not at present!!
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DATE ", PreserveFormatting:=True

' Selection.Fields.Locked = True 'To lock date in field - not in Word 07!

End Sub

Any help appreciated.

Peter Moran

 

[TonyJollans]

[tt]Fields.Locked[/tt] is in Word 2007. The problem appears to be that you are using the [tt]Selection[/tt], and don't have the field selected.

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[PHV]

What about this ?

Dim F As Field
Set F = Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ 
  "DATE ", PreserveFormatting:=True 
F.Locked = True

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PeterMoran]

Thanks Tony and PHV,

Tony, I do not know and could not find the syntax in that context to have the Field Selected!

I thought PHV had the solution until I entered it and found the "Range" after "Add" was highlighted with the error "Unexpected end of statement"!

Any chance of an update.

Peter Moran

 

[PHV]

Sorry fot the typo:
Set F = Selection.Fields.Add[!]([/!]Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"DATE ", PreserveFormatting:=True[!])[/!]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[PeterMoran]

Hi,

Thanks PHV

Got it this time!

Peter Moran

 

[TonyJollans]

Generally it is better to avoid the [tt]Selection[/tt], and a simpler (and faster) way would be ...

[tt][blue]Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldDate, _
PreserveFormatting:=True).Locked=True[/blue][/tt]

(I hate the way the macro recorder creates and fills an empty field!)

Enjoy,
Tony

------------------------------------------------------------------------------------
We want to help you; help us to do it by reading this: Before you ask a question.

I'm working (slowly) on my own website

 

[macropod]

If you're wanting to insert the current date as a fixed date, why are you messing around with fields? You could use probably nothing more complicated than:

Selection.TypeText Date

Cheers
Paul Edstein
[MS MVP - Word]

 

[PeterMoran]

Thanks Paul,

Very Good!

I live and learn.

Peter Moran