shell

1291500406 · 发表于 2020-2-15 00:52

本帖最后由 1291500406 于 2022-3-12 21:15 编辑

;;;文件和文件夹移送至回收站
(defun bbfile-to-recycle (path / com1 com2 file) ;;定义接口 #SUBR ..
(vl-load-com) ;加载核心库
(if
(and ;and逻辑判断语句
(setq com1(vlax-create-object "{13709620-c279-11ce-a49e-444553540000}"));判断com1接口存在
(setq com2(vlax-create-object "{0d43fe01-f093-11cf-8940-00a0c9054228}"));判断com2接口存在
(findfile path) ;判断文件存在性
)
(progn ;开始 if ture 语句
(if
(=(vlax-invoke-method com2 "FolderExists" path):vlax-true) ;区分文件和文件夹的标志
(vlax-put(setq file(vlax-invoke-method com2 "GetFolder" path))"Attributes" 0);针对只读文件夹设置为可操作文件
(vlax-put(setq file(vlax-invoke-method com2 "getfile" path)) "Attributes" 0)
);针对只读文件设置为可操作文件
(if(>(*(vlax-get(vlax-invoke com2 "GetDrive" (getenv "SystemDrive"))"FreeSpace")0.95);;系统盘剩余空间*95%安全裕度
(vlax-get file "Size")) ;;文件大小
(vl-catch-all-apply ' vlax-invoke (list ;文件进程占用问题暂未解决,被其他软件占用时安全退出语句
(vlax-invoke com1 "NameSpace" 10)"MoveHere" path))) ;文件删除至回收站核心语句
(vlax-release-object com1);卸载com1
(vlax-release-object com2);卸载com2
t
)
nil
)
)
;;例子
(bbfile-to-recycle "D:\\新建文本文档.txt")
(bbfile-to-recycle "D:\\新建文件夹")

;;;文件 和 文件夹移送至回收站 
(defun bbfile-to-recycle (path  / com1 com2 file) ;;定义接口  #SUBR .. 
        (vl-load-com) ;加载核心库 
        (if 
                (and ;and逻辑判断语句 
                        (setq com1(vlax-create-object "{13709620-c279-11ce-a49e-444553540000}"));判断com1接口存在 
                        (setq com2(vlax-create-object "{0d43fe01-f093-11cf-8940-00a0c9054228}"));判断com2接口存在 
                        (findfile path) ;判断文件存在性 
                )                                                                                                                      
                (progn  ;开始 if ture 语句 
                        (if 
                                (=(vlax-invoke-method  com2 "FolderExists" path):vlax-true) ;区分文件和文件夹的标志 
                                (vlax-put(setq file(vlax-invoke-method com2 "GetFolder" path))"Attributes" 0);针对只读文件夹设置为可操作文件 
                                (vlax-put(setq file(vlax-invoke-method com2 "getfile" path)) "Attributes" 0) 
                        );针对只读文件设置为可操作文件 
                        (if(>(*(vlax-get(vlax-invoke com2 "GetDrive" (getenv "SystemDrive"))"FreeSpace")0.95);;系统盘剩余空间*95%安全裕度 
                        (vlax-get file "Size")) ;;文件大小 
                        (vl-catch-all-apply ' vlax-invoke (list ;文件进程占用问题暂未解决,被其他软件占用时安全退出语句 
                        (vlax-invoke com1 "NameSpace" 10)"MoveHere" path))) ;文件删除至回收站核心语句 
                        (vlax-release-object com1);卸载com1 
                        (vlax-release-object com2);卸载com2 
                        t 
                ) 
                nil 
        ) 
) 
;;例子 
(bbfile-to-recycle "D:\\新建文本文档.txt") 
(bbfile-to-recycle "D:\\新建文件夹")

