Office排版技巧.pdf

《Office排版技巧.pdf》由会员分享，可在线阅读，更多相关《Office排版技巧.pdf（15页珍藏版）》请在得力文库 - 分享文档赚钱的网站上搜索。

1、Microsoft Office排版技巧09 年 4 月 19 日田冀焕0 引言经过了一个多月的“煎熬”，终于将博士论文撰写完毕并打印成册了。由于之前撰写博士课题结题报告就用的是Microsoft Office1，自己也不想再麻烦，所以博士论文就直接基于该Word文档做了，也没有再使用TeX/LaTeX排版。准确地讲，排版这件事其实比不上我们去学习数学、物理或编程序等给自己带来的收获大。可能你投入了数天的气力去调整文档格式，最终只是得到了一个“通过论文格式审查”的必然结果。毕竟，排版的目的是为了“秀”给别人看的，于自己的益处不多，而且对于面临要毕业工作不搞科研的大多数同学来讲，可能就只这么一次

2、撰写大论文的机会，因而排版就更是一件“吃力不讨好”的事情了。但正因为如此，这里把自己在此次排版博士论文过程中的一些小经验、小技巧总结出来以享诸位，以期能够提高大家今后撰写论文的效率，尽量减少在这件“吃力不讨好的事情”上所浪费的时间。同时，需要说明的是，撰写本文的目的绝对不是为了向大家宣传使用盗版Microsoft Office，也绝对不是为了向大家宣传使用正版Microsoft Office。因此，本文的撰写采用的是GNU/Linux 下的 Openoffice办公套装软件，除了与Microsoft Office 不能完全兼容外，其完全可以替代 Microsoft Office，满足日常科研和

3、学习的需求。下面言归正传，介绍Word 排版中的小技巧，其中许多内容都是通过VBA 宏来实现的，可以大大减少我们的工作量。1“样式与格式”对于带有格式的文档，文档内容与样式的分离是保证文档格式的统一、可变、易维护的关键。在撰写文档时，我们只需关心如何安排各部分之间的逻辑关系、组织结构，而暂时不需要考虑段落与文字的样式。确定出文档的整体框架 后，就可以 针对每个组织 单元进行 样式的 设计。例如，一个文档可以分为文章题目、各 级标题、正文文字、要 点内容等 四大部分，那么就可以分别为这 四类逻辑内容 设置相应 的样式。这样做的好处是，我们可以设置 不同的样式 集，从而在保证文档内容不变的情况下得

4、到不同排版效果的文档。例如，可以 针对同一文档内容，分别1也不得不用 微软 Word 来做。国内的项目报告，杂志文章投稿鲜有接收 TeX/LaTeX 格式的。你不用 Offfice（而且通常是盗版 Office），就没有办 法和别人 进行合 作与沟通，也就是会给 他人带来麻烦。制作出用于论文打印和会议海 报的样式。在 Microsoft Word 中样式的 创建与修改是通过“格式”菜单中的“样式与格式”来完成的。在撰写最终的毕业论文前，一定要先定义好文档所需的样式（可以先只起好样式的 名字，等文 章写完后再调整与各样式对应的段落与文字格式），而不要像许多人通常的做 法：随手选 中某一部分文字直

5、接 修改其样式，或 者使用格式 刷将样式 刷来刷去，这样做的后果会 很惨，很容易导致整个文档的格式全部 乱掉，重新调整 起来异常困难。而若事先定义好了与文档各逻辑组成部分对应的样式，则只要将该样式的定 义内容进行修改，则全文中所有采用该样式的地方都会得到 相应更新，这样做 既省事、又安全可 靠。举例说，我在博士论文中就分别 设定了如下样式：一、二、三级标 题，一 行放置单 个图片与一行并排放置两个图片的样式，图片与表格题注样式，参考文献条目样式，公式所在段落的样式等。关于样式定 义或修改对话框中的“自 动更新”选项这里需要说明一下：若选 中了该 选项，则改变该样式后，所有 继承于该样式的样式将

