To automatically add a square bracket VBA code to a Word document reference

The following macro code, used in Word environments, automatically adds brackets or brackets to Word document references

' Addmarkref Macro

Dim Parag as Paragraph

Dim Selrge as Range

Dim Rge as Range

Dim Nfield as Integer

Dim Nparag as Integer

Set Selrge = Selection.Range

MsgBox "Should you choose a good reference before using the macro code?"

ActiveDocument.ActiveWindow.View.FieldShading = wdfieldshadingwhenselected

For Nparag = 1 to SelRge.Paragraphs.Count

Set rge = selrge.paragraphs (Nparag). Range

Rge. Select

Nfield = Selection.Fields.Count

For i = 1 to Nfield

Rge. Select

If Selection.Fields.Count >= 1 Then

With Selection.fields (i)

. Update

. Select

End With

Selection.cut

Selection.InsertBefore ("[")

Selection.Collapse Direction:=wdcollapseend

Selection.paste

Selection.InsertAfter ("]")

End If

Next I

Next Nparag

End Sub