Private Sub Command1_Click()
drawline
VB.Clipboard.Clear
VB.Clipboard.SetData Picture3.Image
Dim WordApp As Object, Mydoc As Object
Set WordApp = CreateObject("Word.Application")
'WordApp.Application.Visible = 1
Set Mydoc = WordApp.Documents.Add()
WordApp.Application.Selection.Paste
With Mydoc
.SaveAs FileName:="c:/1.doc" '//////////////////////////
.Close
End With
WordApp.Quit
Set WordApp = Nothing
Set Mydoc = Nothing
End Sub
VB 把windows剪切板的內容粘貼到word
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.