怎样用Word.Application生成一个空白的文档,并把剪贴板里的内容拷贝到这个空白文档中呢?

[Nirvana0]

怎样用Word.Application生成一个空白的文档,并把剪贴板里的内容拷贝到这个空白文档中呢?

[rainstormmaster]

Option Explicit

Private Sub Command1_Click()
Dim s As String
s = "123 this is test" + vbCrLf + "it's easy"
Clipboard.Clear
Clipboard.SetText s
Dim wordapp As New Word.Application
wordapp.Documents.Add
'wordapp.Visible = True
wordapp.Selection.Paste
wordapp.ActiveDocument.SaveAs "d:\mc123.doc"
wordapp.Quit
Set wordapp = Nothing
End Sub

[hhjjhjhj]

先使剪贴板里有内容，再运行下面代码
'引用WORD
Dim wd As Word.Application
Set wd = New Word.Application
wd.Visible = True
wd.Documents.Add
wd.Selection.Paste

[didishu0807]

dim a as object
set a=createobject("word.application")
a.visible=true
a.document.add