EXCELVBA实用代码收集汇编.doc

四、Word vba常用语句100句1、系统参数(01) Application.ActivePrinter? ?? ? ‘获取当前打印机(02) Application.Height? ?? ?? ???当前应用程序文档的高度?(03) Application.Width? ?? ?? ? ‘当前应用程序文档的宽度?(04) Application.Build? ?? ?? ? ‘获取Word版本号和编译序号?(05) Application.Caption? ?? ?? ?‘当前应用程序名?(06) Application.DefaultSaveFormat? ???返回空字符串，表示Word文档?(07) Application.DisplayRecentFiles? ?返回是否显示最近使用的文档的状态?(08) Application.Documents.Count? ?? ? 返回当前打开的文档数?(09) Application.FontNames.Count? ?? ?‘返回当前可用的字体数?(10) Application.Left? ?? ?? ?? ?‘返回当前文档的水平位置?(11) Application.MacroContainer.FullName??返回当前文档名，包括所在路径?Application.MacroContainer.pach? ?? ?? ???返回当前文档路径Application.ActiveDocument.Path? ?? ?? ?‘获得文件的相对路径?(12) Application.NormalTemplate.FullName??返回文档标准模板名称及所在位置?(13) Application.RecentFiles.Count? ?? ???返回最近打开的文档数目?(14) Application.System.CountryRegion? ? 返回应用程序所在的地区代码?(15) Application.System.FreeDiskSpace? ?‘返回应用程序所在磁盘可用空间?(16) Application.System.HorizontalResolution? ?返回显示器的水平分辨率?(17) Application.System.VerticalResolution? ?返回显示器的垂直分辨率?(18) Application.System.LanguageDesignation? ?返回系统所使用的语言?(19) Application.System.MathCoprocessorInstalled? ?‘返回系统是否安装了数学协处理器?(20) Application.System.OperatingSystem? ?‘返回当前操作系统名?(21) Application.System.ProcessorType? ???返回计算机处理器名?(22) Application.System.Version? ? ‘返回操作系统的版本号?(23) Application.Templates.Count? ???返回应用程序所使用的模板数?(24) Application.UserName? ?? ?返回应用程序用户名(25) Application.Version? ?? ? ‘返回应用程序的版本号2、Documents/Document对象?(26) ActiveDocument.AttachedTemplate.FullName 返回当前文档采用的模板名及模板所在位置(27) ActiveDocument.Bookmarks.Count? ? 返回当前文档中的书签数(28) ActiveDocument.Characters.Count? ? 返回当前文档的字符数(29) ActiveDocument.CodeName? ?? ?‘返回当前文档的代码名称(30) ActiveDocument.Comments.Count ‘? ?返回当前文档中的评论数(31) ActiveDocument.Endnotes.Count? ???返回当前文档中的尾注数(32) ActiveDocument.Fields.Count? ???返回当前文档中的域数目(33) ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数(34) ActiveDocument.FullName? ? 返回当前文档的全名及所在位置(35) ActiveDocument.HasPassword? ? 当前文档是否有密码保护(36) ActiveDocument.Hype