How to format mergefield dates and numbers within VBA code

[Philip Lages]

Hi,

I use this code to insert mergefields filled by an Access DB into a
document .

ActiveDocument.FormFields("txtWerkNaam").Select
ActiveDocument.MailMerge.Fields.Add Range:=Selection.Range,
Name:="naam_werk"

This works fine but the contents of the date fields are formatted dd/MM/yyy
H/mm/ss
I don't want to disply the time in my document.
How can i format mergefields in VBA

Any help appreciated

Philip Lages

 

[Doug Robbins]

Hi Philip,

Use the following code to insert the mergefield with a formatting switch:

Dim myrange As Range
Set myrange = ActiveDocument.FormFields("txtWerkNaam").Range
ActiveDocument.Fields.Add Range:=myrange, Type:=wdFieldEmpty,
Text:="mergefield txtWerkNaam \@ ""dd MM yyyy"""


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP

 

[Philip Lages]

Thanks Doug this works perfectly

Philip Lages

Hi Philip,

Use the following code to insert the mergefield with a formatting switch:

Dim myrange As Range
Set myrange = ActiveDocument.FormFields("txtWerkNaam").Range
ActiveDocument.Fields.Add Range:=myrange, Type:=wdFieldEmpty,
Text:="mergefield txtWerkNaam \@ ""dd MM yyyy"""


--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP