散文：怎样在Excel中创建一个Word文档?

[DawnPine]

用VBA实现

先到先得

帮顶有礼

[Chinatosun]

高！

学习。

[DawnPine]

加一个问题:
怎样用VBA打开一个已有的doc文件

[黎明之雾]

友情ＵＰ

[DawnPine]

嗯~~~~~~~
有那么点意思
但好象不全对

期待高手...

[sakura8sakura]

在Excel中创建一个Word文档：
在Excel里单击菜单“插入”-》对象-》Microsoft Word 文档

用VBA打开一个已有的doc文件：

Documents.Open FileName:="xxx.doc", ConfirmConversions:=False, ReadOnly _
:=False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate _
:="", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="" _
, Format:=wdOpenFormatAuto

[DawnPine]

这个问题无解吗?

[gjd111686]

ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
DisplayAsIcon:=False).Activate

自己在Excel中录制宏操作一便

[oyljerry]

学习

[DawnPine]

谢谢楼上各位

能不能麻烦各位版主进来mark一下

[DawnPine]

难道这个区真的没高手吗?

[DawnPine]

再顶一次

[luojian163mail]

Sub createDoc()

Dim WordApp As Word.Application
Dim WordDoc As Word.Document

'Open an instance of Word
Set WordApp = CreateObject("Word.Application")

With WordApp
Set WordDoc = .Documents.Open("C:\My Documents\Test.Doc")
'Selects the entire document and makes it Bold

With WordDoc
.Range.Font.Bold = True
'Closes the Document and saves changes
.Close (wdSaveChanges)
End With

.Quit
End With

Set WordDoc = Nothing
Set WordApp = Nothing

End Sub