比如：选中一句话（共N个字）自动判断字数 当N等于10时，在这句话前输入“10”
当N等于20时，在句子前面输入“20”
当N等于其他数时不做操作
希望高手能写个代码
从dim N 开始
.......
if
...
endif
...
vb忘得差不多了
PS：在网上查询字数统计代码是ActiveDocument.Words.Count，但不会用
很感谢几位大大的帮忙，可是Selection.Words.Count怎么计算出来的不准啊？
比如我选定的文字是“索尼DSCTX1型数码相机”Selection.Words.Count得到的数字却是3
选择“二○一○年”得到数字是5
选择“二○一○年十二月十四日”得到数字是6
弄不明白 求指教
翻了下书，弄明白了应该是Selection.Characters.Count
还是谢谢大家了
Sub CountWords()
select case Selection.Words.Count
case 10,20:msgbox "当前选定字段字符数为" & STR$(Selection.Words.Count)
End select
End Sub
想设定更多特定字数，在case语句后加上并用逗号分开就可以了
select case Selection.Words.Count
case 10,20:msgbox "当前选定字段字符数为" & STR$(Selection.Words.Count)
End select
End Sub
想设定更多特定字数，在case语句后加上并用逗号分开就可以了
温馨提示：答案为网友推荐，仅供参考
第1个回答 2010-12-14
Sub a()
Dim a As Variant
a = Selection.Words.Count
If a = 10 Or a = 20 Then
Selection.Text = a & Selection.Text
End If
End Sub本回答被网友采纳
Dim a As Variant
a = Selection.Words.Count
If a = 10 Or a = 20 Then
Selection.Text = a & Selection.Text
End If
End Sub本回答被网友采纳
