Question

word中的VB编辑器

word中的VB编辑器，如何把文档内容中选中的文段赋值给一个变量d。

比如在word的文段中有一个数字：12。如何把这个数字赋值给变量d，然后c=d*2，再把c赋值给d。也就是说运行后这个数字变成24。
麻烦对语句逐一解释一下啊。。

是那个if语句有问题的样子。还是第四个回答好。

Answer 1

'注意，是在宏编辑器里完成 你先录制一个宏，什么也不操作，直接结束录制
然后，到编辑器里，左侧的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
************************************************************************
先说明一下，一个程序的好坏，首先是要看程序的严谨性，再才是算法，
一个有缺陷的程序，哪怕再短，也不是好程序！

楼下两位，你们的程序，看似简短，但是严谨吗？
我想问一下：如果用户在选择的时候，选择的不是一个数字，而是字符，或者根本没有选择任何内容，你运行的时候，会出现什么情况呢？

虽然，我的代码是多了些，但是考虑的更周到

Answer 2

yngsxx搞忽悠啊。

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

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

更简单的有：selection = selection * 2

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

Answer 3

没有必要赋值给变量
Sub a()'定义宏a
Selection = Selection * 2'运算
End Sub'结束宏
选中一个数字运行宏a就行了

Answer 4

按alt+F11然后画一个窗体再在上面画一个按钮双击按钮在按钮下面写代码用shell命令。。

Answer 5

画个按钮
在按钮点击事件里添加
shell
来打开网页