EXCEL VBA 经典实例400句(6)

(318) nguageDesignation '返回系统所使用的语言
(319) Application.System.MathCoprocessorInstalled ‘返回系统是否安装了数学协处理器
(320) Application.System.OperatingSystem ‘返回当前操作系统名
(321) Application.System.ProcessorType '返回计算机处理器名
(322) Application.System.Version ‘返回操作系统的版本号
(323) Application.Templates.Count '返回应用程序所使用的模板数
(324) erName '返回应用程序用户名
(325) Application.Version ‘返回应用程序的版本号
- - - - - - - - - - - - - - - - - - - - - -
Documents/Document对象
- - - - - - - - - - - - - - - - - - - - - -
(326) ActiveDocument.AttachedTemplate.FullName '返回当前文档采用的模板名及模板所在位置
(327) ActiveDocument.Bookmarks.Count '返回当前文档中的书签数
(328) ActiveDocument.Characters.Count '返回当前文档的字符数
(329) ActiveDocument.CodeName ‘返回当前文档的代码名称
(330) ments.Count ‘返回当前文档中的评论数
(331) ActiveDocument.Endnotes.Count '返回当前文档中的尾注数
(332) ActiveDocument.Fields.Count '返回当前文档中的域数目
(333) ActiveDocument.Footnotes.Count ‘返回当前文档中的脚注数
(334) ActiveDocument.FullName '返回当前文档的全名及所在位置
(335) ActiveDocument.HasPassword '当前文档是否有密码保护
(336) ActiveDocument.Hyperlinks.Count '返回当前文档中的链接数
(337) ActiveDocument.Indexes.Count '返回当前文档中的索引数
(338) ActiveDocument.ListParagraphs.Count '返回当前文档中项目编号或项目符号数
(339) ActiveDocument.ListTemplates.Count '返回当前文档中使用的列表模板数
(340) ActiveDocument.Paragraphs.Count '返回当前文档中的段落数
(341) ActiveDocument.Password=XXX '设置打开文件使用的密码
(342) ActiveDocument.ReadOnly '获取当前文档是否为只读属性
(343) ActiveDocument.Saved '当前文档是否被保存
(344) ActiveDocument.Sections.Count '当前文档中的节数
(345) ActiveDocument.Sentences.Count ‘当前文档中的语句数
(346) ActiveDocument.Shapes.Count '当前文档中的形状数
(347) ActiveDocument.Styles.Count '当前文档中的样式数
(348) ActiveDocument.Tables.Count ‘当前文档中的表格数
(349) ActiveDocument.TablesOfAuthorities.Count ‘返回当前文档中的引文目录数
(350) ActiveDocument.TablesOfAuthoritiesCategories.Count ‘返回当前文档中引文目录类别数
(351) ActiveDocument.TablesOfContents.Count ‘返回当前文档中的目录数
(352) ActiveDocument.
TablesOfFigures.Count '返回当前文档中的图表目录数
- - - - - - - - - - - - - - - - - - - - - -
Paragraphs/Paragraph对象
- - - - - - - - - - - - - - - - - - -

学习之后能大幅提高excel VBA编写水平,内容详尽全面

- - -
(353) Selection.Paragraphs.Count '返回所选区域的段落数
(354) Selection.Paragraphs.First '返回所选区域中的第一段
(355) ActiveDocument.Paragraphs(1).LeftIndent '返回当前文档中第一段的左缩进值
(356) ActiveDocument.Paragraphs(1).LineSpacing '返回当前文档中第一段的行距
(357) ActiveDocument.Paragraphs(1).OutlineLevel ‘返回或设置当前文档中第一段的大纲级别
(358) ActiveDocument.Paragraphs(1).RightIndent ‘返回当前文档中第一段的右缩进量
(359) ActiveDocument.Paragraphs(1).SpaceBefore '返回当前文档中第一段的段前间距
(360) ActiveDocument.Paragraphs(1).SpaceAfter ‘返回当前文档中第一段的段后间距
(361) ActiveDocument.Paragraphs(1).Range.Text '返回当前文档中第一段的内容
(362) ActiveDocument.Paragraphs(1)Local '返回当前文档中第一段应用的样式名
(363) ActiveDocument.Paragraphs(1).Range.Style.Descrīption '返回当前文档中第一段所应用样式的详细描述
(364) ActiveDocument.Paragraphs(1) '返回当前文档中第一段所应用样式的字体名
(365) ActiveDocument.Paragraphs(1)FarEast '返回或设置一种东亚字体名
(366) ActiveDocument.Paragraphs(1).Range.Style.Font.Size '返回或设置当前文档中第一段所应用样式的字体大小
(367) ActiveDocument.Paragraphs(1).Range.Style.Font.Spacing '返回或设置字符间距
(368) Selection.Words.Count '所选区域的字数
- - - - - - - - - - - - -
Sentences对象
- - - - - - - - - - - - -
(369) Selection.Sentences.Item(1) '所选区域中的第一句的内容
- - - - - - - - - -
Words对象
- - - - - - - - - -
(371) ActiveDocument.Words(1).Select '选择当前文档中的第一个词
(372) ActiveDocument.Range.Words(1).InsertAfter "我爱你！" '在当前文档中的第一个词后插入“我爱你”
- - - - - - - - - - - - -
Characters对象
- - - - - - - - - - - - -
(373) Selection.Characters.Count '当前文档中所选区域的字符数
(374) ActiveDocument.Paragraphs(1).Range.InsertParagraphAfter '在当前文档的第一段之后插入一个新段落
- - - - - - - - - - - - - - - - - -
Sections/Section对象
- - - - - - - - - - - - - - - - - -
(375) ActiveDocument.Sections.First '当前文档的第一节
(376) ActiveDocument.Sections.First.PageSetup.BottomMargin '当前文档第一节所在页的底边距
(377) ActiveDocument.Sections.First.PageSetup.LeftMargin '当前文档第一节所在页的左边距
(378) ActiveDocument.Sections.First.PageSetup.RightMargin '当前文档第一节所在页的右边距
(379) ActiveDocument.Sections.First.PageSetup.TopMargin '当前文档第一节所在页的顶边距
(380) ActiveDocume
nt.Sections.First.PageSetup.PaperSize '返回或设置当前文档第一节所在页的大小
(381) ActiveDocument.Sections.First.PageSetup.PageHeight '返回或设置当前文档第一节所在页的高度
(382) A

学习之后能大幅提高excel VBA编写水平,内容详尽全面

ctiveDocument.Sections.First.PageSetup.PageWidth '返回或设置当前文档第一节所在页的宽度
(383) ActiveDocument.Sections.Add Range:=myRange '在当前文档中添加新节
(384) ActiveDocument.Sections.Item(2) '当前文档中的第二节
(385) st.Range.InsertAfter "文档结束！" '在当前文档中最后一节的结尾添加文字“文档结束！”
- - - - - - - - - -
Range对象
- - - - - - - - - -
(386) ActiveDocument.Range(Start:=0, End:=10) '表示当前文档前10个字符所组成的一个Range对象
(387) Set myRange = ActiveDocument.Range( _
Start:=ActiveDocument.Paragraphs(2).Range.Start, …… 此处隐藏：3614字，全部文档内容请下载后查看。喜欢就下载吧 ……