how to propagate label fields in word Mail Merge from Excel

[bulevardi]

I want to make a mail merge for labels.
I want it to run from my excel application.

I know already that it's better to open a word document that runs a word macro that makes the labels.
But instead, I need my excel macro creating a new word doc with the labels inside.

It works already fine, except to propagate the fields in every label. I tried it with

For c = 1 To .mailmerge.Fields.Count
      .mailmerge.Fields.Add Range:=Selection.Range.Fields(c), Type:=wdFieldMergeField, Text:="""Naam"""
      .mailmerge.Fields.Update
    Next c

But apparently, when I open the word doc afterwards, it isn't filled with the fields, and I have to do it manually again myself.

Can someone help with this?
Or does someone have a working example?

Sub mailmerge()

MsgBox "mailmerge is working"
 
Dim appWD As Object 
Dim etiketten As String
etiketten = "C:\myfolder\mylabels.doc"
 
Dim strThisWorkbook As String
strThisWorkbook = ThisWorkbook.FullName
 
If appWD Is Nothing Then
 Set appWD = CreateObject("Word.Application")
End If
    
appWD.Visible = True
Set wrdDoc = appWD.Documents.Add
With wrdDoc
    .SaveAs (etiketten)
    .Activate
End With
With wrdDoc
 .mailmerge.MainDocumentType = wdMailingLabels
 .mailmerge.OpenDataSource ThisWorkbook.FullName, , , , , , , , , , , "Data Source=" & strThisWorkbook & ";Mode=Read", "SELECT * FROM `Temp$`"
 .mailmerge.ViewMailMergeFieldCodes = wdToggle

' somewhere here, the script does not propagate the fields in the word  document 
    For c = 1 To .mailmerge.Fields.Count
      .mailmerge.Fields.Add Range:=Selection.Range.Fields(c), Type:=wdFieldMergeField, Text:="""Naam"""
      .mailmerge.Fields.Update
    Next c
    
End With
 
With wrdDoc
    .SaveAs (etiketten)
End With

Set wrdDoc = Nothing
appWD.Quit
Set appWD = Nothing
End Sub

 

[bulevardi]

When I reopen the word document later on aswel.
He doesn't open it as a labels type document, but as the default word document.

 

[bulevardi]

Seems a difficult and recurring topic, since I haven't had any reactions.

Found a solutions, one month later:
http://bulevardi.be/?content=scripting&example=exvb3

Thanks for all your help, forum...