with word
     .Selection.Font.Name = CmbFont.List(I)
     .Selection.Font.Size = TxtShow.FontSize
     .Selection.Font.Color = TxtShow.ForeColor
     .Selection.Font.Bold = IIf(ChkBold.Value = 1, True, False)
     .Selection.Font.Italic = IIf(ChkItalic.Value = 1, True, False)
     .Selection.Font.Underline = IIf(ChkUnderline.Value = 1, True, False)
     .Selection.ParagraphFormat.Alignment = CmbAgmt.ListIndex
     .Selection.TypeText TxtShow.Text
end with
运行时候,弹出错误:"实时错误‘5148’数字必须介于0和9之间"
    请问如何解决?或者麻烦说下改从哪些方面去查错。谢谢