Selection.Font.Underline = wdUnderlineSingleSelection.TypeText Text:="123"
楼上正解，补充下：写入数据用write #1,abcd
