关于word.application中的ActiveDocument.Close

forever_chang 2002-03-26 03:26:56
其后面几个参数的值各是什么。
...全文
454 4 打赏 收藏 转发到动态 举报
写回复
用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
我想知道以上三个枚举成员具体的值。
谈到宏,很多人想到的是宏病毒,其实如果有正版杀毒软件,打开了实时防护,设置好宏安全性,可以利用宏来完成许多办公自动化功能。   打开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 = Documents.Add '用Documents.Add增加一个新文档 With newDoc .SaveAs FileName:="D:/txtal.doc" '新文档保存的完整路径 End With ActiveDocument.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 '执行文件查找 Documents.Open ("D:/txtal.doc") '打开"D:/txtal.doc" Set Range2 = ActiveDocument.Content '设置Range2对象为活动文档的内容 For i = 1 To .FoundFiles.Count '把找到的文件打开,拷贝文件内容,加到新建的D:/txtal.doc文件 Documents.Open (.FoundFiles(i)) '打开第i个找到的文件 ActiveDocument.Content.Select '全选活动文件的内容 Selection.Copy '拷贝选的内容 ActiveDocument.Close '关闭活动文档 Range2.Collapse Direction:=wdColla

7,763

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