vfp命令生成的33下面多了一小横，33下面的横线怎么去掉，请帮忙。tks!
EOLE.ActiveSheet.Shapes("Text Box 5").Select
EOLE.Selection.Characters.Text = "05" + Chr(10) + "33" + Chr(10) + "" + Chr(10) + ""

excel宏是如下，其中Start:=1, Length:=2和Start:=3, Length:=5在vfp中无法实现，请帮忙。tks!

ActiveSheet.Shapes("Text Box 5").Select
    Selection.Characters.Text = "05" & Chr(10) & "33" & Chr(10) & "" & Chr(10) & ""
    With Selection.Characters(Start:=1, Length:=2).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 10.5
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleSingle
        .ColorIndex = 1
    End With
    With Selection.Characters(Start:=3, Length:=5).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 10.5
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    End With

  
搞定了。tks!
    EOLE.ActiveSheet.Shapes("Text Box 5").Select
    EOLE.Selection.Characters.Text = "05"  + Chr(10)+"33" + Chr(10) + "" + Chr(10) + ""
  With EOLE.Selection.Characters(3,5).Font
        .Name = "Times New Roman"
        .FontStyle = "常规"
        .Size = 10.5
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ColorIndex = 1
    EndWith