PSS ID Number: 146644
Article Last Modified on 5/13/2002
Sub MAIN
StartOfDocument
' Turn screen updating off.
ScreenUpdating 0
' Note that "<TEXTFIELD>" (below) needs to be whatever the user has
' as a temporary text form field "replacement" in their original
' merge document.
EditFind .Find = "<TEXTFIELD>", .Direction = 0, .Wrap = 1
' This makes sure that there are actually more "fields" to replace
' before putting in a new form field. Without this it would endlessly
' insert text form fields at the end of the document.
While EditFindFound()
InsertFormField .Enable = 1, .TextType = 0, .TextWidth = "0"
EditFind
Wend
ScreenUpdating 1 'Turn screen updating back on.
StartOfDocument
End Sub
Fields that are Fields that are
not unlinked unlinked
-------------------------------------------------
= (Formula) Ask
Advance Author
AutoNum AutoText
AutoNumLgl AutoTextList
AutoNumOut Comments
BarCode Compare
Date CreateDate
EQ Database
FormCheckbox DocProperty
FormDropDown DocVariable
GotoButton EditTime
IncludePicture FileName
IncludeText FileSize
Link FillIn
MacroButton Hyperlink
NoteRef If
Page Index
PageRef Info
Print Keyword
PrintDate LastSavedBy
Private ListNum
RD Mergefield
Section (See NOTE) MergeRec
SectionPages MergeSeq
Symbol Next
TA NextIf
TC NumChars
Time NumWords
Quote
Ref
RevNum
SaveDate
Seq
Set
SkipIf
StyleRef
Subject
Template
Title
TOA
TOC
UserAddress
UserInitials
UserName
NOTE: The Section field in Word for the Macintosh version 6.0 and 6.0.1
will be unlinked.
Additional query words: text form mail merge mailmerge lost stripped removed disappear print merging display field formfield drop down dropdown
Keywords: kbbug kbdtacode kbfield kbinfo kbmacroexample kbmerge KB146644
Technology: kbHWMAC kbOSMAC kbWord600 kbWord600a kbWord600c kbWord600Mac kbWord600NT kbWord601aMac kbWord601Mac kbWord95 kbWord95a kbWord95Search kbWordMacSearch kbWordSearch kbZNotKeyword2 kbZNotKeyword3