替换 MS-Word 中的复选框

Question

I have a document with a large number of checkboxes spread around the text and I would like to replace all checkboxes with characters.

Example:

If checkbox is checked then replace it with "A"
If checkbox is not Checked then replace it with "O"

For the time being I can only replace all checkboxes with a letter regardless of their state (checked or unchecked). I need to improve my macro so it recognizes the state of the checkbox and replacing it with the right litteral.

Thanks in advance

Sub Checkbox_Replacement()
Dim i As Long, Rng As Range
With ActiveDocument
For i = .FormFields.Count To 1 Step -1
With .FormFields(i)
If .Type = wdFieldFormCheckBox Then
Set Rng = .Range
.Delete
Rng.Text = "A"
End If
End With
Next
Set Rng = Nothing
End With
End Sub

Expected Result

If checkbox is checked then replace it with "A"
If checkbox is not Checked then replace it with "O"

Actual Result

All checkboxes are replaced with "A"

Answer 1

You need a second If..Else block to check the condition of the checkbox:

If .Type = wdFieldFormCheckBox Then
Set Rng = .Range
    If .CheckBox.Value = True Then
        Rng.Text = "A"
    Else
        Rng.Text = "O"
    End If
    .Delete
End If

Answer 2

The answer to the problem was to remove the.Delete

Sub Checkbox_Replacement()
Dim i As Long, Rng As Range
With ActiveDocument
For i = .FormFields.Count To 1 Step -1
With .FormFields(i)
If .Type = wdFieldFormCheckBox Then
Set Rng = .Range
If .CheckBox.Value = True Then
Rng.Text = "A"
Else
Rng.Text = "O"
End If
End If
End With
Next
Set Rng = Nothing
End With
End Sub