请教守柔版主:不知这样的快速输入能否用VBA实现？

hao123

七叶一枝梅

守柔兄,我给改了一下.

Private Sub CommandButton1_Click() Dim strText As String, MyStr As String, TF As Boolean, N As Byte'''去掉了i AS Paragraph On Error Resume Next strText = UserForm1.TextBox1.Text'''2K中要这样写. MsgBox strText If strText <> "" Then Set MyDoc = Documents.Open(FileName:=ThisDocument.AttachedTemplate.Path & "\样本文档.doc", Visible:=True) N = InStr(1, MyDoc.Range, strText, 1) If N > 0 Then M = InStr(N, MyDoc.Range, "#", 1) MyStr = Documents(MyDoc).Range(N, M) jj = MsgBox(MyStr) Documents("文档 1.doc").Selection.InsertAfter MyStr & vbCrLf '''否则被插入到“样本文档”中去了默认样本是活动文档,也可以在这个地方新建一个文档来插入. End If End If End Sub

七叶一枝梅

哦，忘了，我上面改的这个没有进行“输入是否有效”的判断。这个楼主应该可以自己加了。

hao123

样本文档打开为“TRUE”，运行象是可行，但设为“FALSE”则取字符为空。

守柔

建议楼主该升级了，否则挺费劲的。如果我是2000的话，应该是很方便的，可是手头没有，判断起来有个过程。

hao123

谢谢各位版主的热心，但WORD2000在目前许多同事都在用，另外请教：在WORD2000中的宏在后续版本中一般是兼容的吧？

七叶一枝梅

原来没有那么复杂嘛——2000中解决了！就这样了！

Private Sub CommandButton1_Click() Dim strText As String, MyStr As String, N As Byte '''去掉了i AS Paragraph On Error Resume Next strText = UserForm1.TextBox1.Text If strText <> "" Then Set MyDoc = Documents.Open(FileName:=ThisDocument.AttachedTemplate.Path & "\样本文档.doc", Visible:=True) N = InStr(1, MyDoc.Range, strText, 1) If N > 0 Then M = InStr(N, MyDoc.Range, "#", 1) MyStr = Documents(MyDoc).Range(N - 1, M) MsgBox MyStr'''这个可删。 Documents(2).Range = MyStr'''2是写入到启动文档中。 Else MsgBox ("输入不合法!") End If End If End Sub

hao123

谢谢七叶一枝梅的热心，这样做有两个问题未能解决：

1、样本文档没能后台运行；

2、输入后，新文档中只能有输入的相应内容，原有内容全部清空。

版主辛苦了！先休息一下，有空再做它吧，再次谢谢！

[此贴子已经被作者于2005-1-14 13:06:16编辑过]

七叶一枝梅

以下是引用hao123在2005-1-14 13:03:00的发言：

1、样本文档没能后台运行；2、输入后，新文档中只能有输入的相应内容，原有内容全部清空。

虽说是权宜之计，但基本能满足你两个目标。 Private Sub CommandButton1_Click() On Error Resume Next Dim strText As String, MyStr As String, N As Byte strText = TextBox1.Text If strText <> "" Then Set MyDoc = Documents.Open(FileName:=ThisDocument.AttachedTemplate.Path & "\样本文档.doc", Visible:=True) N = InStr(1, MyDoc.Range, strText, 1) If N > 0 Then M = InStr(N, MyDoc.Range, "#", 1) MyStr = Documents(MyDoc).Range(N - 1, M) Documents(2).Range(0, 0) = MyStr & Chr(13)''插入的内容每次都在最前头，这个你可以根据你自己的需要改。 MyDoc.Close'''这样应该是很快的，不会有人注意。 Else

MyDoc.Close''至少我测试的时候是没有注意到的！ MsgBox ("输入不合法!") End If End If End Sub

[此贴子已经被作者于2005-1-14 13:33:11编辑过]