Fjerne fletfelter med vba

Nedenstående makro vil slette alle flettefelter i det hovedområdet (ikke hoved/fod mm.) i det aktive dokument. Makroen tjekker typen af alle felter, og kun flettefelter slettes:

Sub DelteMergeFields()
    Dim oMF As Field
   
    For Each oMF In ActiveDocument.Fields
        If oMF.Type = wdFieldMergeField Then
            'Slet feltet
            oMF.Delete
        End If
    Next oMF
   
End Sub

Men måske det ikke er tilstrækkeligt? Hvis f.eks. et flettefelt findes inde i et andet felt (måske fordi der er sat betingelser op med IF), så skal sådanne "omgivende" felter jo muligvis også slettes.

Fint - virker

Flg. skulle vel kunne lukke dataforbindelsen?

ActiveDocument.MailMerge.MainDocumentType = wdNotAMergeDocument

Ligger du et svar?

Din kodelinje vil fjerne tilknytningen til datakilden - dokumentet vil så ikke længere kunne hente flettedata. Jeg er ikke sikker på, at det er det, du vil.

Jeg tør ikke med sikkerhed sige, hvad du har brug for at gøre, fordi jeg jo ikke har set noget af din kode - jeg ved ikke, hvad den laver, og hvad du vil have den til at lave. Det er slet ikke sikkert, du behøver at gøre noget...