6、全部得到相应的更新。所以，除 非某一样式 及其子样式具有稳定不变的 风格要求时，才能使用自 动更新选项 以保证该样式自 身和继承 于它的所有样式得到同 步更新。若非如此，则慎用此选项。例如，一个 典型的情 况便是：若将 Text（即正文）这种最普通的样式 设成了自 动更新，则在你写 某一段文字时，突然想将其变成item list（编号列表）样式，然后你 点击了 item list 按钮，随后就会 发现文档中所有Text段落均给编上号码了。这就是由于你 点了 item list 按钮，则相当 于继承 Text样式新生 成了一个 Text+item list样式，接 着就是全文的自 动更新.后果很

7、严重!2 公式、图、表的编号与引用图、表的自 动编号与引用是很方便 的，直接在 Microsoft Word 中插入“题 注”或 选择交叉引用则可以搞定。公式的编 号也可以用 Word来做，但是在 引用公式时，即需要得到“如式(*.*)”所示的效果，则不能再使用 Word的交叉引 用功能了：在插入公式的 引用后，Word 会将公式对象本身与公式编 号一齐插入到 引用公式的地 方。即使将插入的多 余的公式对 象删 除也没有用：因为 如果 更新文 档 中 的域，则 在引 用 处 又会 重 新 出现 公 式 对象。当然，如 果你 安装 了Mathtype，则公式的 引用就不 存在上 述问题。但这里给

8、出一个我自己的解决方法，该 方法采用VBA 宏来实现“域代码”的自 动写入，从而可以自 动生成公式的编 号与对公式的 引用。2.1公式自动编号公式或 者图、表的自动编号可以完全通过写入 域代码来实现，而 无需采用 插入“题注”的方式。如果要 生成形如“(4.13)”的编号（其中 4 为章号，13表示第 4章内的第 13 个公式），其实就相当于有一个 计数器，每生成一个公式或 图、表对象，该计数器的值就加 1；若遇 到新的一章，则该记数器清零。将该 计数器的值与章号结合，就可以得到 形如“(4.13)”的公式编 号。写成域代码如下：styleref 1 s*mergeformatseq coun

9、ter*arabic s 1*mergeformat其中，styleref 1 s*mergeformat生成章号；seq counter*arabic s 1*mergeformat生成对象编号。counter是编 号对象的计数器名称。例如，为了对公式、图、表分别自 动编号，其计数器分别起名为：eqn,fig,tab。*arabic 表示以阿拉伯 数字的 方式显示自动编号。为了引用某公式或 图、表，则需要先选 中其编 号，然后 插入书签，并给 它起一个 书签名。然后，就可以用下面的 域代码引用该书签，得到的效果就是在 引用处插入公式或 图、表的编号：ref bookmark_name h域代

10、码的手动插 入可以通过 Ctrl+F9 来实现，但 较为麻烦。于是，将上述对象自动编号、添加书签 与引用书签的过程写成 VBA 宏：label_object：自动生成对象编号。其中会提 示输入上 述计数器 counter的名字，这样可以实现对不同的对 象分别自 动编号。add_bookmark：在选中的对 象编号处生成一个 书签。其中会提 示输 入书签 的名字。只有生成了书签，才可以在文档中 引用该对 象。ref_object：在引用处插入被引用对象的编号。其中会提 示输 入对象书签 的名字。对 象编号处书签名 字的查看，可以直接用 快捷键 Ctrl+F5。3 公式、图片、表格的排版3.1公式

11、的排版论文中的公式格式通常是这样的：公式对 象在文档正中 居中放置，而公式编 号在文档最 右侧右对齐。这个样式并不是我们通常所用的“左、中、右对齐”或“两端 对齐”。有不少人的处理方法 是生成一个一 行三列表 格。中间的一个 单元设置 为居中对齐，其中 插入公式对 象；右边的单元格设置为右对齐，且单元的 cell padding 距离应设为零，其中写入公式的编 号。这样的做法颇为麻烦。其实，只需要采用制表位就可以 很容易实现公式与编 号的对齐。为此，需 专门为公式 新建一个样式。其中的段落间距等等则按照 常规来设置，除此之外，需要在文档的正中央设置 一个对 齐属性 为“居中”的 制表位，在版

