[Tom]

Oh, I think I got it.

Sub NoteIcon()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
If oTbl.Cell(1, 1).Range.Style = _
ActiveDocument.Styles("Note") Then
oTbl.Cell(1, 1).Range.Select
With Selection
'.InsertColumns
.InsertCells _
ShiftCells:=wdInsertCellsShiftRight
.TypeText Text:="Noteicon"
.Style = ActiveDocument.Styles("Notetable")
.Cells(1).Width = 22
End With

oTbl.Cell(1, 2).Range.Select
With Selection
'.InsertColumns
.Cells(1).Width = 378
End With
End If
Next oTbl
End Sub

Thanks for all your help. Sorry that I keep replying to my own posts
like this.