82问答网 > 在VB中按下一个按钮就会自动把黏贴板里面的文字复制到word、excel里面的光标所在处，能不能实现这个功能？

在VB中按下一个按钮就会自动把黏贴板里面的文字复制到word、excel里面的光标所在处，能不能实现这个功能？

2025-03-12 23:09:31

推荐回答（4个）

回答1：

用VB中实现复制、粘贴：

方法一：用剪贴板操作

Clipboard.SetText abc
把字符串复变量abc中的字符串制到剪贴板

def = Clipboard.GetText
把剪贴板中的字符串赋值个字符串变量def

方法二：发送键盘指令
调用SendKeys，向当前活动窗口发送键盘指令

SendKeys "^C", True
表示向当前活动窗口发送键盘指令 Ctrl + C ，其中，“^”符号代表Ctrl按键。这个可用于复制。

SendKeys "^V", True
表示向当前活动窗口发送键盘指令 Ctrl + V ，其中，“^”符号代表Ctrl按键。这个可用于粘贴。

注意：在发送键盘指令之前，先让Word取得焦点，成为当前活动窗口。
如何让Word取得焦点，那就使用Windows API函数。在VB中调用Windows API函数要先声明：

需要两个声明：
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SetForegroundWindow Lib "user32" Alias "SetForegroundWindow" (ByVal hwnd As Long) As Long

然后，调用：
Dim hWnd As Long ' 窗口句柄
hWnd = FindWindow(vbNullString, "这里是程序的标识符") ' 取得窗口句柄
SetForegroundWindow hWnd ' 设置为活动窗口

经过我测试，以下代码可以向记事本粘贴文字：

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
Dim hWnd As Long ' 窗口句柄
hWnd = FindWindow("notepad", vbNullString) ' 获得记事本的窗口句柄，notepad是记事本
SetForegroundWindow hWnd ' 把记事本设置为当前活动窗口
Sleep 100 ' 延时100毫秒（把记事本设置为当前窗口需要时间）
SendKeys "^V", True ' 发送键盘指令 Ctrl +V ，实现“粘贴”
End Sub

回答2：

http://www.soso.com/q?cid=im.link&ie=utf-8&w=VB%E5%8F%96%E5%BE%97%E5%8F%A5%E6%9F%84

http://www.soso.com/q?sc=web&bs=VB%C8%A1%B5%C3%BE%E4%B1%FA&ch=w.uf&num=10&w=VB+%CF%F2%D6%B8%B6%A8%B4%B0%BF%DA%B7%A2%CB%CD%B0%B4%BC%FC

回答3：

能实现这个功能。至于怎么实现你没问。

回答4：

那么麻烦干嘛，直接按Ctrl+V不就行了？

最新问答

有一个粤语不标准的女武打明星叫什么?

求好听的古风音乐，最好是游戏的背景音乐

在北京广联达计价软件里怎么才能看到定额附录，我想查看定额含量（损耗率），还有损耗率是规定的吗？

房产证上有两个人的名字,其中有1个人的名字加上了括号,请问是否是共同产权人？

为什么我在C盘里全选文件（包括隐藏），显示的才8G多；C盘右键属性看到的C盘都有29G快满了，怎么差这么多

本人想报考2016国家公务员，什么是基层工作经验啊？