4967
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
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一下
能不能麻烦各位版主进来mark一下
oyljerry 2005-04-23
学习
gjd111686 2005-04-22
ActiveSheet.OLEObjects.Add(ClassType:="Word.Document.8", Link:=False, _
DisplayAsIcon:=False).Activate
自己在Excel中录制宏操作一便
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
在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
友情ＵＰ
DawnPine 2005-04-14
加一个问题:
怎样用VBA打开一个已有的doc文件
怎样用VBA打开一个已有的doc文件
Chinatosun 2005-04-14
高！
学习。
学习。