EXCEL-VBA-实用代码收集.doc

《EXCEL-VBA-实用代码收集.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、.四、Wordvba常用语句100句1、系统参数(01)Application.ActivePrinter    ‘获取当前打印机(02)Application.Height        '当前应用程序文档的高度 (03)Application.Width      ‘当前应用程序文档的宽度 (04)Application.Build      ‘获取Word版本号和编译序号 (05)Application.Caption      ‘当前应用程序名 (06)Application.DefaultSaveFormat    '返回空

2、字符串，表示Word文档 (07)Application.DisplayRecentFiles  '返回是否显示最近使用的文档的状态 (08)Application.Documents.Count    '返回当前打开的文档数 (09)Application.FontNames.Count    ‘返回当前可用的字体数 (10)Application.Left        ‘返回当前文档的水平位置 (11)Application.MacroContainer.FullName  '返回当前文档名，包括所在路径 Application

3、.MacroContainer.pach        '返回当前文档路径Application.ActiveDocument.Path      ‘获得文件的相对路径 (12)Application.NormalTemplate.FullName  '返回文档标准模板名称及所在位置 (13)Application.RecentFiles.Count      '返回最近打开的文档数目 (14)Application.System.CountryRegion  '返回应用程序所在的地区代码 (15)Application.System

4、.FreeDiskSpace  ‘返回应用程序所在磁盘可用空间 (16)Application.System.HorizontalResolution  '返回显示器的水平分辨率 (17)Application.System.VerticalResolution  '返回显示器的垂直分辨率 (18)Application.System.LanguageDesignation  '返回系统所使用的语言 (19)Application.System.MathCoprocessorInstalled  ‘返回系统是否安装了数学协处理器 (2

5、0)Application.System.OperatingSystem  ‘返回当前操作系统名 (21)Application.System.ProcessorType    '返回计算机处理器名 (22)Application.System.Version  ‘返回操作系统的版本号 (23)Application.Templates.Count    '返回应用程序所使用的模板数 (24)Application.UserName    '返回应用程序用户名(25)Application.Version    ‘返回应用程序的版本号

6、2、Documents/Document对象 (26)ActiveDocument.AttachedTemplate.FullName'返回当前文档采用的模板名及模板所在位置(27)ActiveDocument.Bookmarks.Count  '返回当前文档中的书签数(28)ActiveDocument.Characters.Count  '返回当前文档的字符数(29)ActiveDocument.CodeName    ‘返回当前文档的代码名称(30)ActiveDocument.Comments.Count‘  返回当前文档中的

7、评论数(31)ActiveDocument.Endnotes.Count    '返回当前文档中的尾注数(32)ActiveDocument.Fields.Count    '返回当前文档中的域数目(33)ActiveDocument.Footnotes.Count‘返回当前文档中的脚注数(34)ActiveDocument.FullName  '返回当前文档的全名及所在位置(35)ActiveDocument.HasPassword  '当前文档是否有密码保护(36)ActiveDocument.Hyperlinks.Count  

8、'返回当前文档中的链接数(37)ActiveDocument.Indexes.Count  '返回当前文档中的索引数(38)ActiveDocument.ListParagraphs.Count  '返回当前文档中项目编