word中的VB编辑器

yngsxx搞忽悠啊。

Private Sub CommandButton1_Click()
D = Selection
Selection = D * 2
End Sub

这样就行了。selection代表选中的词句和数字。这样就没有不懂的地方了吧。

更简单的有：selection = selection * 2

反驳yngsxx：楼主都说ta选中了一个12，还要验证12是不是数字？

'注意，是在宏编辑器里完成 你先录制一个宏，什么也不操作，直接结束录制
然后，到编辑器里，左侧的Normal工程的模块中，编辑过程
Sub Macro1()
Dim D As Long, C As Long, S As String
S = Selection '这是一个字符变量，获取选中的内容
If Len(S) > 0 Then '如果有内容才进行操作,这里是判断字符串的长度
If IsNumeric(S) Then
D = Val(S) '将字符型的数字，转换成数值型的数字
C = D * 2 '将其*2
Selection = C '再将结果赋值给选中的内容
Else
MsgBox "你选择的不是一个有效的数字，不能更新"
End If
Else
MsgBox "没有选择内容,不能更新"
End If
'以上代码，我是测试过可行的
运行时，先选中一个数字，再运行宏，运行后，你选中的数字，将会变成*2后的结果
End Sub
************************************************************************
先说明一下，一个程序的好坏，首先是要看程序的严谨性，再才是算法，
一个有缺陷的程序，哪怕再短，也不是好程序！

楼下