;;;当前文件管理器打开的路径
(defun bq-explorer-path(/ path com win i path)
(if
(and
(not (setq path nil))
(setq com(vlax-create-object "{13709620-C279-11CE-A49E-444553540000}"))
(setq win(vlax-invoke com 'Windows))
(setq i -1)
(repeat
(vlax-get win 'count)
(if (=(strcase(vl-filename-base(vlax-get(setq exeobj(vla-item win (setq i (1+ i))))'FullName)))"EXPLORER")
(setq path(vlax-get(vlax-get(vlax-get exeobj 'document)'focuseditem)'path))
)
)
path
)
(vl-filename-directory path)
)
)
(bq-explorer-path)

;;;当前文件管理器打开的路径 
(defun bq-explorer-path(/ path com  win i path)                
        (if 
                (and 
                        (not (setq path nil)) 
                        (setq com(vlax-create-object "{13709620-C279-11CE-A49E-444553540000}"))       
                        (setq win(vlax-invoke com 'Windows)) 
                        (setq i -1) 
                        (repeat 
                                (vlax-get win 'count) 
                                (if        (=(strcase(vl-filename-base(vlax-get(setq exeobj(vla-item win (setq i (1+ i))))'FullName)))"EXPLORER") 
                                        (setq path(vlax-get(vlax-get(vlax-get exeobj 'document)'focuseditem)'path)) 
                                ) 
                        ) 
                        path 
                ) 
                (vl-filename-directory path) 
        ) 
)       
(bq-explorer-path)

Application 对象'代表 Microsoft Office Word 应用程序。Application 对象包含可返回最高级对象的属性和方法。例如，ActiveDocument 属性返回 Document 对象。
方法
Activate'激活指定的对象。
AddAddress'本方法在通讯簿中新增一项。每项都有一个或多个标签 ID 值。
AutomaticChange'当“Office 助手”建议进行更改时，将执行“自动套用格式”操作。如果未激活任何“自动套用格式”操作，该方法将导致出错。
BuildKeyCode'为指定的组合键返回唯一的代码。
CentimetersToPoints'将度量单位由厘米转换为磅数（1 厘米=28.35 磅）。所返回的转换结果为 Single 类型。
ChangeFileOpenDirectory'设置查找文档时 Word 所指向的文件夹。
CheckGrammar'检查字符串的语法错误。返回一个 Boolean 类型的值，以表示字符串中是否包含语法错误。如果字符串未包含语法错误，则该值为 True。
CheckSpelling'检查字符串的拼写错误。返回一个 Boolean 类型的值，以显示字符串是否包含拼写错误。如果字符串未包含拼写错误，则该值为 True。
CleanString'从指定字符串中删除非打印字符（字符代码为 1-29）及 Word 的特殊字符，或将它们替换为空格（字符代码为 32）。返回的结果为 String 类型。
CompareDocuments'比较两个文档，并返回一个 Document 对象，该对象表示包含两个文档之间的差别的文档，该文档用修订进行标记。
DDEExecute'通过指定的 DDE（即动态数据交换）通道，向应用程序发送一条或一组命令。
DDEInitiate'打开通向其他应用程序的 DDE（动态数据交换）通道，并返回通道序号。
DDEPoke'通过打开的 DDE（动态数据交换）通道向应用程序发送数据。
DDERequest'通过打开的 DDE（动态数据交换）通道向接收应用程序查询信息，并以 String 类型返回该信息。
DDETerminate'关闭指定的通向另一应用程序的 DDE（动态数据交换）通道。
DDETerminateAll'关闭所有由 Microsoft Office Word 打开的动态数据交换 (DDE) 通道。
DefaultWebOptions'返回 DefaultWebOptions 对象，该对象包含 Microsoft Word 每当将文档保存为网页或打开网页时使用的应用程序级全局属性。
GetAddress'返回默认通讯簿中的地址。
GetDefaultTheme'返回代表默认主题名称的 String，以及 Microsoft Word 用于新文档、电子邮件或网页的主题格式选项。
GetSpellingSuggestions'返回一个 SpellingSuggestions 集合，该集合代表指定单词的建议拼写替换单词。
GoBack'将插入点在活动文档中最近进行过编辑操作的三个位置间移动，其作用等同于按 Shift+F5。
GoForward'将插入点在活动文档中进行编辑的最后三个位置之间向前移动。
Help'显示安装的帮助信息。
HelpTool'指针从箭头改为问号，表明这是关于将要单击的命令或屏幕元素的快捷帮助。如果单击文本，Word 将显示描述当前段落及字符格式的对话框。按 Esc 可将指针恢复为原始状态。
InchesToPoints'将度量单位从英寸转换为磅（1 英寸 = 72 磅）。以 Single 类型返回转换结果。
Keyboard'返回或设置键盘的语言和布局设置。
KeyboardBidi'将键盘语言设置为从右向左的语言，并将文字的输入方向设置为从右向左。
KeyboardLatin'将键盘语言设置为从左向右的语言，并将文字的输入方向设置为从左向右。
KeyString'为指定的键返回组合键字符串（例如，Ctrl+Shift+A）。
LinesToPoints'将度量单位从行转换为磅（1 行 = 12 磅）。以 Single 类型返回转换结果。
ListCommands'新建文档，然后插入带有相关快捷键和菜单设定的 Word 命令表。
LoadMasterList'加载书目源文件。
LookupNameProperties'在全局通讯簿列表中查找一个姓名，并显示“属性”对话框，其中包含了有关指定姓名的信息。
MergeDocuments'比较两个文档，并返回一个 Document 对象，该对象表示包含两个文档之间的差别的文档，该文档用修订进行标记。
MillimetersToPoints'把度量单位从毫米转换为磅值（1 毫米 = 2.85 磅）。以 Single 类型返回转换结果。
MountVolume'您已经就仅在 Macintosh 上使用的 Visual Basic 关键字请求帮助。有关 Application 对象的 MountVolume 方法的信息，请参阅 Microsoft Office Macintosh Edition 所附带的语言参考帮助。
Move'设置任务窗口或活动文档窗口的位置。
NewWindow'打开一个新的窗口作为指定窗口，并显示原文档。返回一个 Window 对象。
NextLetter'您已经就仅在 Macintosh 上使用的 Visual Basic 关键字请求帮助。有关 Application 对象的 NextLetter 方法的信息，请参阅 Microsoft Office Macintosh Edition 所附带的语言参考帮助。
OnTime'启动在指定的时间运行宏的后台计时器。
OrganizerCopy'将指定的“自动图文集”词条、工具栏、样式或宏方案项从源文档或模板中复制到目标文档或模板上。
OrganizerDelete'从文档或模板中删除指定的样式、“自动图文集”词条、工具栏或宏方案项。
OrganizerRename'重新命名文档或模板中指定的样式、“自动图文集”词条、工具栏或宏方案项。
PicasToPoints'将度量单位从十二点活字转换为磅值（1 十二点活字 = 12 磅）。以 Single 类型返回转换结果。
PixelsToPoints'将长度值的单位由像素转换为磅。以 Single 类型返回转换结果。
PointsToCentimeters'将度量单位由磅转换为厘米（1 厘米 = 28.35 磅）。以 Single 类型返回转换结果。
PointsToInches'将磅转换为英寸（1 英寸 = 72 磅）。以 Single 类型返回转换结果。
PointsToLines'将磅转换为行（1 行 = 12 磅）。以 Single 类型返回转换结果。
PointsToMillimeters'将度量单位由磅转换为毫米（1 毫米 = 2.835 磅）。以 Single 类型返回转换结果。
PointsToPicas'将度量单位由磅转换为十二点活字（1 十二点活字 = 12 磅）。以 Single 类型返回转换结果。
PointsToPixels'将长度值的单位由磅转换为像素。以 Single 类型返回转换结果。
PrintOut'打印指定文档的全部或部分内容。
ProductCode'返回一个 String 类型的 Microsoft Word 全球唯一标识符 (GUID)。
PutFocusInMailHeader'如果活动窗口中的文档是电子邮件文档，则将插入点置于邮件标题的“收件人”行。
Quit'退出 Microsoft Office Word，并可选择保存或传送打开的文档。
Repeat'一次或多次重复最近的编辑操作。如果成功地重复了命令，则返回 True。
ResetIgnoreAll'在拼写检查时，取消以前的忽略词汇表。
Resize'调整 Word 应用程序或某一任务的窗口大小。
Run'运行 Visual Basic 宏。
ScreenRefresh'使用视频内存缓冲区的当前信息更新显示器的显示。
SetDefaultTheme'为 Microsoft Word 设置用于新文档、电子邮件或网页的默认主题。
ShowClipboard'显示“剪贴板”任务窗格。
ShowMe'当存在更多可用信息时，显示“Office 助手”或“帮助”窗口。
SubstituteFont'设置字体映射选项。
ToggleKeyboard'在从左向右的语言和从右向左语言之间切换键盘语言设置。
属性
ActiveDocument'返回一个 Document 对象，该对象代表活动文档。如果没有打开的文档，就会导致出错。只读。
ActiveEncryptionSession'返回一个 Long 类型的值，该值代表与活动文档相关的加密会话。只读。
ActivePrinter'返回或设置活动打印机名称。可读/写 String 类型。
ActiveWindow'返回 Window 对象，该对象代表活动窗口（焦点所在的窗口）。如果没有打开的窗口，则会导致出错。只读。
AddIns'返回一个 AddIns 集合，该集合代表所有有效加载项，而不考虑当前是否已加载它们。只读。
AnswerWizard'返回一个 AnswerWizard 对象，该对象包含联机“帮助”搜索引擎所用的文件。
Application'返回一个 Application 对象，该对象代表 Microsoft Word 应用程序。
ArbitraryXMLSupportAvailable'返回一个 Boolean 类型的值，代表 Microsoft Word 是否接受自定义的 XML 架构。值为 True 表明 Word 接受自定义的 XML 架构。
Assistance'返回一个代表 Microsoft Office 帮助查看器的 Assistance 对象。只读。
Assistant'返回一个 Assistant 对象，该对象代表“Microsoft Office 助手”。
AutoCaptions'返回一个 AutoCaptions 集合。当诸如表格或图片之类的项目插入到文档中时，此集合代表自动添加的题注。只读。
AutoCorrect'返回一个 AutoCorrect 对象，该对象包含当前“自动更正”的选项、词条和例外项。只读。
AutoCorrectEmail'返回一个 AutoCorrect 对象，该对象代表对电子邮件消息进行的自动更正。
AutomationSecurity'返回或设置一个 MsoAutomationSecurity 常量，该常量代表当用编程方法打开文件时 Microsoft Word 所使用的安全设置。
BackgroundPrintingStatus'返回后台打印队列中的打印任务数目。Long 类型，只读。
BackgroundSavingStatus'返回后台保存队列中的文件数。Long 类型，只读。
Bibliography'返回一个 Bibliography 对象，该对象代表 Microsoft Office Word 中存储的书目参考源。只读。
BrowseExtraFileTypes'如果将该属性设置为“text/html”，则用 Microsoft Word（而不是默认的 Internet 浏览器）可以打开超链接的 HTML 文件。String 类型，可读写。
Browser'返回一个 Browser 对象，该对象代表垂直滚动条上的“选择浏览对象”工具。只读。
Build'返回 Word 应用程序的版本号及编译序号。String 类型，只读。
CapsLock'如果已打开 Caps Lock 键，则该属性值为 True。Boolean 类型，只读。
Caption'返回或设置出现在应用程序窗口的标题栏中的文本。String 类型，可读写。
CaptionLabels'返回一个 CaptionLabels 集合，该集合包括全部有效题注标签。只读。
CheckLanguage'如果 Microsoft Word 在键入时自动检测使用的语言，则该属性值为 True。Boolean 类型，可读写。
COMAddIns'返回一个对 COMAddIns 集合的引用，该引用代表 Microsoft Word 当前加载的所有组件对象模型 (COM) 加载项。
CommandBars'返回一个 CommandBars 集合，该集合代表 Microsoft Word 中的菜单栏以及所有工具栏。
Creator'返回一个 32 位整数，该整数指出用于创建指定对象的应用程序。Long 类型，只读。
CustomDictionaries'返回一个 Dictionaries 对象，该对象代表活动自定义词典的集合。只读。
CustomizationContext'返回或设置一个 Template 或 Document 对象，该对象代表存储菜单栏、工具栏和键绑定的更改的模板或文档。可读/写。
DefaultLegalBlackline'如果为 True，则 Microsoft Word 使用“比较并合并文档”对话框中的“精确比较”选项比较和合并文档。Boolean 类型，可读写。
DefaultSaveFormat'返回或设置将在“另存为”对话框上的“保存类型”框中显示的默认格式。String 类型，可读写。
DefaultTableSeparator'返回或设置一个字符；在将文本转换为表格时，该字符用来将文本分隔为单元格。String 类型，可读写。
Dialogs'返回一个 Dialogs 集合，该集合代表 Word 中所有内置对话框。只读。
DisplayAlerts'返回或设置运行宏时产生的一些警告和消息的处理方式。WdAlertLevel 类型，可读写。
DisplayAutoCompleteTips'如果 Word 显示有关所键入整个单词、日期或词组的建议的提示，则该属性值为 True。Boolean 类型，可读写。
DisplayDocumentInformationPanel'返回或设置 Boolean 值，该值表示是否显示文档属性面板。可读/写。
DisplayRecentFiles'如果在“文件”菜单中显示最近使用的文件名，则该属性值为 True。Boolean 类型，可读写。
DisplayScreenTips'如果为 True，则批注、脚注、尾注和超链接以提示形式显示。突出显示那些标记有批注的文本。Boolean 类型，可读写。
DisplayScrollBars'如果为 True，则 Word 在至少一个文档窗口中显示滚动条；如果为 False，则在任何窗口中均不显示滚动条。Boolean 类型，可读写。
Documents'返回一个 Documents 集合，该集合代表所有打开的文档。只读。
DontResetInsertionPointProperties'返回或设置一个 Boolean 类型的值，该值代表 Microsoft Office Word 在运行其他代码后是否保持位于插入点位置的文本的格式属性。可读写。
EmailOptions'返回一个 EmailOptions 对象，该对象代表创作电子邮件的全局首选项。只读。
EmailTemplate'返回或设置一个 String 类型的值，该值代表发送电子邮件时使用的文档模板。可读写。
EnableCancelKey'返回或设置 Word 处理 Ctrl+Break 用户中断的方式。WdEnableCancelKey 类型，可读写。
FeatureInstall'返回或设置 Microsoft Word 将如何处理对所需功能尚未安装的方法和属性的调用。MsoReatureInstall 类型，可读写。
FileConverters'返回一个 FileConverters 集合，该集合代表可用于 Microsoft Office Word 的所有文件转换器。只读。
FileDialog'返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。
FindKey'返回 KeyBinding 对象，该对象代表指定的组合键。只读。
FocusInMailHeader'如果插入点位于电子邮件标题域中（如“收件人”域），则该属性值为 True。Boolean 类型，只读。
FontNames'返回一个 FontNames 对象，该对象包含所有有效字体的名称。只读。
HangulHanjaDictionaries'返回一个 HangulHanjaConversionDictionaries 集合，该集合代表所有活动的自定义转换词典。
Height'返回或设置活动文档窗口的高度。Long 类型，可读写。
International'返回当前的国家/地区和国际设置信息。Variant 类型，只读。
IsObjectValid'如果引用某个对象的指定变量有效，则该属性值为 True。Boolean 类型，只读。
KeyBindings'返回一个 KeyBindings 集合，该集合代表自定义的按键指定方案，包含了键代码、键类别和命令。
KeysBoundTo'返回一个 KeysBoundTo 对象，该对象代表指定项的所有组合键。
LandscapeFontNames'返回一个 FontNames 对象，该对象包括了所有有效的横向字体的名称。
Language'返回一个 MsoLanguageID 常量，该常量代表为 Microsoft Word 用户界面选定的语言。
Languages'返回一个 Languages 集合，该集合代表列在“语言”对话框（在“工具”菜单上，单击“语言”，再单击“设置语言”）中的校对语言。
LanguageSettings'返回一个 LanguageSettings 对象，该对象包含 Microsoft Word 中语言设置的信息。
Left'返回或设置一个 Long 类型的值，该值代表活动文档的水平位置，以磅为单位。可读写。
ListGalleries'返回一个 ListGalleries 集合，该集合代表三个列表模板库。
MacroContainer'返回 Template 或 Document 对象，该对象代表其中存储模块（该模块中包含着运行的过程）的模板或文档。
MailingLabel'返回一个 MailingLabel 对象，该对象代表一个邮件标签。
MailMessage'返回一个 MailMessage 对象，该对象代表活动的电子邮件。
MailSystem'返回主机上安装的邮件系统（或系统）。WdMailSystem 类型，只读。
MAPIAvailable'如果已经安装了 MAPI，则该属性值为 True。Boolean 类型，只读。
MathCoprocessorAvailable'如果安装了数学协处理器并且该处理器适用于 Microsoft Word，则该属性值为 True。Boolean 类型，只读。
MouseAvailable'如果系统有可用的鼠标，则该属性值为 True。Boolean 类型，只读。
Name'返回指定对象的名称。String 类型，只读。
NewDocument'返回一个 NewFile 对象，该对象代表在“新建文档”任务窗格上所列的一个文档。
NormalTemplate'返回一个 Template 对象，该对象代表 Normal 模板。
NumLock'此属性返回 Num Lock 键的状态。如果为 True，则数字键盘可用于输入数字；如果为 False，则该键盘用于移动插入点。Boolean 类型，只读。
OMathAutoCorrect'返回一个 OMathAutoCorrect 对象，该对象代表公式的自动更正条目。只读。
OpenAttachmentsInFullScreen'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否在读取模式下打开电子邮件附件。可读/写。
Options'返回一个 Options 对象，该对象代表 Microsoft Word 中的应用程序设置。
Parent'返回一个 Object 类型的值，该值代表指定 Application 对象的父对象。
Path'返回指定对象的磁盘或 Web 路径。只读 String 类型。
PathSeparator'返回用于分隔文件夹名称的字符。在 Windows 中，该属性返回一个反斜线 (\)。只读 String 类型。
PortraitFontNames'返回一个 FontNames 对象，该对象包括所有有效纵向字体的名称。
PrintPreview'如果当前视图是打印预览，则该属性值为 True。Boolean 类型，可读写。
RecentFiles'返回一个 RecentFiles 集合，该集合代表最近存取过的文件。
RestrictLinkedStyles'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否允许链接样式。可读/写。
ScreenUpdating'如果启用屏幕更新，则该属性值为 True。Boolean 类型，可读写。
Selection'返回 Selection 对象，该对象代表一选定的范围或插入点。只读。
ShowStartupDialog'如果为 True，则在启动 Microsoft Word 时显示“任务窗格”。Boolean 类型，可读写。
ShowStylePreviews'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否在“样式” 对话框中显示样式的格式预览。可读/写。
ShowVisualBasicEditor'如果显示“Visual Basic 编辑器”窗口，则该属性值为 True。Boolean 类型，可读写。
ShowWindowsInTaskbar'如果为 True，则在任务栏中显示打开的文档，默认值为 Single Document Interface (SDI)。如果为 False，则只在“窗口”菜单中列出打开的文档，提供 Multiple Document Interface (MDI) 的外观。Boolean 类型，可读写。
SmartTagRecognizers'返回应用程序的一个 SmartTagRecognizers 集合。
SmartTagTypes'返回一个 SmartTagTypes 集合，代表 Microsoft Word 中所安装的智能标记组件的智能标记类型。
SpecialMode'如果 Microsoft Office Word 处于某个特殊模式下（如 CopyText 模式或 MoveText 模式），则该属性值为 True。Boolean 类型，只读。
StartupPath'返回或设置启动文件夹的完整路径，不包括最后的分隔符。String 类型，可读写。
StatusBar'在状态栏中显示所选的文本。String 类型，只写。
SynonymInfo'返回一个 SynonymInfo 对象，该对象包含来自同义词库的、与指定字词或短语的同义词、反义词或相关词语及表达相关的信息。
System'返回一个 System 对象，该对象可用于返回与系统相关的信息，并执行与系统相关的任务。
TaskPanes'返回一个 TaskPanes 集合，该集合代表 Microsoft Word 中最常执行的任务。
Tasks'返回一个 Tasks 集合，该集合代表所有正在运行的应用程序。
Templates'返回一个 Templates 集合，该集合代表所有可用的模板，包括共用模板和附加到打开文档的模板。
Top'
UsableHeight'返回 Microsoft Word 文档窗口高度可设置的最大值（以磅为单位）。Long 类型，只读。
UsableWidth'返回 Microsoft Word 文档窗口可设置的最大宽度（以磅为单位）。Long 类型，只读。
UserAddress'该属性返回或设置用户的通讯地址。String 类型，可读写。
UserControl'如果文档或应用程序是由用户创建或打开的，则该属性值为 True。Boolean 类型，只读。
UserInitials'该属性返回或设置用户名缩写，Microsoft Word 使用该缩写构成批注标记。String 类型，可读写。
UserName'该属性返回或设置用户姓名，Word 将其用于信封和文档的“作者”属性。String 类型，可读写。
VBE'返回一个 VBE 对象，该对象代表“Visual Basic 编辑器”。
Version'返回 Microsoft Word 版本号。String 类型，只读。
Visible'
Width'返回或设置应用程序窗口的宽度（以磅为单位）。Long 类型，可读写。
Windows'返回一个 Windows 集合，该集合代表所有文档窗口。只读。
WindowState'
WordBasic'返回一个自动化对象 (Word.Basic)，其中包含适用于 Word 6.0 和 Word for Windows 95 中所有 WordBasic 语句和函数的方法。只读。
XMLNamespaces'返回一个 XMLNamespaces 集合，代表“架构库”中的 XML 架构。
事件
DocumentBeforeClose'在打开的文档即将关闭之前发生。
DocumentBeforePrint'在打印打开的文档之前发生。
DocumentBeforeSave'在保存打开的文档之前发生。
DocumentChange'在创建新文档、打开已有文档或激活其他文档时发生。
DocumentOpen'在打开文档时发生。
DocumentSync'在属于“文档工作区”的文档的本地副本与服务器上的副本同步时发生。
EPostageInsert'当用户在文档中插入电子邮政时发生。
EPostageInsertEx'当用户在文档中插入电子邮政时发生。
EPostagePropertyDialog'在用户单击“电子邮政属性”按钮（“标签和信封”对话框）或“打印电子邮政”工具栏按钮时发生。
MailMergeAfterMerge'在邮件合并中的所有记录合并成功后发生。
MailMergeAfterRecordMerge'在数据源中的每个记录成功合并到一个邮件合并后发生。
MailMergeBeforeMerge'在合并任何记录之前于执行合并时发生。
MailMergeBeforeRecordMerge'在针对合并中的单个记录执行合并时发生。
MailMergeDataSourceLoad'在为邮件合并加载数据源时发生。
MailMergeDataSourceValidate'在用户通过单击“邮件合并收件人”对话框中的“验证有效性”验证邮件合并收件人时发生。
MailMergeDataSourceValidate2'当用户单击“邮件合并收件人”对话框中的“验证地址”链接按钮验证邮件合并收件人时发生。
MailMergeWizardSendToCustom'在邮件合并向导的第 6 步单击自定义按钮时发生。
MailMergeWizardStateChange'当用户在“邮件合并向导”中从一个指定步骤切换到另一个指定步骤时发生。
NewDocument'在创建新文档时发生。
Quit'当用户退出 Microsoft Office Word 时发生。
WindowActivate'在激活文档窗口时发生。
WindowBeforeDoubleClick'在默认的双击操作发生之前，当文档窗口的编辑区域被双击时发生。
WindowBeforeRightClick'在默认右击操作发生之前，当文档窗口的编辑区域被右击时发生。
WindowDeactivate'在文档窗口成为非活动窗口时发生。
WindowSelectionChange'在活动窗口中的所选内容更改时发生。
WindowSize'在对应用程序窗口进行大小调整或移动时发生。
XMLSelectionChange'在当前所选内容的 XML 父节点更改时发生。
XMLValidationError'文档中存在验证错误时发生。

Application 对象'代表 Microsoft Office Word 应用程序。Application 对象包含可返回最高级对象的属性和方法。例如，ActiveDocument 属性返回 Document 对象。 
方法 
Activate'激活指定的对象。 
AddAddress'本方法在通讯簿中新增一项。每项都有一个或多个标签 ID 值。 
AutomaticChange'当“Office 助手”建议进行更改时，将执行“自动套用格式”操作。如果未激活任何“自动套用格式”操作，该方法将导致出错。 
BuildKeyCode'为指定的组合键返回唯一的代码。 
CentimetersToPoints'将度量单位由厘米转换为磅数（1 厘米=28.35 磅）。所返回的转换结果为 Single 类型。 
ChangeFileOpenDirectory'设置查找文档时 Word 所指向的文件夹。 
CheckGrammar'检查字符串的语法错误。返回一个 Boolean 类型的值，以表示字符串中是否包含语法错误。如果字符串未包含语法错误，则该值为 True。 
CheckSpelling'检查字符串的拼写错误。返回一个 Boolean 类型的值，以显示字符串是否包含拼写错误。如果字符串未包含拼写错误，则该值为 True。 
CleanString'从指定字符串中删除非打印字符（字符代码为 1-29）及 Word 的特殊字符，或将它们替换为空格（字符代码为 32）。返回的结果为 String 类型。 
CompareDocuments'比较两个文档，并返回一个 Document 对象，该对象表示包含两个文档之间的差别的文档，该文档用修订进行标记。 
DDEExecute'通过指定的 DDE（即动态数据交换）通道，向应用程序发送一条或一组命令。 
DDEInitiate'打开通向其他应用程序的 DDE（动态数据交换）通道，并返回通道序号。 
DDEPoke'通过打开的 DDE（动态数据交换）通道向应用程序发送数据。 
DDERequest'通过打开的 DDE（动态数据交换）通道向接收应用程序查询信息，并以 String 类型返回该信息。 
DDETerminate'关闭指定的通向另一应用程序的 DDE（动态数据交换）通道。 
DDETerminateAll'关闭所有由 Microsoft Office Word 打开的动态数据交换 (DDE) 通道。 
DefaultWebOptions'返回 DefaultWebOptions 对象，该对象包含 Microsoft Word 每当将文档保存为网页或打开网页时使用的应用程序级全局属性。 
GetAddress'返回默认通讯簿中的地址。 
GetDefaultTheme'返回代表默认主题名称的 String，以及 Microsoft Word 用于新文档、电子邮件或网页的主题格式选项。 
GetSpellingSuggestions'返回一个 SpellingSuggestions 集合，该集合代表指定单词的建议拼写替换单词。 
GoBack'将插入点在活动文档中最近进行过编辑操作的三个位置间移动，其作用等同于按 Shift+F5。 
GoForward'将插入点在活动文档中进行编辑的最后三个位置之间向前移动。 
Help'显示安装的帮助信息。 
HelpTool'指针从箭头改为问号，表明这是关于将要单击的命令或屏幕元素的快捷帮助。如果单击文本，Word 将显示描述当前段落及字符格式的对话框。按 Esc 可将指针恢复为原始状态。 
InchesToPoints'将度量单位从英寸转换为磅（1 英寸 = 72 磅）。以 Single 类型返回转换结果。 
Keyboard'返回或设置键盘的语言和布局设置。 
KeyboardBidi'将键盘语言设置为从右向左的语言，并将文字的输入方向设置为从右向左。 
KeyboardLatin'将键盘语言设置为从左向右的语言，并将文字的输入方向设置为从左向右。 
KeyString'为指定的键返回组合键字符串（例如，Ctrl+Shift+A）。 
LinesToPoints'将度量单位从行转换为磅（1 行 = 12 磅）。以 Single 类型返回转换结果。 
ListCommands'新建文档，然后插入带有相关快捷键和菜单设定的 Word 命令表。 
LoadMasterList'加载书目源文件。 
LookupNameProperties'在全局通讯簿列表中查找一个姓名，并显示“属性”对话框，其中包含了有关指定姓名的信息。 
MergeDocuments'比较两个文档，并返回一个 Document 对象，该对象表示包含两个文档之间的差别的文档，该文档用修订进行标记。 
MillimetersToPoints'把度量单位从毫米转换为磅值（1 毫米 = 2.85 磅）。以 Single 类型返回转换结果。 
MountVolume'您已经就仅在 Macintosh 上使用的 Visual Basic 关键字请求帮助。有关 Application 对象的 MountVolume 方法的信息，请参阅 Microsoft Office Macintosh Edition 所附带的语言参考帮助。 
Move'设置任务窗口或活动文档窗口的位置。 
NewWindow'打开一个新的窗口作为指定窗口，并显示原文档。返回一个 Window 对象。 
NextLetter'您已经就仅在 Macintosh 上使用的 Visual Basic 关键字请求帮助。有关 Application 对象的 NextLetter 方法的信息，请参阅 Microsoft Office Macintosh Edition 所附带的语言参考帮助。 
OnTime'启动在指定的时间运行宏的后台计时器。 
OrganizerCopy'将指定的“自动图文集”词条、<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>栏、样式或宏方案项从源文档或模板中复制到目标文档或模板上。 
OrganizerDelete'从文档或模板中删除指定的样式、“自动图文集”词条、工具栏或宏方案项。 
OrganizerRename'重新命名文档或模板中指定的样式、“自动图文集”词条、工具栏或宏方案项。 
PicasToPoints'将度量单位从十二点活字转换为磅值（1 十二点活字 = 12 磅）。以 Single 类型返回转换结果。 
PixelsToPoints'将长度值的单位由像素转换为磅。以 Single 类型返回转换结果。 
PointsToCentimeters'将度量单位由磅转换为厘米（1 厘米 = 28.35 磅）。以 Single 类型返回转换结果。 
PointsToInches'将磅转换为英寸（1 英寸 = 72 磅）。以 Single 类型返回转换结果。 
PointsToLines'将磅转换为行（1 行 = 12 磅）。以 Single 类型返回转换结果。 
PointsToMillimeters'将度量单位由磅转换为毫米（1 毫米 = 2.835 磅）。以 Single 类型返回转换结果。 
PointsToPicas'将度量单位由磅转换为十二点活字（1 十二点活字 = 12 磅）。以 Single 类型返回转换结果。 
PointsToPixels'将长度值的单位由磅转换为像素。以 Single 类型返回转换结果。 
PrintOut'打印指定文档的全部或部分内容。 
ProductCode'返回一个 String 类型的 Microsoft Word 全球唯一标识符 (GUID)。 
PutFocusInMailHeader'如果活动窗口中的文档是电子邮件文档，则将插入点置于邮件标题的“收件人”行。 
Quit'退出 Microsoft Office Word，并可选择保存或传送打开的文档。 
Repeat'一次或多次重复最近的编辑操作。如果成功地重复了命令，则返回 True。 
ResetIgnoreAll'在拼写检查时，取消以前的忽略词汇表。 
Resize'调整 Word 应用程序或某一任务的窗口大小。 
Run'运行 Visual Basic 宏。 
ScreenRefresh'使用视频内存缓冲区的当前信息更新显示器的显示。 
SetDefaultTheme'为 Microsoft Word 设置用于新文档、电子邮件或网页的默认主题。 
ShowClipboard'显示“剪贴板”任务窗格。 
ShowMe'当存在更多可用信息时，显示“Office 助手”或“帮助”窗口。 
SubstituteFont'设置字体映射选项。 
ToggleKeyboard'在从左向右的语言和从右向左语言之间切换键盘语言设置。 
属性 
ActiveDocument'返回一个 Document 对象，该对象代表活动文档。如果没有打开的文档，就会导致出错。只读。 
ActiveEncryptionSession'返回一个 Long 类型的值，该值代表与活动文档相关的加密会话。只读。 
ActivePrinter'返回或设置活动打印机名称。可读/写 String 类型。 
ActiveWindow'返回 Window 对象，该对象代表活动窗口（焦点所在的窗口）。如果没有打开的窗口，则会导致出错。只读。 
AddIns'返回一个 AddIns 集合，该集合代表所有有效加载项，而不考虑当前是否已加载它们。只读。 
AnswerWizard'返回一个 AnswerWizard 对象，该对象包含联机“帮助”搜索引擎所用的文件。 
Application'返回一个 Application 对象，该对象代表 Microsoft Word 应用程序。 
ArbitraryXMLSupportAvailable'返回一个 Boolean 类型的值，代表 Microsoft Word 是否接受自定义的 XML 架构。值为 True 表明 Word 接受自定义的 XML 架构。 
Assistance'返回一个代表 Microsoft Office 帮助查看器的 Assistance 对象。只读。 
Assistant'返回一个 Assistant 对象，该对象代表“Microsoft Office 助手”。 
AutoCaptions'返回一个 AutoCaptions 集合。当诸如表格或图片之类的项目插入到文档中时，此集合代表自动添加的题注。只读。 
AutoCorrect'返回一个 AutoCorrect 对象，该对象包含当前“自动更正”的选项、词条和例外项。只读。 
AutoCorrectEmail'返回一个 AutoCorrect 对象，该对象代表对电子邮件消息进行的自动更正。 
AutomationSecurity'返回或设置一个 MsoAutomationSecurity 常量，该常量代表当用编程方法打开文件时 Microsoft Word 所使用的安全设置。 
BackgroundPrintingStatus'返回后台打印队列中的打印任务数目。Long 类型，只读。 
BackgroundSavingStatus'返回后台保存队列中的文件数。Long 类型，只读。 
Bibliography'返回一个 Bibliography 对象，该对象代表 Microsoft Office Word 中存储的书目参考源。只读。 
BrowseExtraFileTypes'如果将该属性设置为“text/html”，则用 Microsoft Word（而不是默认的 Internet 浏览器）可以打开超链接的 HTML 文件。String 类型，可读写。 
Browser'返回一个 Browser 对象，该对象代表垂直滚动条上的“选择浏览对象”工具。只读。 
Build'返回 Word 应用程序的版本号及编译序号。String 类型，只读。 
CapsLock'如果已打开 Caps Lock 键，则该属性值为 True。Boolean 类型，只读。 
Caption'返回或设置出现在应用程序窗口的标题栏中的文本。String 类型，可读写。 
CaptionLabels'返回一个 CaptionLabels 集合，该集合包括全部有效题注标签。只读。 
CheckLanguage'如果 Microsoft Word 在键入时自动检测使用的语言，则该属性值为 True。Boolean 类型，可读写。 
COMAddIns'返回一个对 COMAddIns 集合的引用，该引用代表 Microsoft Word 当前加载的所有组件对象模型 (COM) 加载项。 
CommandBars'返回一个 CommandBars 集合，该集合代表 Microsoft Word 中的菜单栏以及所有工具栏。 
Creator'返回一个 32 位整数，该整数指出用于创建指定对象的应用程序。Long 类型，只读。 
CustomDictionaries'返回一个 Dictionaries 对象，该对象代表活动自定义词典的集合。只读。 
CustomizationContext'返回或设置一个 Template 或 Document 对象，该对象代表存储菜单栏、工具栏和键绑定的更改的模板或文档。可读/写。 
DefaultLegalBlackline'如果为 True，则 Microsoft Word 使用“比较并合并文档”对话框中的“精确比较”选项比较和合并文档。Boolean 类型，可读写。 
DefaultSaveFormat'返回或设置将在“另存为”对话框上的“保存类型”框中显示的默认格式。String 类型，可读写。 
DefaultTableSeparator'返回或设置一个字符；在将文本转换为表格时，该字符用来将文本分隔为单元格。String 类型，可读写。 
Dialogs'返回一个 Dialogs 集合，该集合代表 Word 中所有内置对话框。只读。 
DisplayAlerts'返回或设置运行宏时产生的一些警告和消息的处理方式。WdAlertLevel 类型，可读写。 
DisplayAutoCompleteTips'如果 Word 显示有关所键入整个单词、日期或词组的建议的提示，则该属性值为 True。Boolean 类型，可读写。 
DisplayDocumentInformationPanel'返回或设置 Boolean 值，该值表示是否显示文档属性面板。可读/写。 
DisplayRecentFiles'如果在“文件”菜单中显示最近使用的文件名，则该属性值为 True。Boolean 类型，可读写。 
DisplayScreenTips'如果为 True，则批注、脚注、尾注和超链接以提示形式显示。突出显示那些标记有批注的文本。Boolean 类型，可读写。 
DisplayScrollBars'如果为 True，则 Word 在至少一个文档窗口中显示滚动条；如果为 False，则在任何窗口中均不显示滚动条。Boolean 类型，可读写。 
Documents'返回一个 Documents 集合，该集合代表所有打开的文档。只读。 
DontResetInsertionPointProperties'返回或设置一个 Boolean 类型的值，该值代表 Microsoft Office Word 在运行其他代码后是否保持位于插入点位置的文本的格式属性。可读写。 
EmailOptions'返回一个 EmailOptions 对象，该对象代表创作电子邮件的全局首选项。只读。 
EmailTemplate'返回或设置一个 String 类型的值，该值代表发送电子邮件时使用的文档模板。可读写。 
EnableCancelKey'返回或设置 Word 处理 Ctrl+Break 用户中断的方式。WdEnableCancelKey 类型，可读写。 
FeatureInstall'返回或设置 Microsoft Word 将如何处理对所需功能尚未安装的方法和属性的调用。MsoReatureInstall 类型，可读写。 
FileConverters'返回一个 FileConverters 集合，该集合代表可用于 Microsoft Office Word 的所有文件转换器。只读。 
FileDialog'返回一个 FileDialog 对象，该对象代表文件对话框的单个实例。 
FindKey'返回 KeyBinding 对象，该对象代表指定的组合键。只读。 
FocusInMailHeader'如果插入点位于电子邮件标题域中（如“收件人”域），则该属性值为 True。Boolean 类型，只读。 
FontNames'返回一个 FontNames 对象，该对象包含所有有效字体的名称。只读。 
HangulHanjaDictionaries'返回一个 HangulHanjaConversionDictionaries 集合，该集合代表所有活动的自定义转换词典。 
Height'返回或设置活动文档窗口的高度。Long 类型，可读写。 
International'返回当前的国家/地区和国际设置信息。Variant 类型，只读。 
IsObjectValid'如果引用某个对象的指定变量有效，则该属性值为 True。Boolean 类型，只读。 
KeyBindings'返回一个 KeyBindings 集合，该集合代表自定义的按键指定方案，包含了键代码、键类别和命令。 
KeysBoundTo'返回一个 KeysBoundTo 对象，该对象代表指定项的所有组合键。 
LandscapeFontNames'返回一个 FontNames 对象，该对象包括了所有有效的横向字体的名称。 
Language'返回一个 MsoLanguageID 常量，该常量代表为 Microsoft Word 用户界面选定的语言。 
Languages'返回一个 Languages 集合，该集合代表列在“语言”对话框（在“工具”菜单上，单击“语言”，再单击“设置语言”）中的校对语言。 
LanguageSettings'返回一个 LanguageSettings 对象，该对象包含 Microsoft Word 中语言设置的信息。 
Left'返回或设置一个 Long 类型的值，该值代表活动文档的水平位置，以磅为单位。可读写。 
ListGalleries'返回一个 ListGalleries 集合，该集合代表三个列表模板库。 
MacroContainer'返回 Template 或 Document 对象，该对象代表其中存储模块（该模块中包含着运行的过程）的模板或文档。 
MailingLabel'返回一个 MailingLabel 对象，该对象代表一个邮件标签。 
MailMessage'返回一个 MailMessage 对象，该对象代表活动的电子邮件。 
MailSystem'返回主机上安装的邮件系统（或系统）。WdMailSystem 类型，只读。 
MAPIAvailable'如果已经安装了 MAPI，则该属性值为 True。Boolean 类型，只读。 
MathCoprocessorAvailable'如果安装了数学协处理器并且该处理器适用于 Microsoft Word，则该属性值为 True。Boolean 类型，只读。 
MouseAvailable'如果系统有可用的鼠标，则该属性值为 True。Boolean 类型，只读。 
Name'返回指定对象的名称。String 类型，只读。 
NewDocument'返回一个 NewFile 对象，该对象代表在“新建文档”任务窗格上所列的一个文档。 
NormalTemplate'返回一个 Template 对象，该对象代表 Normal 模板。 
NumLock'此属性返回 Num Lock 键的状态。如果为 True，则数字键盘可用于输入数字；如果为 False，则该键盘用于移动插入点。Boolean 类型，只读。 
OMathAutoCorrect'返回一个 OMathAutoCorrect 对象，该对象代表公式的自动更正条目。只读。 
OpenAttachmentsInFullScreen'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否在读取模式下打开电子邮件附件。可读/写。 
Options'返回一个 Options 对象，该对象代表 Microsoft Word 中的应用程序设置。 
Parent'返回一个 Object 类型的值，该值代表指定 Application 对象的父对象。 
Path'返回指定对象的磁盘或 Web 路径。只读 String 类型。 
PathSeparator'返回用于分隔文件夹名称的字符。在 Windows 中，该属性返回一个反斜线 (\)。只读 String 类型。 
PortraitFontNames'返回一个 FontNames 对象，该对象包括所有有效纵向字体的名称。 
PrintPreview'如果当前视图是打印预览，则该属性值为 True。Boolean 类型，可读写。 
RecentFiles'返回一个 RecentFiles 集合，该集合代表最近存取过的文件。 
RestrictLinkedStyles'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否允许链接样式。可读/写。 
ScreenUpdating'如果启用屏幕更新，则该属性值为 True。Boolean 类型，可读写。 
Selection'返回 Selection 对象，该对象代表一选定的范围或插入点。只读。 
ShowStartupDialog'如果为 True，则在启动 Microsoft Word 时显示“任务窗格”。Boolean 类型，可读写。 
ShowStylePreviews'返回或设置 Boolean 值，该值表示 Microsoft Office Word 是否在“样式” 对话框中显示样式的格式预览。可读/写。 
ShowVisualBasicEditor'如果显示“Visual Basic 编辑器”窗口，则该属性值为 True。Boolean 类型，可读写。 
ShowWindowsInTaskbar'如果为 True，则在任务栏中显示打开的文档，默认值为 Single Document Interface (SDI)。如果为 False，则只在“窗口”菜单中列出打开的文档，提供 Multiple Document Interface (MDI) 的外观。Boolean 类型，可读写。 
SmartTagRecognizers'返回应用程序的一个 SmartTagRecognizers 集合。 
SmartTagTypes'返回一个 SmartTagTypes 集合，代表 Microsoft Word 中所安装的智能标记组件的智能标记类型。 
SpecialMode'如果 Microsoft Office Word 处于某个特殊模式下（如 CopyText 模式或 MoveText 模式），则该属性值为 True。Boolean 类型，只读。 
StartupPath'返回或设置启动文件夹的完整路径，不包括最后的分隔符。String 类型，可读写。 
StatusBar'在状态栏中显示所选的文本。String 类型，只写。 
SynonymInfo'返回一个 SynonymInfo 对象，该对象包含来自同义词库的、与指定字词或短语的同义词、反义词或相关词语及表达相关的信息。 
System'返回一个 System 对象，该对象可用于返回与系统相关的信息，并执行与系统相关的任务。 
TaskPanes'返回一个 TaskPanes 集合，该集合代表 Microsoft Word 中最常执行的任务。 
Tasks'返回一个 Tasks 集合，该集合代表所有正在运行的应用程序。 
Templates'返回一个 Templates 集合，该集合代表所有可用的模板，包括共用模板和附加到打开文档的模板。 
Top' 
UsableHeight'返回 Microsoft Word 文档窗口高度可设置的最大值（以磅为单位）。Long 类型，只读。 
UsableWidth'返回 Microsoft Word 文档窗口可设置的最大宽度（以磅为单位）。Long 类型，只读。 
UserAddress'该属性返回或设置用户的通讯地址。String 类型，可读写。 
UserControl'如果文档或应用程序是由用户创建或打开的，则该属性值为 True。Boolean 类型，只读。 
UserInitials'该属性返回或设置用户名缩写，Microsoft Word 使用该缩写构成批注标记。String 类型，可读写。 
UserName'该属性返回或设置用户姓名，Word 将其用于信封和文档的“作者”属性。String 类型，可读写。 
VBE'返回一个 VBE 对象，该对象代表“Visual Basic 编辑器”。 
Version'返回 Microsoft Word 版本号。String 类型，只读。 
Visible' 
Width'返回或设置应用程序窗口的宽度（以磅为单位）。Long 类型，可读写。 
Windows'返回一个 Windows 集合，该集合代表所有文档窗口。只读。 
WindowState' 
WordBasic'返回一个自动化对象 (Word.Basic)，其中包含适用于 Word 6.0 和 Word for Windows 95 中所有 WordBasic 语句和函数的方法。只读。 
XMLNamespaces'返回一个 XMLNamespaces 集合，代表“架构库”中的 XML 架构。 
事件 
DocumentBeforeClose'在打开的文档即将关闭之前发生。 
DocumentBeforePrint'在打印打开的文档之前发生。 
DocumentBeforeSave'在保存打开的文档之前发生。 
DocumentChange'在创建新文档、打开已有文档或激活其他文档时发生。 
DocumentOpen'在打开文档时发生。 
DocumentSync'在属于“文档工作区”的文档的本地副本与服务器上的副本同步时发生。 
EPostageInsert'当用户在文档中插入电子邮政时发生。 
EPostageInsertEx'当用户在文档中插入电子邮政时发生。 
EPostagePropertyDialog'在用户单击“电子邮政属性”按钮（“标签和信封”对话框）或“打印电子邮政”工具栏按钮时发生。 
MailMergeAfterMerge'在邮件合并中的所有记录合并成功后发生。 
MailMergeAfterRecordMerge'在数据源中的每个记录成功合并到一个邮件合并后发生。 
MailMergeBeforeMerge'在合并任何记录之前于执行合并时发生。 
MailMergeBeforeRecordMerge'在针对合并中的单个记录执行合并时发生。 
MailMergeDataSourceLoad'在为邮件合并加载数据源时发生。 
MailMergeDataSourceValidate'在用户通过单击“邮件合并收件人”对话框中的“验证有效性”验证邮件合并收件人时发生。 
MailMergeDataSourceValidate2'当用户单击“邮件合并收件人”对话框中的“验证地址”链接按钮验证邮件合并收件人时发生。 
MailMergeWizardSendToCustom'在邮件合并向导的第 6 步单击自定义按钮时发生。 
MailMergeWizardStateChange'当用户在“邮件合并向导”中从一个指定步骤切换到另一个指定步骤时发生。 
NewDocument'在创建新文档时发生。 
Quit'当用户退出 Microsoft Office Word 时发生。 
WindowActivate'在激活文档窗口时发生。 
WindowBeforeDoubleClick'在默认的双击操作发生之前，当文档窗口的编辑区域被双击时发生。 
WindowBeforeRightClick'在默认右击操作发生之前，当文档窗口的编辑区域被右击时发生。 
WindowDeactivate'在文档窗口成为非活动窗口时发生。 
WindowSelectionChange'在活动窗口中的所选内容更改时发生。 
WindowSize'在对应用程序窗口进行大小调整或移动时发生。 
XMLSelectionChange'在当前所选内容的 XML 父节点更改时发生。 
XMLValidationError'文档中存在验证错误时发生。

1291500406 · 发表于 2020-2-16 17:07

flowerson 发表于 2020-2-16 12:04
加容量判断又是怎样写呢？

发布的内容没多少人回复，是一件打消积极性的事情，回答了也没意思

1291500406 · 发表于 2020-2-16 21:35

dakui 发表于 2020-2-16 17:14
哈哈，小强加油，现在是非常时期大家，理解万岁。

我帮他回答了那个问题

1291500406 · 发表于 2020-2-16 21:34

flowerson 发表于 2020-2-16 12:04
加容量判断又是怎样写呢？

你要加油哦,容量判断已经帮你加上

dcl1214 · 发表于 2020-2-15 08:47

确实写的不错，还考虑到了容错，收藏一下

flowerson · 发表于 2020-2-16 12:04

加容量判断又是怎样写呢？

dakui · 发表于 2020-2-16 17:14

哈哈，小强加油，现在是非常时期大家，理解万岁。

ztj988 · 发表于 2020-2-16 19:42

大家多发言，利于学习交流

angel066499 · 发表于 2020-2-16 22:24

感谢大神，非常需要这个，想请教一下，可以做到不放回收站，直接清除么？

lxy_2080 · 发表于 2020-2-16 22:46

不错，顶！！

账号		自动登录	找回密码
密码			注册

[函数] shell

评分