社区
VB基础类
帖子详情
关于word.application中的ActiveDocument.Close
forever_chang
2002-03-26 03:26:56
其后面几个参数的值各是什么。
...全文
454
4
打赏
收藏
关于word.application中的ActiveDocument.Close
其后面几个参数的值各是什么。
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
4 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
forever_chang
2002-03-26
打赏
举报
回复
谢谢。
TechnoFantasy
2002-03-26
打赏
举报
回复
Debug.Print wdSaveChanges '=-1
Debug.Print wdPromptToSaveChanges '=-2
Debug.Print wdDoNotSaveChanges '=0
TechnoFantasy
2002-03-26
打赏
举报
回复
Close 方法
语法 1:关闭指定的一个或多个文档。
语法 2:关闭指定的窗口。
语法 3:关闭指定的窗格或任务。
语法 1
expression.Close(SaveChanges, OriginalFormat, RouteDocument)
语法 2
expression.Close(SaveChanges, RouteDocument)
语法 3
expression.Close
expression 语法 1:必需。该表达式返回一个 Document 或 Documents 对象。
语法 2:必需。该表达式返回一个 Window 对象。
语法 3:必需。该表达式返回一个 Pane 或 Task 对象。
SaveChanges Variant 类型,可选。指定保存文档时的操作。可选下列 WdSaveOptions 常量之一:wdDoNotSaveChanges、wdPromptToSaveChanges 或 wdSaveChanges。
OriginalFormat Variant 类型,可选。指定文档的保存格式。可选下列 WdOriginalFormat 常量之一:wdOriginalDocumentFormat、wdPromptUser 或 wdWordDocument。
RouteDocument Variant 类型,可选。如果为 True,则将文档传送到下一个收件人。如果文档没有附加传送名单,则忽略此参数。
forever_chang
2002-03-26
打赏
举报
回复
dsSaveChangesYes dsSaveChangesNo dsSaveChangesPrompt
我想知道以上三个枚举成员具体的值。
office 办公软件
中
利用VBA(Visual Basic for
Application
)宏
谈到宏,很多人想到的是宏病毒,其实如果有正版杀毒软件,打开了实时防护,设置好宏安全性,可以利用宏来完成许多办公自动化功能。 打开
word
软件,从文件主菜单
中
“工具”->“宏”->“安全性”,设置安全性为
中
,这样就可以选择执行宏。安装office的时候,应该定制安装,在“office 工具”里选上“Visual Basic帮助”,这样就能获得非常完善的关于VBA编程环境、VBA语言参考、VBA对象等的帮助文档。从“工具”->“宏”->“Visual Basic 编辑器”可以打开VBA编程环境——“Microsoft Visual Basic”。在编程环境
中
打开“帮助”->“Microsoft Visual Basic帮助”,就可以看到帮助了。 很多人觉得学习Visual Basic没有用,事实上,Visual Basic系列的编程语言包括VB、VBA、VBScript等,可以写网页、办公自动化编程、应用编程。在一些其他公司的应用软件
中
也是可以用VBA的,例如Corel Draw。这里举几个例子来说明VBA的使用。 如果有数十个文档需要合并为一个文档,逐个打开、拷贝是件麻烦事,可以用宏来完成。 例一:合并文档。新建一个窗体,窗体上放一个按钮。工具箱可以从“视图”->“工具箱”打开。 '按钮事件 Private Sub CommandButton1_Click() Dim sPath As String 'sPath用来保存路径 Dim tem As String '
中
间变量 Set newDoc =
Document
s.Add '用
Document
s.Add增加一个新文档 With newDoc .SaveAs FileName:="D:/txtal.doc" '新文档保存的完整路径 End With
Active
Document
.
close
'关闭新建的文档 With Dialogs(wdDialogFileFind) '设置文本查找对话框 .SortBy = 2 '文件按名称排列 .SearchName = "*.txt" '只列出文本文件 .Update '更新 End With If Dialogs(wdDialogFileFind).Show = -1 Then '如果按下打开,就执行 sPath = Dialogs(wdDialogFileFind).SearchPath '将查找对话框打开的路径附值给SPath Dialogs(wdDialogFileFind).Execute Else Exit Sub '如果取消或者关闭,就退出 End If With
Application
.FileSearch '设置应用程序的查找 .NewSearch '新查找 .LookIn = sPath '将新查找的路径设置为文件对话框的路径(sPath) .SearchSubFolders = True '查找子目录 .FileType = msoFileTypeAllFiles '查找所有文件类型,这里可以设置其他类型,具体见FileSearch对象的FileType属性 .FileName = "*.txt" '查找后缀为txt的文件 .Execute '执行文件查找
Document
s.Open ("D:/txtal.doc") '打开"D:/txtal.doc" Set Range2 =
Active
Document
.Content '设置Range2对象为活动文档的内容 For i = 1 To .FoundFiles.Count '把找到的文件打开,拷贝文件内容,加到新建的D:/txtal.doc文件
中
Document
s.Open (.FoundFiles(i)) '打开第i个找到的文件
Active
Document
.Content.Select '全选活动文件的内容 Selection.Copy '拷贝选
中
的内容
Active
Document
.
Close
'关闭活动文档 Range2.Collapse Direction:=wdColla
AttributeError:
Word
.
Application
.
Document
s
AttributeError:
Word
.
Application
.
Document
sb报错解决方案
Word
= EnsureDispatch(“
Word
.
Application
“) doc =
Word
.
Document
s.Open连续使用报错
我连续使用
Word
= EnsureDispatch("
Word
.
Application
") doc =
Word
.
Document
s.Open(path)报错我每次使用
Word
= EnsureDispatch("
Word
.
Application
") doc =
Word
.
Document
s.Open(path)这个都关闭了doc.
Close
(constants.wdDoNotSaveChanges) # 关闭原来
word
文件。
浅谈
Word
.
Application
,关于js操作
word
文档的使用
这篇文章只是说个人放个笔记在这里,并没有讲解的意思,但为了进来的朋友能知道我在说啥,写的过程
中
我还是简单介绍一下。 说真的,刚开始我也不知道可以用js操作
word
文档,所以当我拿到这个任务的时候,内心是抗拒的,因为听都没听说过,现在却要我做,先不说能不能找到相关教程,就算有,一边学一边做也难免会遇到各种问题啊。但工作就是工作,即便不行,硬着头皮也是要上的,就算到后来你会得到这样一个反应————你...
python处理
word
分章节
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章