How can I replace FormFields with text

Keybraker · #1 05-05-2019, 04:59 AM

I want to replace every ActiveDocument.FormFields with text, but everything I try is not working

.

I am currently looping though ActiveDocument.FormFields.Count and if it is a checkboox I want it to replace the checkbox with the value in text - "0" or "1".

Code:

Sub Test()

    Dim strCheckBoxSlct As String
    Dim strCheckBoxName As String
    Dim strCheckBoxValue As String
    
    For i = 1 To ActiveDocument.FormFields.Count
        If ActiveDocument.FormFields(i).CheckBox Then
        
            strCheckBoxName = ActiveDocument.FormFields(i).Name
            strCheckBoxValue = ActiveDocument.FormFields(i).CheckBox.Value
            strCheckBoxSlct = ActiveDocument.FormFields(i).Range
            
            'ActiveDocument.FormFields(i).Delete
               
            If strCheckBoxValue = True Then
                ' write 0
            Else
                ' write 1
            End If
            
        End If
    Next
    
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Issue Using FormFields.Result	boCash	Word VBA	0	04-04-2017 12:54 PM
Updating/Locking FormFields	Maskot	Word VBA	4	06-24-2015 04:40 AM
Macro to find coloured text and replace with form-field/formtext containing that text	tarktran	Word VBA	1	11-26-2014 08:12 AM
Mailmerge and Formfields	Liosis	Mail Merge	4	03-07-2014 12:56 PM
Renaming Word Formfields: string too long error	silverspr	Word VBA	7	01-22-2013 06:20 PM