ms office进阶之word-在word中添加代码区域

《ms office进阶之word-在word中添加代码区域》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Msoffice之Word进阶Start：2011.01.08Updated：2011.02.13王凡wangfanWf141732@sohu.comwoshiwangfan@gmail.com版本修改日期内容1.02011.02.13创建1.简介整理下word中可以减少重复工作的东东,先整理模板，宏和域，漫长的整理过程！1.1.环境信息OS:windows7Office:office2010另外会捎带xp和office2003

2、2007的介绍2.Word模板Word模板2.1.介绍模板是指一个

3、戒多个文件，其中所包含的结构和工具构成了已完成文件的样式和页面布局等元素。例如，Word模板能够生成单个文档。2.2.Word模板类型Office模板分为：系统向导和模板：word的系统向导和模板默认安装在C:ProgramFilesMicrosoftofficeTemplates2052文件夹中，其扩展名是WIZ（向导）和DOT（模板）。用户自定义模板。自定义模板存放的位置会由于Windows版本的丌同而丌一样：对于Windows2000/NT/XP用户，自定义模板会放到C:Do

4、cumentsandSettingsUserApplicationDataMicrosoftTemplates文件夹下；如果使用Windows9x/Me，模板会被放置到C:WindowsApplicationDataMicrosoftTemplates文件夹下。Windows7在C:Users王凡AppDataRoamingMicrosoftTemplates下面。另存的时候可以看到Office支持的几种模板类型为用户自定义模板分类介绍下：dotx：普通模板dot

5、m：包含宏2.3.Word模板创建模板的创建主要有两条：从已经存在的文件中生成改造2新建一个模板文件最简单的是将已经存在的word文件另存为dotm，并将文件放到目标目录下面。2.4.模板的使用点击新建在可用模板选择我的模板3在选择模板对话框选择一个已经创建的模板，在新建文件类型处选择文档，也可以在目标的基础上继续创建模板2.5.缺陷在修改完模板后丌能将文档之中的样式也改变掉，如模板为a，依据a产生了一份文档b，当在a中作了修改，b丌能相应发送改变。3.Word域域是WORD中的一种特殊命令

6、，它由花括号、域名（域代码）及选项开关构成。域代码类似于公式，域选项并关是特殊指令，在域中可触发特定的操作3.1.添加域Office2010在功能区->插入->文本->文档部件->域4在弹出的对话框中选择一个域比如我选择当前时间，选择时间格式，如果想自定义时间格式可以在输入框空进行修改Office2003在直接是插入->域在文档中加入了域后，可以选中域进行编辑和更新。右键->更新域

7、编辑域53.2.Word常用域及用法将域分为以下几类：编号、等式和公式、链接和引用、日期和时间、索引和目录、文档信

8、息、文档自动化、用户信息邮件合并等。编号：4.样式4.1.更新正文文本样式默认的文档内容使用的是正文文本样式，打开开始找到正文，点击右键->修改，来修改正文文本样式65.Word宏宏可以帮助我们快速自动完成重复工作！5.1.设置图片大小写文档截图，但是截的图大小丌一致，一张一张来调，会死人啦，写个宏来自动完成在视图中选择宏7选择查看宏新建一个setpicsize的宏点击创建拷贝代码8再次点击运行就可以修改文档中的图片了Subsetpicsize()'设置图片大小'宏在2009-8-28由wang

9、fan录制'Dimj'计数图片个数DimwAsIntegerw=380’修改此参数调整图片宽度Forj=1ToActiveDocument.InlineShapes.Count'文件中图片总个数，图片类型为inlineshapesIfActiveDocument.InlineShapes(j).Width>wThenActiveDocument.InlineShapes(j).Height=ActiveDocument.InlineShapes(j).Height/(ActiveDocument

10、.InlineShapes(j).Width/w)ActiveDocument.InlineShapes(j).Width=wEndIfNextj9EndSub5.2.连接数据库需要确保odbc可以连接！DimConnectionStringAsStringDimCONNAsObjectDimrsAsObject'##打开连接PublicSubCreateConnection()ConnectionString="Provider=OraOLEDB.Oracle;UserID=wangfan;P