word中常用操作

1、图片大小一致word2007 选定一张图片后,然后点击“格式相似的文本”,就可以把本文档里的全部图片选定,然后再在图片工具栏里把长宽修改成相同的尺寸。2003等:一,在word中按alt+f11组合键,进入VBA模式二,在左边的工程资源管理器中找到你的word文档,在其上右键/添加/模块三,把下面代码复制,粘贴进去.四,更改数值, 改一下宽度和高度数值(10,点运行(类似播放按钮.或f5,即可设置文档中全部图片Sub Macro(Mywidth=1010为图片宽度(厘米Myheigth=1010为图片高度(厘米For Each iShape In ActiveDocument.InlineSh

2、apesiShape.Height = 28.345 * MyheigthiShape.Width = 28.345 * MywidthNext iShapeEnd Sub批量处理图片大小2、宏名起好了,单击“创建”进入Visual Basic 编辑器,输入如下代码并保存Sub setpicsize( 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误ActiveDocument.InlineShapes(n.Width = 300 设置图片宽度300pxNext nActiveDocument.Shapes(n.Height = 400 设置图片高度为400p

3、xActiveDocument.Shapes(n.Width = 300 设置图片宽度300pxNext nEnd Subword批量修改图片大小按比例缩放篇这部分要说的是把word中的所有图片按比例缩放!具体操作同上,只是代码部分稍做修改,代码如下:Sub setpicsize( 设置图片大小Dim n 图片个数Dim picwidthDim picheightOn Error Resume Next 忽略错误picheight = ActiveDocument.InlineShapes(n.Heightpicwidth = ActiveDocument.InlineShapes(n.Wid

4、thNext npicheight = ActiveDocument.Shapes(n.Heightpicwidth = ActiveDocument.Shapes(n.WidthNext nEnd SubSub setpicsize(设置图片大小 宏在2008-3-31 由hero_thm 录制Dim j 计数图片个数ActiveDocument.InlineShapes(j.Width = 400 设置宽度End IfNext jEnd Subword如何一次性选中所有图片并且编辑版式Q:图文混排的长文档,如何将所有图片一次性设置为居中?A: Word文档中插入一些图片,如果一个一个手工设

5、置居中,效率实在太低,利用查找替换可以批量完成。第一步,打开“查找和替换”对话框,“查找内容”框中,输入“g”,然后将光标定位到“替换为”文本框中,单击“高级”按钮,从格式的下拉菜单中选择“图文框”,打开“查找图文框”对话框。第二步,在“查找图文框”中按以下图片所示的设置:第三步,设置完成,单击“确定”关闭“查找图文框”,返回“查找和替换”对话框,单击“全部替换”。这样就可以将Word中的图片一次性批量设置为居中显示。图片居中Sub setpicsize(Dim j 计数图片个数ActiveDocument.InlineShapes(j.Select 选中图片With Selection.Pa

6、ragraphFormat 所选段落的格式.Alignment = wdAlignParagraphCenter 图片居中.LeftIndent = 0 左缩进磅数.RightIndent = 0 右缩进磅数.FirstLineIndent = 0 首行缩进磅数.CharacterUnitLeftIndent = 0 左缩进字符数.CharacterUnitRightIndent = 0 右缩进字符数.CharacterUnitFirstLineIndent = 0 首行缩进字符数End WithNext jEnd Sub批量修改表格格式Sub ChangeTable(With Selection表格外边框.Borders.OutsideLineStyle = wdLineStyleSingle表格内边框.Borders.InsideLineStyle = wdLineStyleSingle表格居中.Rows.Alignment = wdAlignRowCenter表格内容居中Next iEnd Sub常用的格式(1更改图片大小Sub setpicsize( 设置图片大小Dim n 图片个数On Error Resume Next 忽略错误Next nActiveDocument.Shapes(n.Height =