VB复制粘贴与发送键盘指令

用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