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

DawnPine 2005-04-14 02:15:01
用VBA实现

先到先得

帮顶有礼
...全文
107 点赞 收藏 12
写回复
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
luojian163mail 2005-05-16


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
回复
DawnPine 2005-05-16
再顶一次
回复
DawnPine 2005-05-10
难道这个区真的没高手吗?
回复
DawnPine 2005-04-25
谢谢楼上各位

能不能麻烦各位版主进来mark一下
回复
oyljerry 2005-04-23
学习
回复
gjd111686 2005-04-22
ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
DisplayAsIcon:=False).Activate

自己在Excel中录制宏操作一便
回复
DawnPine 2005-04-22
这个问题无解吗?
回复
sakura8sakura 2005-04-15
在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 2005-04-15
嗯~~~~~~~
有那么点意思
但好象不全对

期待高手...
回复
黎明之雾 2005-04-14
友情UP
回复
DawnPine 2005-04-14
加一个问题:
怎样用VBA打开一个已有的doc文件
回复
Chinatosun 2005-04-14
高!

学习。
回复
发动态
发帖子
Office开发/ VBA
创建于2007-08-27

4967

社区成员

其他开发语言 Office开发/ VBA
申请成为版主
社区公告
暂无公告