Word2003的工具菜单上单击选项命令在哪儿

编辑本段Wod2003文档结构图的使用查阅结构图文档 ◎在【常用】工具栏中单击【文档结构图】按钮。

◎单击【文档结构图】中要跳转的标题。

该标题及其内容就会显示在页面顶部。

调整结构图大小 ◎将鼠标指针指向窗格右边，当指针形状变化时，向左或向右拖动即可。

◎如果标题太长，超出文档结构图宽度，不必调整窗格大小，只需将指针在标题上稍作停留，即可看到整个标题。

展开或折叠子标题 ◎凡是隐藏了子标题的上一级标题，前面会有一个展开符号“+”，单击“+”即可展开所有子标题。

同时“+”号变成“-”号，即折叠符号。

◎如果要隐藏某一标题下的子标题，则单击标题旁的 “-”号，所有的子标题即被折叠隐藏起来。

显示特定级别标题 ◎可在【文档结构图】的标题上单击鼠标右键，然后单击快捷菜单中的一个数字（例如，单击【显示至标题3】可显示标题级别1至3）。

word设置对象模式在哪？

用户在Wod中操作的每一个东西都是一个对象，如文档、对话框、文本框、图形、图表甚至Wod本身都是对象，这些对象都有自己的属性和方法。

因此，用户可以通过编程来访问这些已有的对象，改变它们的属性，以完成某些较特殊的操作。

在对象模型中，还有一个重要的概念是集合（Collections）。

所谓集合，就是一组相近对象的组合，属于一个更大的对象，例如Sentences、Wods和Chaactes对象，就可看成一个集合，它们隶属于Range对象，集合的重要属性是可以对其进行整体操作。

本文以改变Wod文档属性来说明Wod对象模型的应用。

Wod文档属性的整体改变 我们有时想将Wod文档的属性（如字体、字号等）作整体改变，最常见的例子是将整篇文档的字体都按比例增大或减小一号，如果整篇文档都采用同一属性，那么就可全选整个文档，然后改变属性即可；如果文档中的不同部分的属性不同，我们就很难对其进行整体操作，唯一的办法是选择文档的不同部分进行分别操作，这样做不仅费时，而且容易出错。

若借助Wod的对象模型，我们就可轻易地对整个文档中的每一段、句和单词甚至是单个字的属性进行准确控制，下面以字号属性为例（其他属性类似），将文档中的所有字的字号都减小一号。

1.以Paagaphs（段）为操作对象，将文档中的每一段的字号都减小一号 如果Wod文档中的各段落的字号不相同，但段落内部的字号都相同，则可以通过改变段落对象的字号属性来达到我们的目的。

代码如下。

Su paagaph() On Eo Resume Next Dim myPaagaph As paagaph "对每一段落进行操作 Fo Each myPaagaph In ActiveDocument. Paagaphs "如果该段落中的字号不尽一致或有其他格式， Wod段落字号属性的返回值将为99999， 此时使用段落对象模型不能改变该段落的字号，故退到下一段 If myPaagaph.Range.Font.Size 1000 Then Exit Fo "将该段的字号减小一号 myPaagaph.Range.Font.Size=myPaagaph .Range.Font.Size-1 Next myPaagaph End Su 2.以Sentences（句子）为对象，将文档中每一句的字号都减小一号 …… Dim I, J As Intege "统计每一段中句子的总数 J = myPaagaph.Range.sentences.Count Fo I = 1 To J "防止同一句中出现不同的字号 If myPaagaph.Range.sentences(I).Font.Size 1000 Then Exit Fo "将每一句的字号减小一号 myPaagaph.Range.sentences(I).Font.Size= myPaagaph.Range.sentences(I).Font.Size -1 Next I …… 3.以Wods（单词）为操作对象，将文档中的每一单词的字号都减小一号 …… Fo Each myPaagaph In ActiveDocument.Paagaphs "统计每一段中总单词数 J = myPaagaph.Range.wods.Count "将每一个单词的字号减小一号 Fo I = 1 To J myPaagaph.Range.wods(I).Font.Size = myPaagaph.Range.wods(I).Font.Size - 1 Next I …… 4.以Chaactes（单字）为操作对象，将文档中的每一个字的字号减小一号 …… Fo Each myPaagaph In ActiveDocument.Paagaphs "统计每一段中总字数 J = myPaagaph.Range.chaactes.Count "将每一个字的字号减小一号 Fo I = 1 To J myPaagaph.Range.chaactes(I).Font .Size=myPaagaph.Range.chaactes(I).Font.Size-1 Next I …… 带格式单词的替换 Wod自身有替换命令（ctl+h），但该命令的不足之处是，不能对带格式的单词进行替换，例如，要将整篇文档中的H2CO3替换成H2CO3，该命令就无能为力了。

下面介绍如何借助Wod中的对象模型来实现替换。

Su ReplaceWod() On Eo Resume Next "对文档中的H2CO3进行格式替换 Dim myPaagaph As Paagaph Dim I, J As Intege Dim tmpSt As Sting "对每一段进行操作 Fo Each myPaagaph In ActiveDocument.Paagaphs "统计该段的单词数 J = myPaagaph.Range.wods.Count Fo I = 1 To J "比较字符串，查找所有替换的单词 If (LCase(myPaagaph.Range.wods(I)) = “h2co3＂) Then "选择所替换的单词 myPaagaph.Range.wods(I).Select "替换单词，写入字母H Selection.TypeText Text:=“H＂ "将其格式变为下标 Selection.Font.Suscipt = Tue "写入下标2 Selection.TypeText Text:=“2＂ "字体变为正常体 Selection.Font.Suscipt = False "写入字母CO Selection.TypeText Text:=“CO＂ "将其格式变为下标 Selection.Font.Suscipt = Tue "写入下标3 Selection.TypeText Text:=“3＂ "字体变为正常体 Selection.Font.Suscipt = False End If Next I Next myPaagaph End Su 上面程序段运行后，即可将文档中所有的H2CO3全部替换成H2CO3。

而且，我们还可在VBA中插入窗体，编写出同Wod替换命令类似的窗口界面，来进行带格式单词的替换。