how to remove one field in document.fields

[labaffagaston]

hello
i am beginner and i try transform at field.mergefield and fieldif to bookmarks for a lot of document.

but i dont find how to remove one field in the collection document.fieds in vb

Dim chIF As Fields.IfField
Dim chMM As Fields.MergeField
For Each ch As Fields.Field In document.Fields
Try
Select Case ch.Type
Case FieldType.FieldMergeField
chMM = CType(ch, Fields.MergeField)
' create bookmark with the name of mailmerge fiel and text in bookmark "namemailmerge
## help needed## ' delete field Mailmerge

Case FieldType.FieldIf
chIF = CType(ch, Fields.IfField)
## help needed## delete fieldif maybe chIF remove Or doccument.fields.remove at .....????
End Select

'tempo.Add(ch.Code)
'tempo.Clear()
Catch ex As Exception
MessageBox.Show("erreur de traitement de champs mail merge -> " & ch.ToString())

End Try
Next

thank's for your help

[Jane.Bai]

Hello,

Thanks for your inquiry.
Please refer to the below code to accomplish your task.

Code: Select all

 Dim document As New Document()
 document.LoadFromFile(word_file_open_dialog.FileName)
 For Each section As Section In document.Sections
    For Each dobj As DocumentObject In section.Body.ChildObjects
       If TypeOf dobj Is Paragraph Then
          Dim objs As DocumentObjectCollection = (TryCast(dobj, Paragraph)).ChildObjects
          Dim i As Integer = 0
          Dim nav As New BookmarksNavigator(document)
          Do While i < objs.Count
             If TypeOf objs(i) Is Field Then
                Dim field As Field = TryCast((TryCast(dobj, Paragraph)).ChildObjects(0), Field)
                If field IsNot Nothing AndAlso field.Type = FieldType.FieldIf Then
                   'remove filed and insert bookmark
                   'you can name the bookmark according to your need, here I take the "IFField" as an example
                   Dim bkstart As New BookmarkStart(document, "IFField")
                   Dim bkend As New BookmarkEnd(document, "IFField")
                   objs.RemoveAt(i)
                   objs.Insert(i, bkstart)
                   objs.Insert(i + 1, bkend)
                   'insert content into the bookmark
                   nav.MoveToBookmark("IFField")
                   nav.InsertText(field.Code)
                End If

                If field IsNot Nothing AndAlso field.Type = FieldType.FieldMergeField Then
                   Dim bkstart As New BookmarkStart(document, "MergeField")
                   Dim bkend As New BookmarkEnd(document, "MergeField")
                   objs.RemoveAt(i)
                   objs.Insert(i, bkstart)
                   objs.Insert(i + 1, bkend)
                   'insert content into the bookmark
                   nav.MoveToBookmark("MergeField")
                   nav.InsertText(field.Code)
                End If
             End If
             i += 1
          Loop
       End If
    Next dobj
 Next section

 document.SaveToFile("fieldresult.docx")


If the code does not work on your side, please send your sample document to us(support@e-iceblue.com) and then I will provide the solution accordingly.

Sincerely,
Jane
E-iceblue support team

[labaffagaston]

thank you for your answer
i wil try it
fred

[Jane.Bai]

Hello,

Greetings from e-iceblue!
Have you tried the code? Looking forward to your reply.

Sincerely,
Jane
E-iceblue support team