word macro

gistfile1.txt

Sub transformMyText()
Dim cellText As String



For Each oTbl In ActiveDocument.Tables

    'MsgBox oTbl.Columns.count
        
    For Each oRw In oTbl.Rows
        For Each oCll In oRw.Cells
             cellText = oCll.Range.Text
             If ((Len(cellText) > 3) And (oCll.Range.Font.Bold = -1)) Then
               oCll.Range.Text = cellText & "="
               'MsgBox oCll.Range.Font.Bold
             ElseIf (Len(cellText) > 3) Then
               oCll.Range.Text = cellText & "="
             End If
        Next oCll
    Next oRw
    
Next oTbl


End Sub