12、芯最右侧位置处设置一个 右对齐的制表位。这样，在 插入公式前，首先 将其所在段落 设为上述新建 的样式。然后，按一次 TAB 键，就可以看到光标移 到了文档的正中 央，此时 输入公式对 象，则它以文档中 央为基准 居中对 齐。接下来，再按一次 TAB 键，光标便移动至 文档的最 右端，此时 运行 label_object宏插入公式编 号，该编号自动以文档最 右端为基准 右对齐。3.2图片的排版图片的格式通常就是一 行放置 一个或一 行并排放置两 个图片。表格就只有一 行放置 一个的情况。对于一 行放置 一个对 象的排版，只需 新建 一个“居中”的段落样式 即可。对于一 行并排放置两 个图片的情

13、况，则可以采用 类似上述公式排版的 方法，利用制表 位来实现。我们可以 新建一个名为“双图片”的样式，在版 芯宽度 的大约 1/4 与 3/4处分别 设置“居中”对 齐的制表位。然后，通过 按 TAB 键，则可以很快将光标移动至相应 位置，然后在该处 插入图片即 可。为了使全文 图片的大小基本保 持一致：例 如，对于一 行放置 一个图片的情 况，可以 设置图片的宽度 为版芯宽度 的 80%，为了保 持图片原 比例，图片 的高度自动按比例缩放。对于一 行放置两个图片的情况，可以 设置图片宽度 为版芯宽度 的 49%，图片 高度按比例自动缩放。上述的调整过程写成宏SetFig与 SetTwoFig

14、。它们分别用来 设置 一行一个 图片 与一行两 个图片 格式下图片的宽度与高度。3.3表格的排版正规文献中的表格均为三线表。然而，用 Word 自动插 入的 表格都是完整的 横竖线，之后只能通过 手动去调整 表格与单元格的边框，颇为麻烦。为此，写了一个宏Set3LineTable，只要将表格选中，运行该宏，就可以将其 设置 为三线表 了，而且 线的粗细都是 符合我们学 校论文的要求。4 Excel chart的处理平时很多的实验数 据和由这些数 据绘制 出图表如何保存？用 Matlab 画出图导出成 jpeg 贴到 word 中？这应该是最要不得的做 法：首先，大多数人 图省事，随手贴 入的都

15、是 彩色图。但毕业论文与 发表 的文章中一 般均要使用 黑白图片。更何 况，绘出的图中坐标标注 的字体、曲线线型 等等一 般都不合要求。将这些 图存 为 jpeg，基本上就是在做无用功，等到写文 章的时 候，还得重新画 的。如果 重新的画的话，那当时用于 绘图的程序都在哪儿？算例 都在哪儿？这简直就是 坠入了地 狱。用 matlab绘图但将其 存为.fig 文件？看起来这是一个不 错的方法。因为 存成.fig 文件时，图片和原数据都在（将其中 曲线 对应的数据取出还是有办 法的，这里不再 赘述）。但是，这毕竟还是有些麻烦，而且不 太直观，无法直接看到与 曲线对应的数据。所以，这里 还是推荐采用

16、 Excel 来同时保 存数据和根据 这些数 据画 出的 chart，这是一 种非常直观和便捷 的方式。虽然 Excel 并不是 专门 用来搞科研的工 具软件，但是其 功能还是够用的。如果不够你用，那么再去写一些 VBA 宏，就完全可以为所 欲为。然而，在 Excel 中插入的 chart通常都带有 背景色，线型和 marker也都跟我们学 术绘图 中常用的 形式与符号 大不相同，看起来极其古怪。所以，需要对 chart中的各个 元素属性进行修改，换成我们习 惯的线型与 marker（类似于 Matlab 中的线型 与 marker symbol就 ok），将其 设为黑白色。但这是一件 非常让

