关于控制word的问题

想实现输出这样一个文件格式的word文件的程序
1.【Name】*****    【sex】男   【age】20
  【Address】*******************************
  
2.【Name】*****    【sex】男   【age】20
  【Address】*******************************
  3.【Name】*****    【sex】男   【age】20
  【Address】*******************************
  4.【Name】*****    【sex】男   【age】20
  【Address】*******************************
Dim objWord As Object
    Set objWord = CreateObject("Word.Application")
    
    objWord.Visible = True
    objWord.Documents.AddobjWord.Selection.TypeText Text:="【Name】" & "****"
                 objWord.Selection.ParagraphFormat.TabStops.Add Position:=objWord.CentimetersToPoints(6.35) _
                       , Alignment:=3, Leader:=5
    
                 objWord.Selection.TypeText Text:=vbTab & "【Sex】" & "男"
                 objWord.Selection.ParagraphFormat.TabStops.Add Position:=objWord.CentimetersToPoints(11.35) _
                      , Alignment:=3, Leader:=5
    
                objWord.Selection.TypeText Text:=vbTab & "【Age】" & "20"                 objWord.Selection.TypeParagraph
                 objWord.Selection.TypeText Text:="【Address】" "*********"  为什么输出结果和想要的不一样呀有两个问题
1、第一行和其它行对不齐
2、第一行如下显示
1.【Name】*****【sex】男【age】20　为什么分不开？