Dim
doc
As
Document:
Set
doc = ActiveDocument
With
doc
.Tables(1).Cell(2, 1).Range.Words(1).Bold =
True
.Tables(1).Cell(2, 1).Range.Words(1).Bold =
True
.Tables(1).Cell(2, 1).Range.Words(n).Bold =
True
.Tables(1).Cell(2, 1).Range.Characters(1).Bold =
True
.Tables(1).Cell(2, 1).Range.Characters(1).Italic =
True
End
With