CreateHeaderSource Method

Creates a Microsoft Word document that stores a header record that's used in place of the data source header record in a mail merge. This method attaches the new header source to the specified document, which becomes a main document if it's not one already.

Note  The new header source uses a table to arrange mail merge field names.

Security   Avoid using hard-coded passwords in your applications. If a password is required in a procedure, request the password from the user, store it in a variable, and then use the variable in your code. For recommended best practices on how to do this, see Security Notes for Microsoft Office Solution Developers.

expression.CreateHeaderSource(Name, PasswordDocument, WritePasswordDocument, HeaderRecord)

expression    Required. An expression that returns a MailMerge object.

Name    Required String. The path and file name for the new header source.

PasswordDocument    Optional Variant. The password required to open the new header source.

WritePasswordDocument    Optional Variant. The password required to save changes to the new header source.

HeaderRecord    Optional Variant. A string that specifies the field names for the header record. If this argument is omitted, the standard header record is used: "Title, FirstName, LastName, JobTitle, Company, Address1, Address2, City, State, PostalCode, Country, HomePhone, WorkPhone." To separate field names in Windows, use the list separator specified in Regional Settings in Control Panel.

Example

This example creates a header source with five field names and attaches the new header source named "Header.doc" to the active document.

    ActiveDocument.MailMerge.CreateHeaderSource Name:="Header.doc", _
    HeaderRecord:="Name, Address, City, State, Zip"
  

This example creates a header source for the document named "Main.doc" (with the standard header record) and opens the data source named "Data.doc."

    With Documents("Main.doc").MailMerge
    .CreateHeaderSource Name:="Fields.doc"
    .OpenDataSource Name:="C:\Documents\Data.doc"
End With