Code:
Sub CreatDoc()
Dim newDoc As Document
Dim rg As Range
Set newDoc = Documents.Add
Set rg = ActiveDocument.Range(Start:=0, End:=0)
newDoc.Tables.Add Range:=rg, NumRows:=1, NumColumns:=1
With newDoc.Tables(1).Cell(1, 1)
.Range.Text = "Hi!"
'How do I change the style of the text in table 1 cell(1,1)?
End With
End Sub