Need a Macro to Bring Up MailMerge Find Record Option

[LDickenson]

Hi

I have created a templated and I need to create a tooldbar shortcut that brings up a prompt to a user to enter some data for a field to equal i.e. index number and they type in 6 then the document merges to a new document.

Any help would be greatly appreciated.

Thanks,

Lisa

 

[Chance1234]

what have you tried so far ?

Chance,

Filmmaker, gentleman and ROMAN!

 

[LDickenson]

I have tried this and it does work but I am specifing an actual value that I want the field to equal here, when all I want is the Find in Field box to be displayed to the user.

RecentFiles(1).Open
ActiveDocument.MailMerge.DataSource.FindRecord FindText:="TZHeworkengine", _
Field:="HostName"
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

 

[LDickenson]

An tried this butagain I am specifing what is in the field

ActiveDocument.MailMerge.DataSource.QueryString = _
"SELECT * FROM N:\catering.txt WHERE ((HostName = 'TZHeworkengine'))" & _
""
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute Pause:=False
End With
End Sub

 

[PHV]

Have a look at the InputBox function.

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