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替换命令类似的窗口界面,来进行带格式单词的替换。
word2010不能快速框选多个图形对象
按住Ctrl键,然后单击每个需要组合的流程框、线,松开Ctrl键,在已经选定的部分右击,选择“组合”中的“组合”即可。
ord有快速选择多个对象的功能。
首先,如果你的文档是Word 2003及以前版本的doc格式,那就比较简单,如下图
但如果是docx格式,要想使用上面的选择方式,就要让所有的图形处于同一个画布中,然后再使用上面的方法。
如果不想使用绘图画布,那就要打开“页面布局”选项卡,在“排列”区中单击“选择窗格”,右侧会出现“选择和可见性”窗口,在里面可以用按下Ctrl并单击多个对象的方法来选定所有要组合的对象,同时,页面中的相应对象也会被选定,右击它们,组合即可。
Word2010中图形对象有什么特点
在Word 2000 中,可以以图形对象方式使用文本框,这就是说,作为存放文本的容器,可放置在页面上并调整其大小。
文本框提供了更好、更令人入迷的方法来处理文本,并能更好地利用新的图形效果。 文本框有许多特点,如: 可以通过链接各文本框使文字从文档一个部分排至另一部分。
可用文本框创建水印,以包含能显示在文档打印层上的文字。 可用新的【绘图】工具栏上的选项对文本框进行格式设置。
如可设置三维效果、阴影、边框类型和颜色、填充颜色和背景等。 可在更广泛的范围内选择环绕文字选项。
可旋转和翻转文本框。 可用【格式】菜单中的【文字方向】命令改变文本框中的文字方向。
可将文本框分组并按组改变它们的分布和对齐方式。 http://study。
feloo。com/computer/jichu/Word/200503/21986。
html 在这里看一下,好详细的~~。
如何在word里组合对象
1、打开电脑,然后打开准备好的word文档,插入图片素材和艺术字标题,调整好图片位置;
2、鼠标选中图片,找到鼠标右键在弹出的菜单中选择【大小和位置】选项,点击【大小和位置】选项;
3、然后会弹出一个“大小和位置”弹出框,在弹出框中将图片的“文字环绕”方式设置为“衬于文字下方”;
4、按下【Shift】键,同时选中要组合的对象,然后单击鼠标右键,在弹出的快捷菜单中选择【组合】》【组合】菜单项;
5、返回word文档,此时再用鼠标拖动图片,则整个画面会一起移动,可以同时进行修改等操作即可。
转载请注明出处51数据库 » word图形对象处理