怎么用word VBA统计光标所在行的字符数？

wxscsgl

怎么用word VBA统计光标所在行的字符数？  求助

shenjianrong163

1. Sub test()
   
2.     Selection.HomeKey unit:=wdLine
   
3.     Selection.EndKey unit:=wdLine, Extend:=wdExtend
   
4.     If InStr(Selection.Text, Chr(13)) > 0 Then
   
5.         MsgBox "光标所在行的字符数为：" & Selection.Characters.Count - 1
   
6.     Else
   
7.         MsgBox "光标所在行的字符数为：" & Selection.Characters.Count
   
8.     End If
   
9. End Sub

复制代码

z9bhd

Sub 统计光标所在行的字符数()
    Dim m%
        Selection.Expand 5
        m = Selection.Range.Characters.Count
End Sub