Hello Rex,
Sorry not replying in time. There was a hurry on this issue and made a work around.
My version is Office 2010, Word version: 14.0.6112.5000 (32-bits) Dutch.
I tested is also with clean new documents on another computer with the same Word version. The field was inserted in the main text stream and should survive a merge in such way it should also work in the result of the merge which it didn't.
The merge is as follows: I have a template with macros in it. This starts a merge with an Excel sheet with data resulting in a merged doc with several "docs" in it. Then another macro split this up in single documents and after splitting
a specific part in the result document is duplicated several times the amount of a value that was put in the Excel sheet. In this splitted result the SEQ field must increment the amount of the duplication, eg if the part was duplicated 4 times the text should
read declaration 1, declaration 2, declaration 3, declaration 4. In this result document (straight from the merge) nothing survived that looks like {...} fields, even the page codes are lost. I made a work around and that was acceptable in my
case.
Below a small part of the code that starts the merge:
ActiveDocument.MailMerge.OpenDataSource _
Name:= _
DataSource, _
ConfirmConversions:=False, _
ReadOnly:=False, _
LinkToSource:=True, _
AddToRecentFiles:=False, _
PasswordDocument:="", _
PasswordTemplate:="", _
WritePasswordDocument:="", _
WritePasswordTemplate:="", _
Revert:=False, _
Format:=wdOpenFormatAuto, _
Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";" & _
"User ID=Admin;Data Source=DataSource;Mode=Read;" & _
"Extended SQLStatement1:="", _
SubType:=wdMergeSubTypeAccess
Properties=""HDR=YES;IMEX=1;"";" & _
"Jet OLEDB:System database="""";" & _
"Jet OLEDB:Registry Path="""";Jet OLEDB:Datab", _
SQLStatement:=sqlSt, _
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.SuppressBlankLines = True
With .DataSource
.FirstRecord = wdDefaultFirstRecord
.LastRecord = wdDefaultLastRecord
End With
.Execute pause:=False
End With
When the splitting is done I insert the SEQ code with VBA.
Sub InsertSEQ(strAantalDeclaraties As String)
Dim BlijfZoeken As Boolean
BlijfZoeken = True
If Val(strAantalDeclaraties) >= 1 Then
While BlijfZoeken = True
Selection.Find.ClearFormatting
With Selection.Find
.Text = "#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceNone
If Selection.Find.Found Then
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SEQ declaratie\n ", PreserveFormatting:=True
Selection.InsertAfter " van " + strAantalDeclaraties
Selection.Collapse Direction:=wdCollapseEnd
Else
BlijfZoeken = False
End If
ActiveDocument.Fields.Update
Wend
Else
With Selection.Find
.ClearFormatting
.Text = "#"
With .Replacement
.ClearFormatting
.Text = ""
End With
.Execute Replace:=wdReplaceAll, Format:=True, MatchCase:=True, MatchWholeWord:=True
End With
End If
ActiveDocument.Fields.Unlink
End Sub
Kind regards,
Marcel
Lost the { SEQ name \n } code after a merge