17、人吐血 的麻烦事。所以，我也写了一个SetChartStyle宏，用于 设置线型、marker symbol和大小，坐标系中的网格等。同时宏SetTickNumberFormat用于设置坐标轴 数字 标注的格式。这样一来，繁琐的事情在不到一 秒中的时间就可以全部完成了，剩下的就只是 微调一下 chart的大小，然后就可以出炉了。5 参考文献的编排首先要说的一 点是，传统的 手工一条一条输入文 献记录 的方式一去不 复返 了。现在 很多的参考文 献管理软件不只是可以当作文献数据库和笔记本来用，而且 已有不少可以直接与Word结合，在文档中自 动插入文献条目和引用编号。商业的软件就不说了，（即使你

18、有 钱）想必也没有谁愿意 去为其 掏腰包。这里 推荐大家使用基于 Firefox 浏览器的 Zotero 文献管理平台。因为与该软件 配合使用的有一个Word插件，可以自 动按 不同 杂志社要求的格式 插入文献，并在文章中插入文献的引用编号。是 否好用我没有 尝试，大家可以 试用一下。当然，Jabref也是一个很好的文 献管 理软件，目前 已有基于 Openoffice的插件。上 述两个软件 均具有很好的移植性，可以在 Windows,Linux,Mac 下使用。我此次博士论文对 参考文献的插入与处理没有基于上 述插件，因为 感觉自己做 起来可能会更可靠、稳妥些。我采用的 方案是：将参考文献记

19、录 以“编 号列表”的格式 插入到文档的 末尾。然后，在需要 引用文 献的地 方，利用 Word 自己的 插入列表项“题 注”功能，则可以将与文 献记录对应的编号插入到当前文本中。然而，这个做法并不能保证 参考文 献记录按 我们引用的 顺序排列，所以在经过对论文多次的修改后，参考文 献记录 的先后顺序可能是一 团乱麻。为此，我写了 ListCitationNumbers 宏，它可以从文档 开头至末尾搜索 形如num的字 符串，并将其中的数字编 号 num 取出记录。如果 某一编号在前文 已出现过，那么再次 遇到该编 号时就不再 记录，即每个文献引用编号只记录一次。搜索过程结 束后，VBA 宏就

20、将这些 引用的文 献编号依次输出显示，根据这个数字序 列我们就可以看到 哪些文 献记录 的引用顺序有问题。然后，手动调整文档末尾参考文献记录 的顺序并更 新全文档中的 域就可以了。此次论文排版过程中，我就是用这个宏来 帮助自己调整 参考文献的引用顺序的，完全可用、可 靠，根本不需再 像以前那样用肉眼从头到尾地挨个去看、去 核对，非常方便省 心，6 Mathtype的使用6.1Mathtype 6与公式的快速输入这里推荐 大家使用最 新版的 Mathtype 6，因为其中 加入了对 LaTeX 的支持：即，你可以使用 LaTeX 的语法来输入公式 符号。当然这并不是要你去学习全套的LaTeX 技

21、术，你只需要 记住常用的 几个 LaTeX 数学公式 命令即可。而且，这些 命令通常都是 很好记的，只要你 知道相应 的数学符号的英文单词，对应的 LaTeX 命令就与它差不多。例如：(because)(therefore)(forall)(nabla)当然，Mathtype本身也有快捷键来输入一部分公式 符号。例如：Ctrl+h:superscriptCtrl+l:subscriptCtrl+j:both super and sub scriptsCtrl+f:fractionCtrl+i:integration symbolCtrl+k,d:partial differentiationC

22、trl+g,az:greek letters将上述 Mathtype快捷键与 LaTeX 命令相结合，便可以实现基本上 无需鼠标点击 就能很高效地在 Word 中插入数学公式。6.2Mathtype 的中文输入常会 遇见这样的情 况，在公式编辑 器中输入好中文后，再 退出回到 Word 发现中文 根本无法显示。解决方法 如下：在 MathType 中选择“样式”“定义”，出现“定 义风格”对 话框，选择其中的“高 级”单选按钮，出现样式 列表，在“全 角文字”的下 拉列表框 中，将“宋体-方正超大字符集”改为“宋体”。这时 虽然列表框 中还是显示“宋体-方正超大字符集”，但是此时再编辑公式时已

