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