请教斑竹关于使用书签输入然后替换的问题（新增一个问题）

xuweiwei · 发表于 2005-4-4 15:40

麻烦斑竹，我已经实现vba使用文本框输入文字到书签指定的位置，但然后如何实现通过界面直接替换原有的内容。比如我通过文本框输入2323，然后我怎样实现在文本框中输入4545替换调2323。请看我的小程序。

请上传你的小程序，OK？？

t0Qy5jIf.rar (15.03 KB, 下载次数: 15)

[此贴子已经被作者于2005-4-5 12:59:51编辑过]

xuweiwei · 发表于 2005-4-4 15:52

不好意思，怎样添加附件

xuweiwei · 发表于 2005-4-4 15:54

好了，我已经添加上了

守柔 · 发表于 2005-4-5 04:37

这种情况下，根本不需要使用书签，直接使用RANGE对象就可以了。

请参：

AlPSqv6R.zip (7.12 KB, 下载次数: 20)

这是其中的部分代码：

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By I Love You_Word!@ExcelHome 2005-4-5 04:39:02 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [用户窗体-UserForm1]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

Private Sub CommandButton1_Click() Dim MyRange As Range With ActiveDocument Set MyRange = .Range(8, .Paragraphs(1).Range.End) MyRange.Text = Me.TextBox1 Me.TextBox1 = "" Me.TextBox1.SetFocus End With End Sub '---------------------- Private Sub UserForm_Activate() Me.TextBox1.SetFocus Me.CommandButton1.Default = True End Sub '----------------------

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