23、经可以显示 所输入的汉字了。例如，不会将“中 国”只显示“中”字。每当 不能显示所有汉字时你都如 法炮制，就可以 解决问 题了。7 结语以上介绍了 Word排版中的一些小技巧，其中主要是通过 VBA 宏来实现的。对于排版中的常见问题如“含有公式的正文段落采用固定行距”、“分 节实现不同的 页眉与页脚”、“目 录样式的 修改”等则不再赘述。在 Word排版方面，侯捷先生 的Word 排版艺术是相当好的 书，大家可以 参考。下面附录中的代 码则为本文正文中提到的VBA 宏，大家需将其 导入到 Word文档中 才能使用。而与 Excel chart处理相关的宏 则需要导入到 Excel 文件中。由于

24、这些Word宏只是给自己排版使用的，所以最好将它们导入到自己的 Normal.dot 主模板 文件中，而不要直接嵌入到你正在撰写的文档中。否则，当别人打 开你的文档看到“该文档存在宏”的提 示时，他就会怀疑你的文档有宏 病毒而直接将其关 掉。*)8r附录 1 Word VBA macrosFunction GetCiteKey(ByVal startChar As String,_ByVal endChar As String,_ByRef keys As Collection,_ByRef keyStart As Collection,_ByRef keyEnd As Collection)

25、As BooleanDim isfound As Booleanisfound=TrueSelection.Find.ClearFormattingWith Selection.Find.Text=startChar.Forward=True.Wrap=wdFindStop.Format=FalseEnd WithDoSelection.Find.ExecuteIf StrComp(Selection.Text,startChar)=0 ThenSelection.MoveStart Unit:=wdCharacter,Count:=1Selection.MoveEndUntil cset:=

26、endChar,Count:=wdForwardIf ExistInCollection(Selection.Text,keys)ThenElsekeys.Add(Selection.Text)End IfSelection.MoveRight Unit:=wdCharacter,Count:=1Elseisfound=FalseEnd IfLoop While isfoundIf keys.Count 0 ThenGetCiteKey=TrueElseGetCiteKey=FalseEnd IfEnd FunctionSub ListCitationNumbers()Dim is_updat

27、e As Stringis_update=InputBox(Update the fields?,Update the fields?,0)If(is_update=1)ThenCall UpdateAllFieldsEnd If list citations numbers without duplicationDim keys As New CollectionDim keyStart As New CollectionDim keyEnd As New CollectionDim isfound As BooleanDim citeDict As Variantisfound=GetCi

