ReplaceInFormFields

ReplaceInFormFields.bas

Private Sub ReplaceInFormFields(Semester)

    Dim mergeField As Field
    Dim fieldCode As String

    ' Loop through each merge field
    For Each mergeField In ActiveDocument.Fields
        If mergeField.Type = wdFieldMergeField Then
            ' Get the field code text
            fieldCode = mergeField.Code.Text
            
            ' Check if the field code contains a #
            If InStr(fieldCode, "#") > 0 Then
                ' Replace # with a number (e.g., 1)
                fieldCode = Replace(fieldCode, "#", Semester)
                
                ' Update the field code text
                mergeField.Code.Text = fieldCode

            End If
        End If
    Next mergeField

End Sub

Replace the hashtag with a number in all formfield names. Word does not show these updates immediately