Word表格限制输入的内容为数字

[NULL_8757512]

我用的方法是建立Word的文本框
然后输入以下代码

Private Sub TextBox1_LostFocus() 
Dim step As Integer
Dim say As Boolean
For step = 1 To Len(TextBox1.Text)
    If (InStr("0123456789", Mid(TextBox1.Text, step, 1)) = 0) Then 
        say = True
    End If
Next
If (say) Then
    MsgBox ("请输入纯数字")
    TextBox1.Text = ""    
End If
End Sub

因为这个文本里面 文本框爆多，大概有200个左右，所以 用这个方法 整个Word别的很卡 很卡。

请问有没有别的方法可以达到同样的目的

谢谢大家了！！！！


还有就是要是录制宏的时候，我想给宏传入参数 怎么传入啊？

谢谢 谢谢

[NULL_8757512]

up一下 无人回答结贴。

[lelige]

建议你用Excel里面的Data Validation功能。

[NULL_8757512]

不好意思，公司要求只能用Word 不能使用Excel。因为那个表格很复杂 要用Excel见表很麻烦。
在Word下就不能实现么？

[nayuy]

楼主公司有问题。excel才是表格处理的专用办公软件。

[NULL_8757512]

是啊-。- 公司非要求用Word 我说用Excel就好 Boss说不行。 用Excel好多问题都很好解决 包括验证输入的数字之类的。

唉 谁让是给人家打工的呢。。。

用Word是不是就没什么好方法了？只能使用可以链接到VB的文本框了吧？ 主要是太多了 200多个地方要填，用文本框爆卡 几乎都打不开Word了。。。

和Boss解释，Boss说肯定可以 说用宏和域就可以。 可是宏根本就没法传入参数嘛 怎么判断？ 域好像也没有类似的功能吧。。

[harmonyguy]

To 楼主：
　　在VB Code代码中，使用Isnumberic函数代表Instr函数来判断文本框输入的内容是不为数值，简化程序设计，运行速度加快.　Good luck!

private sub TextBox1_LostFocus()
	If IsNumeric(TextBox1.Text)=False  Then
		MsgBox(“请输入数字”)
           TextBox1.Text=””
		TextBox1.SetFocus
	End IF
End sub