[求助]请问可以通过VBA实现这样的功能吗？

allex81 · 发表于 2005-11-24 14:39

请问通过word二次开发可不可以实现如下效果：刚启动word文档时，文本框中为提示性语句，为灰色，双击文本框中的语句，可以自动清空文本框，在里面重新输入。

konggs · 发表于 2005-11-24 16:29

勿勿做的

BJs0q2zA.rar (12.91 KB, 下载次数: 18)

gues1688 · 发表于 2005-11-25 00:49

输入123后不关闭UserForm1而隐藏了？

allex81 · 发表于 2005-11-25 08:42

我说的是WORD中的文本框，有办法通过双击文本框中的文字实现文字隐藏，然后输入文字吗？我用过GWS的军用办公系统，是金山公司开发的，里面就可以实现这个功能。

守柔 · 发表于 2005-11-25 09:02

请楼主注意，提问时的完整性，如果说不清时，最好上传附件，别让想帮助你的网友去猜测。

在WORD中，有三种文本框类型

一是绘图中的文本框；二是控件中的的文本框控件；三是用户窗体中的文本框控件。

但不知楼主是要何种啊？文字隐藏然后输入文字其目的是什么，为什么要这么做等等

allex81 · 发表于 2005-11-25 16:05

以前金山公司开发的GWS2000办公系统可以实现这种功能，现在我想通过对WORD进行二次开发来实现这种效果，不知能否办到，请版主及高手指点。

HQwvK1VB.rar (44.92 KB, 下载次数: 14)

守柔 · 发表于 2005-11-25 16:19

看来楼主也是在处理OA系统啊？

我现在的处理方式是使用域。

当然，如果你需要文本框，可以使用控件工具箱中的文本框控件，然后：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-11-25 16:21:39 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '№ 00057^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub TextBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Me.TextBox1.Text = "" MsgBox "请输入主题词" End Sub '----------------------

allex81 · 发表于 2005-11-25 19:40

我也考虑过使用域，我看过版主写的关于域的文章，但不知该如何实现，版主可否说详细点，谢谢。

gues1688 · 发表于 2005-11-25 22:52

正在学习守柔版主的代码集，试着做一个，不知道行不行

7MI9XSPB.rar (5.99 KB, 下载次数: 14)

守柔 · 发表于 2005-11-26 06:23

以下是引用gues1688在2005-11-25 22:52:59的发言： 正在学习守柔版主的代码集，试着做一个，不知道行不行

对，用得很好。文本录入可以简单一些。

Sub test() Selection.Text = "好好学习，天天身上" End Sub

因为楼主的要求其实是录入文字，而非输入文字，如果为空就是输入状态了。

Sub test() Selection.Text = "" End Sub

		自动登录	找回密码
密码			免费注册