28、teKey(,keys,keyStart,keyEnd)If isfound ThenMsgBox(CombineKeys(keys,)ElseMsgBox(No citations!)End IfEnd SubFunction CombineKeys(ByRef keys As Collection,_ByVal delimiter As String)As StringDim str As StringDim i As IntegerFor i=1 To keys.CountIf i=keys.Count Thenstr=str&keys.item(i)Elsestr=str&keys.i

29、tem(i)&delimiterEnd IfNext iCombineKeys=strEnd FunctionFunction ExistInCollection(item As String,_list As Collection)As BooleanDim flag As BooleanDim i As Integerflag=FalseFor i=1 To list.CountIf StrComp(item,list.item(i)=0 Thenflag=TrueExit ForEnd IfNext iExistInCollection=flagEnd FunctionSub ShowF

30、ields()Dim i As IntegerFor i=1 To ActiveDocument.Fields.CountActiveDocument.Fields.item(i).ShowCodes=TrueNext iEnd SubSub HideFields()Dim i As IntegerFor i=1 To ActiveDocument.Fields.CountActiveDocument.Fields.item(i).ShowCodes=FalseNext iEnd SubSub UpdateAllFields()更新全文档的 域Dim i As IntegerFor i=1 T

31、o ActiveDocument.Fields.CountActiveDocument.Fields.item(i).UpdateNext iEnd SubSub UpdateSecFields()更新当 前节的域Dim i As IntegerFor i=1 To Selection.Sections(1).Range.Fields.CountSelection.Sections(1).Range.Fields.item(i).UpdateNext iEnd SubSub label_object()automaticallyinsertnumbersforequation,figurean

32、dtable,or anything elseDim labelType As String three label types are supported:equation,figure,and tablelabelType=InputBox(Label type:,_eqn?fig?tab?)If StrComp(labelType,)0 ThenIf StrComp(labelType,eqn)=0 ThenSelection.TypeText Text:=(End IfSelection.Fields.Add Range:=Selection.Range,_Type:=wdFieldE

33、mpty,_Text:=styleref 1 s*mergeformat,_preserveformatting:=FalseSelection.TypeText Text:=.Selection.Fields.Add Range:=Selection.Range,_Type:=wdFieldEmpty,_Text:=seq +labelType+*arabic s 1*mergeformat,_preserveformatting:=FalseIf StrComp(labelType,eqn)=0 ThenSelection.TypeText Text:=)End IfSelection.F

34、ields.UpdateElseMsgBox(Nothing is done!)End IfEnd SubSub add_bookmark()add bookmark to selected rangeDim bookmark As Stringbookmark=InputBox(Bookmark:,Enter a bookmark name)If StrComp(bookmark,)0 ThenIf ActiveDocument.Bookmarks.Exists(bookmark)ThenMsgBox(Bookmark youve entered already exists!)ElseAc

35、tiveDocument.Bookmarks.Add bookmark,Selection.RangeEnd IfEnd IfEnd SubSub ref_object()insert a reference to an existing bookmarkDim bookmark As Stringbookmark=InputBox(Bookmark:,Enter a bookmark to be referenced)If StrComp(bookmark,)0 ThenIf ActiveDocument.Bookmarks.Exists(bookmark)ThenSelection.Fie

36、lds.Add Range:=Selection.Range,_Type:=wdFieldEmpty,_Text:=ref +bookmark+h,_preserveformatting:=FalseElseMsgBox(The bookmark youve entered does not exist!)End IfEnd IfEnd SubSub SetDotLeader()For Each toc In ActiveDocument.TablesOfContentstoc.TabLeader=wdTabLeaderDotsNext tocEnd SubSub ListAllStyles(

37、)Dim aStyle As StyleFor Each aStyle In ActiveDocument.StylesIf(aStyle.InUse=True)ThenMsgBox aStyle.NameLocalEnd IfNext aStyleEnd SubSub SetRefStyle()设置参 考文献条目的格式With Selection.ParagraphFormat.LeftIndent=MillimetersToPoints(0).RightIndent=MillimetersToPoints(0).SpaceBefore=3.SpaceBeforeAuto=False.Spa

38、ceAfter=0.SpaceAfterAuto=False.LineSpacingRule=wdLineSpaceExactly.LineSpacing=16.Alignment=wdAlignParagraphJustify.WidowControl=False.KeepWithNext=False.KeepTogether=False.PageBreakBefore=False.NoLineNumber=False.Hyphenation=True.FirstLineIndent=0.OutlineLevel=wdOutlineLevelBodyText.CharacterUnitLef

39、tIndent=0.CharacterUnitRightIndent=0.CharacterUnitFirstLineIndent=-2.LineUnitBefore=0.LineUnitAfter=0.AutoAdjustRightIndent=True.DisableLineHeightGrid=False.FarEastLineBreakControl=True.WordWrap=True.HangingPunctuation=True.HalfWidthPunctuationOnTopOfLine=False.AddSpaceBetweenFarEastAndAlpha=True.Ad

40、dSpaceBetweenFarEastAndDigit=True.BaseLineAlignment=wdBaselineAlignAutoEnd WithWith Selection.Font.NameFarEast=宋体.NameAscii=Times New Roman.NameOther=Times New Roman.Name=Times New Roman.Size=10.5.Bold=False.Italic=False.Underline=wdUnderlineNone.UnderlineColor=wdColorAutomatic.StrikeThrough=False.D

41、oubleStrikeThrough=False.Outline=False.Emboss=False.Shadow=False.Hidden=False.SmallCaps=False.AllCaps=False.Color=wdColorAutomatic.Engrave=False.Superscript=False.Subscript=False.Spacing=0.Scaling=100.Position=0.Kerning=1.Animation=wdAnimationNone.DisableCharacterSpaceGrid=False.EmphasisMark=wdEmpha

42、sisMarkNoneEnd WithEnd SubFunction TextWidth()获取版心的 宽度With Selection.Sections(1)TextWidth=.PageSetup.PageWidth-.PageSetup.LeftMargin-.PageSetup.RightMarginEnd WithEnd FunctionFunction TextHeight()获取版心的高 度With Selection.Sections(1)TextHeight=.PageSetup.PageHeight-.PageSetup.TopMargin-.PageSetup.Botto

43、mMarginEnd WithEnd FunctionSub SetFig()Dim ratio As Double 设置图片 的属性：单 张图片的宽度为版心 宽度的 0.8，高 度则自动按比例调整ratio=TextWidth*0.8/Selection.InlineShapes(1).WidthSelection.InlineShapes(1).LockAspectRatio=msoTrueSelection.InlineShapes(1).Width=TextWidth*0.8Selection.InlineShapes(1).Height=Selection.InlineShapes(

44、1).Height*ratioSelection.InlineShapes(1).PictureFormat.Brightness=0.5Selection.InlineShapes(1).PictureFormat.Contrast=0.5End SubSub SetTwoFig()Dim ratio As Double 设置图片 的属性：单 张图片的宽度为版心 宽度的 0.8，高 度则自动按比例调整ratio=TextWidth*0.49/Selection.InlineShapes(1).Width 设置两 个并排 图片的宽度Selection.InlineShapes(1).LockA

45、spectRatio=msoTrueSelection.InlineShapes(1).Width=TextWidth*0.49Selection.InlineShapes(1).Height=Selection.InlineShapes(1).Height*ratioSelection.InlineShapes(1).PictureFormat.Brightness=0.5Selection.InlineShapes(1).PictureFormat.Contrast=0.5End SubSub Set3LineTable()With Selection.Tables(1)设置外框，除去内

46、框.Borders(wdBorderHorizontal).LineStyle=wdLineStyleNone.Borders(wdBorderVertical).LineStyle=wdLineStyleNone.Borders(wdBorderLeft).LineStyle=wdLineStyleNone.Borders(wdBorderRight).LineStyle=wdLineStyleNone.Borders(wdBorderBottom).LineStyle=wdLineStyleSingle.Borders(wdBorderTop).LineStyle=wdLineStyleS

47、ingle 注意：这里 150pt即为 1.5 磅.Borders(wdBorderBottom).LineWidth=wdLineWidth150pt.Borders(wdBorderTop).LineWidth=wdLineWidth150pt 设置第 一行单元线：宽度 1 磅.Rows(2).Borders(wdBorderTop).LineStyle=wdLineStyleSingle.Rows(2).Borders(wdBorderTop).LineWidth=wdLineWidth100ptEnd WithEnd Sub附录 2 Excel VBA macrosSub SetTic

48、kNumberFormat()Dim x_format As StringDim y_format As Stringx_format=InputBox(X format,X format,General)y_format=InputBox(Y format,Y format,General)If(x_format )ThenActiveChart.Axes(xlCategory).TickLabels.NumberFormat=x_formatEnd IfIf(y_format )ThenActiveChart.Axes(xlValue).TickLabels.NumberFormat=y_

49、formatEnd IfEnd SubSub SetGrid()Dim is_major_on As StringDim is_minor_on As Stringis_major_on=InputBox(Major grid On?Off?,Major grid On?Off?,0)is_minor_on=InputBox(Minor grid On?Off?,Minor grid On?Off?,0)If(is_major_on )ThenIf(is_major_on=1)ThenActiveChart.Axes(xlCategory).HasMajorGridlines=TrueActi

50、veChart.Axes(xlValue).HasMajorGridlines=TrueElseActiveChart.Axes(xlCategory).HasMajorGridlines=FalseActiveChart.Axes(xlValue).HasMajorGridlines=FalseEnd IfEnd IfIf(is_minor_on )ThenIf(is_minor_on=1)ThenActiveChart.Axes(xlCategory).HasMinorGridlines=TrueActiveChart.Axes(xlValue).HasMinorGridlines=Tru