delphi 设置word字间距

Question

用delphi怎样设置word字间距呢？另外我画的表格为什么边线很浅
wtbDtl := doc.Tables.Add(range1, 1, 1);
range1.InsertAfter(title1+#13);
range1.Collapse(0);
Range1.InsertAfter(title1_1);

Answer 1

Sub Macro1()
'
' Macro1 Macro
' 宏在 2014-08-01 由 Techwix 录制
'
With Selection.Font
.NameFarEast = "宋体"
.NameAscii = "Times New Roman"
.NameOther = "Times New Roman"
.Name = ""
.Size = 10.5
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 1.5
.Scaling = 100
.Position = 0
.Kerning = 1
.Animation = wdAnimationNone
.DisableCharacterSpaceGrid = False
.EmphasisMark = wdEmphasisMarkNone
End With
End Sub

录制几次宏，比较下就知道怎么用