2007版WORD,如何插入“对象”2003版WORD中,“插入
用户在Word中操作的每一个东西都是一个对象,如文档、对话框、文本框、图形、图表甚至Word本身都是对象,这些对象都有自己的属性和方法。
因此,用户可以通过编程来访问这些已有的对象,改变它们的属性,以完成某些较特殊的操作。
在对象模型中,还有一个重要的概念是集合(Collections)。
所谓集合,就是一组相近对象的组合,属于一个更大的对象,例如Sentences、Words和Characters对象,就可看成一个集合,它们隶属于Range对象,集合的重要属性是可以对其进行整体操作。
本文以改变Word文档属性来说明Word对象模型的应用。
Word文档属性的整体改变 我们有时想将Word文档的属性(如字体、字号等)作整体改变,最常见的例子是将整篇文档的字体都按比例增大或减小一号,如果整篇文档都采用同一属性,那么就可全选整个文档,然后改变属性即可;如果文档中的不同部分的属性不同,我们就很难对其进行整体操作,唯一的办法是选择文档的不同部分进行分别操作,这样做不仅费时,而且容易出错。
若借助Word的对象模型,我们就可轻易地对整个文档中的每一段、句和单词甚至是单个字的属性进行准确控制,下面以字号属性为例(其他属性类似),将文档中的所有字的字号都减小一号。
1.以Paragraphs(段)为操作对象,将文档中的每一段的字号都减小一号 如果Word文档中的各段落的字号不相同,但段落内部的字号都相同,则可以通过改变段落对象的字号属性来达到我们的目的。
代码如下。
Sub paragraph() On Error Resume Next Dim myParagraph As paragraph '对每一段落进行操作 For Each myParagraph In ActiveDocument. Paragraphs '如果该段落中的字号不尽一致或有其他格式, Word段落字号属性的返回值将为99999, 此时使用段落对象模型不能改变该段落的字号,故退到下一段 If myParagraph.Range.Font.Size >1000 Then Exit For '将该段的字号减小一号 myParagraph.Range.Font.Size=myParagraph .Range.Font.Size-1 Next myParagraph End Sub 2.以Sentences(句子)为对象,将文档中每一句的字号都减小一号 …… Dim I, J As Integer '统计每一段中句子的总数 J = myParagraph.Range.sentences.Count For I = 1 To J '防止同一句中出现不同的字号 If myParagraph.Range.sentences(I).Font.Size >1000 Then Exit For '将每一句的字号减小一号 myParagraph.Range.sentences(I).Font.Size= myParagraph.Range.sentences(I).Font.Size -1 Next I …… 3.以Words(单词)为操作对象,将文档中的每一单词的字号都减小一号 …… For Each myParagraph In ActiveDocument.Paragraphs '统计每一段中总单词数 J = myParagraph.Range.words.Count '将每一个单词的字号减小一号 For I = 1 To J myParagraph.Range.words(I).Font.Size = myParagraph.Range.words(I).Font.Size - 1 Next I …… 4.以Characters(单字)为操作对象,将文档中的每一个字的字号减小一号 …… For Each myParagraph In ActiveDocument.Paragraphs '统计每一段中总字数 J = myParagraph.Range.characters.Count '将每一个字的字号减小一号 For I = 1 To J myParagraph.Range.characters(I).Font .Size=myParagraph.Range.characters(I).Font.Size-1 Next I …… 带格式单词的替换 Word自身有替换命令(ctrl+h),但该命令的不足之处是,不能对带格式的单词进行替换,例如,要将整篇文档中的H2CO3替换成H2CO3,该命令就无能为力了。
下面介绍如何借助Word中的对象模型来实现替换。
Sub ReplaceWord() On Error Resume Next '对文档中的H2CO3进行格式替换 Dim myParagraph As Paragraph Dim I, J As Integer Dim tmpStr As String '对每一段进行操作 For Each myParagraph In ActiveDocument.Paragraphs '统计该段的单词数 J = myParagraph.Range.words.Count For I = 1 To J '比较字符串,查找所有替换的单词 If (LCase(myParagraph.Range.words(I)) = “h2co3") Then '选择所替换的单词 myParagraph.Range.words(I).Select '替换单词,写入字母H Selection.TypeText Text:=“H" '将其格式变为下标 Selection.Font.Subscript = True '写入下标2 Selection.TypeText Text:=“2" '字体变为正常体 Selection.Font.Subscript = False '写入字母CO Selection.TypeText Text:=“CO" '将其格式变为下标 Selection.Font.Subscript = True '写入下标3 Selection.TypeText Text:=“3" '字体变为正常体 Selection.Font.Subscript = False End If Next I Next myParagraph End Sub 上面程序段运行后,即可将文档中所有的H2CO3全部替换成H2CO3。
而且,我们还可在VBA中插入窗体,编写出同Word替换命令类似的窗口界面,来进行带格式单词的替换。
在Word菜单“插入”
您可点击“插入”菜单,再点击“对象”,找到“Microsoft 公式3.0”,选中它以后双击左键,就可以打开公式编辑器了,点击“分式和根式模板”,用它输入即可。
(请见上传截图) 如果您的电脑中找不到“Microsoft 公式3.0”,那可能是没有安装公式编辑器。
解决方法是可用“eq域”来解决,具体方法是: 比如您要输入根号2,按下“Ctrl+F9”组合键,这时出现一个灰底的大括号,在里面输入“eq \r(2)”(不包括双括号),并用鼠标右键点一下,再在弹出的对话框中点一下切换域代码,根号2就出来了。
注意要点: 1.输入时要切换到英文输入法,不然不能成功。
2.eq后面要有一个空格。
3.要输入其他根式可输入“eq \r(x,y)”,括号里逗号前面的x是开几次方的数,后面的y是要开根号的数。
WORD中的“选择浏览对象”按钮干什么的?
单击该按钮,会弹出一个小的选择窗口,其中包括:按页浏览、按节浏览、按批注浏览、按脚注浏览、按尾注浏览、按域浏览、按表格浏览、按图形浏览、按标题浏览、按编辑位置浏览、查找及定位12个选项,均用形象的图标方式显示,当鼠标指向某一个图标按钮时,系统会自动提示其代表的意思。
单击某一个按钮后即可发现上下翻页按钮有原先的黑色显示为蓝色,这时当你再按下下翻页键时,就可以按照你需要的方式浏览文章了。
哪个哥哥帮帮我做做``一.单选题:1、在Word文档窗口中,若选
你这个问法不准确,只有图片是以图形的形式存在word中,其它的插入对象,比如绘图板,内嵌的excel表格,Visio图形等,除了本身存储的是可编辑的对象外,还有一张与之对应的图片,当你从一个不支持这个对象的word文档复制到另外一个word文档时,复制的就是图片而不是对象。
...
word中可以插入哪些对象?对象与文字的绕排方式有哪些?
这个题目出的不好,不用在意。
个人觉得C不对,WORD表格中是可以嵌套表格的。
补充一:哎,应试教育的负面影响呀。
那只能用排除法了,那就是A,但要注意A答案中数字是可以插入的,但文字只能键盘输入没法以插入的方式实现。
补充二:看了“童丽佳 ”的回答,我又再查了一下。
其实所有字符都可以在“插入->符号”中找到,只是对于中文来说太麻烦了。
所以个人觉得只能说以插入对象的方法操作,A的操作方式最不合理。
转载请注明出处51数据库 » 手机 word中的对象