自动调整word文档中的图片大小及版式
Word操作1
3.2文本基本操作1任务描述Word的最基本功能就是进行文字处理。
因此，如何建立一个文档，并对输入的文字进行编辑和格式化是Word操作的入门技能。
本任务从建立一个有关“故乡的雪”的文档，逐步让学习者了解Word的各项基本操作。
学习完本任务，学习者可以掌握Word的基本编辑功能。
你需要做完成的操作如下：步骤1：移动文字步骤2：设置标题文字格式步骤3：设置正文文字格式步骤4：设置标题的字符间距效果步骤5：设置文字格式和文字效果步骤6：设置段落格式步骤7：设置分栏步骤8：加注拼音学习指引文档的编辑和格式化是WORD文档操作中的基本编辑操作。
主要包括：字符和段落、页面等格式设置内容。
本任务是WORD文档编辑操作的基础，因此，建议从文档的编辑和格式化开始制作。
之前已经接触过Word的同学可以直接进入导师系统练习，看自己所掌握的知识是否牢固。
建议同学们先阅读教材上的文字描述后，再浏览网络学习平台知识点精讲中的知识点录屏讲解加深对知识点操作的认识。
完成了教材中任务制作后，别忘了赶紧到导师系统练习检验一下你对知识点的操作是否熟悉。
建议学习时间30分钟。
考试点● 文本内容的增加、删除、复制、移动、查找或替换。
● 字符格式的设置：中文/西文字体、字形、字号、字体颜色、下划线、下划线颜色、着重号、删除线、上、下标、字符间距、文字效果● 段落格式的设置：左右缩进、段前/ 段后间距、行距（注意度量单位：字符、厘米、行和磅）、特殊格式、对齐方式；段落分栏● 边框与底纹，背景的填充和水印制作文档输入启动Word文字编辑软件，就可以在Word自动新建的空文档文本编辑区中输入文本了。
文本是文字、符号、特殊字符和图形等内容的总称。
在文本输入过程中，难免会有输入错误的情形，通常可以使用【Backspace】键删除插入点左边的字符，或使用【Delete】键删除插入点右边的字符。
当输入的文本到达一行的最右端时，输入的文本会自动地跳转到下一行，不用用户手动换行。
WORD如何固定缩放比例【百科全说】
WORD如何固定缩放比例【百科全说】WORD如何固定缩放比例腾讯视频/爱奇艺/优酷/外卖充值4折起word文档会默认记住之前的页面显示比例，但是在我们操作的过程中，难免会发生些改变。
如何设置使所有同类文档在打开时不管上次显示百分比是多大而在每次打开时都固定到某个比例，使得编辑中显示比例不会发现变化呢，下面就跟小编来看一看吧。
要固定缩放比例首先要设置其显示比例。
方法有如下几种：方法一：按住crtl，然后滑动鼠标滚轮，就能调整页面显示比例。
方法二：打开文档后在屏幕右下角可以看到如图所示操作按钮，可以点击“缩小”“放大”按钮或者拖动滚动条修改显示比例。
方法三：在菜单栏中点击“视图”选项。
在其中选择页面显示比例。
通过如上三种操作显示缩放比例进行调整过后对文档进行保存。
将其另存为模板。
文件－另存为....－Normal.dot（模板），替换掉原有的那个Normal.dot。
下次打开word文档前首先打开该模板，然后再打开文档即可显示固定的缩放比例。
腾讯视频/爱奇艺/优酷/外卖充值4折起时间：2017-05-08 10:40 / 作者：百科全说如何在word中固定图片位置12/01 06:14我们在Word中给文档添加图片可以达到图文并茂，从而产生更好的效果。
默认情况下，插入的图片总是随随文字移动而移动。
插入一幅图片,如何可以固定图片位置呢？ word第一种图片位置固定方法：右击图片，选“设置图片格式”，在“设置图片格式”对话框中，选中“版式”选项卡，环绕方式选“浮于文字上方”， 再点“高级”按钮，在“高级版式”对话框中的“图片位置”页把“对象随文字移动” 和“锁定标记”前面的勾去掉即可。
word第二种图片位置固定方法：可以使用“文本框”方式。
先单击选中已经插入的图word如何固定背景图片05/22 16:20由于工作内容的需要,要在文档中插入背景图片,不但美观,还会引人注目.可是当背景图片插入后,会给文字编辑带来很多麻烦,导致多文档的图片,会重叠在一起,有的还会没有图片,这都是没有将插入的背景图片固定在页面上的后果,那怎样将背景图片固定在页面中呢? 打开Word文档,新建一个文档,点击"插入"-"图片"(来自文件). 在文件中找到要出人到文档中的背景图片,背景图片的选择可以到网上搜索,尽量搜索适合Word文档大小的背景图片,以便于后期的操作.插入背景后的文档会有页边距,Opera浏览器怎么固定网页的缩放比例?01/28 11:32看网上还有很多人不知道Opera浏览器怎么固定缩放比例,网上的回答也大多没用,自己一个个回复也不见得看得到,干脆发一个经验吧 1.菜单>>设置,这个大家一般都能找到 2.但是设置界面并没有我们要设的页面缩放选项 3.其实这个很简单,直接在上面的搜索里搜索“大小“,回车你就会发现自己想要的设置了,这个设好是所有页面永久生效的word表格不能编辑的原因,怎么解决?07/05 17:41Word表格不能输入文字的情况,想必大家都有遇到过吧,默认情况下是可以输入文字的.如果不能输入,那么到底是什么情况导致的呢?其一:首行缩进:其二:文档不能编辑:其三:字体被设置成与背景同色:其四:字体太大,或换行符被移到末尾看不见的位置,表格又不处于自动适应状态.在这些情况中"首行缩进"导致Word表格不能输入文字比较常见,因此下文先从它着手. 一.首行缩进导致表格不能输入文字 1.点击一下不能输入文字的单元格,Word2013.2010 选择"开始"选项卡,单击&pdf文件怎么使用福昕pdf按比例缩放?08/11 04:26不知道你有没有这样的烦恼,使用福昕pdf的时候要经常切换书签,每次切换书签视图都变回适合页面,这样缩放比例太小了,字体看不清.所以这里提供一个解决固定缩放比例的方法. 1.打开偏好设置 2.点开页面显示,然后最后一行打勾,也就是禁止改变当前缩放比例那里 3.这样的话,你选择一种缩放比例(例如:适合宽度),之后就不会自动改变了怎样固定word表格大小不能修改.限制输入个数02/26 20:43word表格，一般来说，当我们往单元格输入内容的时候，列会根据输入内容的多少，自动调整列的宽度，以吻合输入的字符数，同时，行的高度也会自动换行，满足我们的输入! 现在，我们要做的是，如何固定word表格的大小不能被修改，同时起到在单元格内限制输入文字个数的效果。
如何在Word中使用自动排版功能
如何在Word中使用自动排版功能在当今数字化时代，文档处理软件已经成为我们日常办公和学习的重要工具之一。
而在诸多文档处理软件中，Word因其强大的排版功能和广泛的使用场景而备受青睐。
本文旨在介绍如何在Word中使用自动排版功能，以提升文档的整洁美观和提高工作效率。
一、设置页面格式在使用Word进行自动排版之前，首先需要设置页面格式，以确保文档符合要求的版式。
打开Word文档后，点击“页面布局”选项卡，即可进入页面设置界面。
在此界面上，我们可以设置页面的大小、方向和页边距等参数。
通过调整页面大小和方向，我们可以选择适合打印或展示的版式。
常见的页面大小包括A4、A3等，而页面的方向可选为纵向或横向。
在不同的场景下，我们可以根据需要进行选择。
同时，设置合适的页边距也是保证文档排版美观的重要因素之一。
通过点击页面设置界面上的“页边距”选项，可以设置页面的上、下、左、右边距。
根据需要，我们可以选择默认的边距设置，也可以手动调整使其符合要求。
二、使用样式和主题Word中的样式和主题功能可以帮助我们快速应用一致的字体、标题和段落格式，使文档整体呈现出统一的风格和美感。
在Word中，样式是一套已定义好的格式集合，包括字体、字号、颜色等。
通过点击“开始”选项卡上的“样式”功能区，我们可以选择合适的样式应用到文档中的各个元素上，如标题、正文、列表等。
使用样式不仅可以提高排版效率，还能保持文档的一致性和专业性。
而主题则是一套预定义的颜色、字体和效果组合，可以帮助我们快速改变整个文档的外观。
点击“页面布局”选项卡上的“主题”功能区，我们可以选择喜欢的主题，应用到整个文档或特定部分。
三、插入自动编号和目录对于包含大量章节或标题的文档，自动编号和目录功能能够快速生成编号和目录，方便读者浏览和查阅相应内容。
在Word中，我们可以通过点击“开始”选项卡上的“多级列表”功能区，选择合适的编号样式，并将其应用到标题或章节中。
Word会自动根据样式为标题或章节添加编号，无需手动编写。
word使用技巧
添加页面边框在“页面设置”对话框中， 可以选择一种边框类型来修饰整个页面。 步骤如下: 1.打开“页面设置”对话框，切换到 “版式”选项卡。 2.单击“边框”按钮，打开“边框和底 纹”对话框(也可以执行“格式”、 “边框与底纹”打开次对话框)，在 “页面边框”选项卡中进行设置。 3.在“设置”栏中选择边框的样式。 “无”用于去除边框，“自定义”用于 在页面各边添加不同的边框。 4.在“线型”框中选择边框要选用的线 型。
调整图片大小 一、鼠标拖动调整图片大小 1．单击文档中要调整大小的图片，其周围将出现8个控制 点。把鼠标指针放置在不同位置的控点上，其形状有所不同。 2．将指针移至图片的控制点上，按住左键拖动，会出现 一个虚线框，表明图片缩放后的大小，如果达到了要求，即可 释放左键。 二、利用对话框调整图片大小 1．单击选择图片。 2．单击“图片”工具栏的“设置图片格式”按钮，或执 行“格式”→“图片”，或在图片上单击右键，选择“设置图 片格式”，打开“设置图片格式”对话框，切换到“大小”选 项卡。 3．在“尺寸和旋转”的“高度”和“宽度”框中分别键 入图片要更改成的高度和宽度值。如果要使图片保持原长宽比 例，可以选中“锁定纵横比”。调整大小时，只需要在“高度” 或“宽度”框中调节一个数值，另一项目的值会随之相应改变。 此外，选中“相对原始图片大小”项，可以显示当前图片相较 于原始图片的缩放比例。 4．单击“确定”按钮。
编辑组织结构图 1.改变版式 选中要改变版式的某一层次的上级框图，单击 “组织结构图”工具栏上的“版式”下拉按钮，在 下拉列表中，选中其中一种，版式即刻被调整。 2.改变样式 如果对“组织结构图”的外观不在满意，可选 中组织结构图，单击“组织结构图”工具栏上的 “自动套用格式”按钮，打开“组织结构图样式库” 对话框，选定一种样式，最后单击“应用”按钮。 3.删除组织结构图 单击要删除的组织结构图，单击该图形的边界， 再按Delete键。 4.调整大小 选中组织结构图，拖动边角上的尺寸控点至所 需的大小，其中的各框图大小也将随之自动调整。
如何利用Word进行排版设计制作小册子和手册等？
如何利用Word进行排版设计制作小册子和手册等？作为一款常见的文字处理软件，Word在日常工作和学习中广泛应用。
除了基础的文本编辑和格式设置，Word还能够用于排版设计制作小册子和手册。
本文将从文本排版、插入图片、设计样式、目录制作等方面介绍如何使用Word进行排版设计制作，提高文件的美观度和实用性。
一、文本排版排版设计的基础是对文本的排版调整，使得整个文件更加美观易读。
以下是一些常见的技巧：1.字体和字号的设置在编辑文字时，选择合适的字体和字号可以让文本更加有视觉冲击力。
一般来说，标题和重要的内容可以使用大一些的字号，而正文部分则可以选择小一些的字号。
同时，注意保持整个文件中字体和字号的统一性，避免使用多种不同的字体和字号，这会给读者带来不必要的视觉干扰。
2.行间距和段间距的调整除了字体和字号的设置，还有两个参数需要调整，分别是行间距和段间距。
行间距是指每行文字之间的间距，如果行间距设置过小，会影响阅读体验；段间距是指每段文字之间的距离，如果段间距设置不当，会让整个文件显得空荡荡的，不美观。
因此，我们应该根据实际情况，合理调整这两个参数。
3.对齐方式和缩进的设置文本对齐方式有左对齐、右对齐、居中和两端对齐四种。
我们可以根据需要选择不同的对齐方式。
对于段落的第一行，也可以通过设置缩进来使得段落更加清晰明了。
二、插入图片在小册子和手册中，插入图片可以起到画龙点睛的作用。
以下是一些常见的图片插入技巧：1.调整图片大小和位置图片大小和位置需要根据文件排版的需要进行调整。
可以通过在Word中直接选中图片进行拖拽，调整大小和位置；也可以通过设置图片的属性参数进行调整。
2.图片版式的切换在插入图片的时候，Word提供了不同的版式选择，如环绕文本、四周环绕等。
我们可以根据需要选择不同的版式进行排版设计。
3.相对应位置插入图片在制作手册等文档时，插入图片时，要尽可能让文本与图片相呼应，让整个文件看起来更协调美观。
(完整word版)用宏批量调整word中图片版式、大小、方向
Sub 图片对齐() (1)Sub 图片大小() (1)Sub 浮于文字上方() ................................................................................................... 错误!未定义书签。
Sub 浮于文字上方() . (4)Sub 连续() (4)Sub 版式转换() (4)Sub 图片方向() (5)Sub 图片对齐()Application.ScreenUpdating = False '关闭屏幕更新Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition = _wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition = _wdRelativeVerticalPositionMarginSelection.ShapeRange.Left = wdShapeRightSelection.ShapeRange.Top = wdShapeBottomSelection.ShapeRange.LockAnchor = FalseyoutInCell = TrueSelection.ShapeRange.WrapFormat.AllowOverlap = FalseSelection.ShapeRange.WrapFormat.Side = wdWrapBothNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 图片大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) * 28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) * 28.35'------------------------------------------------------------------'调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapesIf mywidth = "0" Thenpic.Height = myheightpic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each tu In ActiveDocument.ShapesIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, tu As Shape, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume Next'调整嵌入图形为浮于文字上方，并旋转90度For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方，并旋转90度For Each tu In ActiveDocument.ShapesActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type = 3' (去除.Zorder行.WrapFormat.Type = shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4 '4浮于文字上方5衬于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume NextFor Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeActiveDocument.InlineShapes(i).Select '选中图片With oShape.ZOrder 4 '选中图片版式调为浮于文字上方.Rotation = -90# '选中图片向左旋转90度End WithNextApplication.ScreenUpdating = True '关闭屏幕更新End SubSub 连续()Call 浮于文字上方Call 图片大小Call 图片对齐End SubSub 版式转换()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _"3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapesSet oShape = oShape.ConvertToShapeWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocument.ShapesoShape.ConvertToInlineShapeNextEnd IfEnd SubSub 图片方向()Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).IncrementRotation -90#Next nEnd Sub。
批量设置word 里图片的大小及版式的技巧
批量设置word 里图片的大小及版式的技巧1.批量设置固定大小工具-宏-新建Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80pxNext nEnd Sub运行即可2.批量按比率缩小或放大新建宏Sub setpicsize() '设置图片大小Dim n '图片个数Dim picwidthDim picheightOn Error Resume Next '忽略错误For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片picheight = ActiveDocument.Shapes(n).Heightpicwidth = ActiveDocument.Shapes(n).WidthActiveDocument.Shapes(n).Height = picheight * 0.5 '设置高度为0.5倍ActiveDocument.Shapes(n).Width = picwidth * 0.5 '设置宽度为0.5倍Next nEnd Sub3批量将图片转成嵌入型新建宏Sub 图片转嵌入型()Dim apic As ShapeApplication.ScreenUpdating = FalseFor Each apic In ActiveDocument.Shapesapic.ConvertToInlineShape '转换为嵌入型NextApplication.ScreenUpdating = TrueSelection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat.LeftIndent = MillimetersToPoints(0).RightIndent = MillimetersToPoints(0).SpaceBefore = 6.SpaceBeforeAuto = False.SpaceAfter = 6.SpaceAfterAuto = False.LineSpacingRule = wdLineSpaceSingle.Alignment = wdAlignParagraphCenter.WidowControl = False.KeepWithNext = False.KeepTogether = False.PageBreakBefore = False.NoLineNumber = False.Hyphenation = True.FirstLineIndent = MillimetersToPoints(0).OutlineLevel = wdOutlineLevelBodyText.CharacterUnitLeftIndent = 0.CharacterUnitRightIndent = 0.CharacterUnitFirstLineIndent = 0.LineUnitBefore = 0.LineUnitAfter = 0.AutoAdjustRightIndent = True.DisableLineHeightGrid = False.FarEastLineBreakControl = True.WordWrap = True.HangingPunctuation = True.HalfWidthPunctuationOnTopOfLine = False.AddSpaceBetweenFarEastAndAlpha = True.AddSpaceBetweenFarEastAndDigit = True.BaseLineAlignment = wdBaselineAlignAuto End WithEnd Sub4.批量将图片转四周型新建宏Sub 图片版式转换四周型()Dim apic As Variant, shapeType As WdWrapTypeOn Error Resume NextFor Each apic In ActiveDocument.InlineShapesapic.ConvertToShapeWith oShapeoShape.WrapFormat.Type = 0 '四周型oShape.WrapFormat.AllowOverlap = False '不允许重叠End WithNextEnd Sub。
【Word基本操作】
【Word基本操作】一、Word2022年的启动及窗口1、启动：“开始”→“程序”→“Microsoft Word ”2、退出：单击标题栏上的“×”关闭按钮，或“文件”→“退出”3、窗口：标题栏、菜单栏、工具栏（隐藏和显示工具栏：“视图”→“工具栏”）、格式栏、状态栏、标尺栏（隐藏和显示标尺：“视图”→“标尺”）、文本编辑区。
二、建立Word文档1、创建新文档（1）启动Word时程序自动新建一个空白文档且暂时命名为“文档1”；（2）用“新建”按钮建立新文档。
2、输入文档内容（1）输入字符（2）插入符号和特殊字符：用鼠标将插入点定位到要插入符号的位置→“插入”→“符号”或“特殊字符”→“选中符号”→单击“插入”按钮。
3、保存新文档:“文件”→“保存”或“另存为”→⑴ 输入文件名⑵ 确定文档保存类型⑶ 确定文档保存位置→单击“保存”按钮。
4、打开文档：（1）“文件”→“打开”→⑴ 文件位置⑵ 文件类型⑶ 文件名→单击“打开”（2）在Windows资源管理器中找到相应的文件双击之。
三、文档的修改编辑1、文本的选定：在对文本操作之前必须先选定要操作的文本（1）文本选定的方式：A、以“行”方式选定；B、以“列”方式选定文本：选定之前按住[Alt]键（2）文本选定的方法：A、双击：选定一句；B、三击：选定一段；C、页面外单击：选定所对应的一行；D、全选：“编辑”→“全选”；E、用键盘选定文本：Shift + ← → ↑ ↓2、删除文本：（1）[DeLete]键删除插入点后一个字符；（2）[Backspace]键删除插入点前一个字符；（3）选定要删除的文本按[Delete]或[Backspace]键3、恢复操作：“撤消”操作按钮4、文本的移动与复制（1）用鼠标：选定文本→用鼠标拖到目标位置；在拖动的同时按住[Ctrl]键就是复制。
（2）用菜单命令：复制：选定文本→单击右键→“复制”→插入点放到目标位置→单击右键→“粘贴”移动：选定文本→单击右键→“剪切”→插入点放到目标位置→单击右键→“粘贴”6、替换文本：“编辑”→“替换”7、自动更正：“工具”→“自动更正”练习：以下试题均在E盘BG0304文件夹中1、打开word文件“Wordf1.Doc”，练习文本的选定和编辑。
用宏批量调整word中图片版式、大小、方向
Sub 图片对齐()....................................................................................................................................... ...1Sub 图片大小()....................................................................................................................................... ...1Sub 浮于文字上方()................................................................................................错误！未定义书签。
Sub 浮于文字上方()..................................................................................................................................4S ub 连续()....................................................................................................................................... ...........4Sub 版式转换()....................................................................................................................................... ...4Sub 图片方向()....................................................................................................................................... ...5Sub 图片对齐()Application.ScreenUpdating = False '关闭屏幕更新Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.CountActiveDocument.Shapes(n).SelectSelection.ShapeRange.RelativeHorizontalPosition = _wdRelativeHorizontalPositionMarginSelection.ShapeRange.RelativeVerticalPosition = _wdRelativeVerticalPositionMarginSelection.ShapeRange.Left = wdShapeRightSelection.ShapeRange.Top = wdShapeBottomSelection.ShapeRange.LockAnchor = FalseyoutInCell = TrueSelection.ShapeRange.WrapFormat.AllowOverlap = FalseSelection.ShapeRange.WrapFormat.Side = wdWrapBothNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 图片大小()On Error Resume NextDim mywidthDim myheightApplication.ScreenUpdating = False '关闭屏幕更新mywidth =Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,宽度根据输入的高度数值自动调整；", Title:="请输入图片宽度", Default:="0")) *28.35myheight = Val(InputBox(Prompt:="单位为厘米(cm);如果输入为0，则图片保持原始纵横比,高度根据输入的宽度数值自动调整；", Title:="请输入图片高度", Default:="0")) *28.35'------------------------------------------------------------------ '调整嵌入式图形Dim pic As InlineShapeFor Each pic In ActiveDocument.InlineShapesIf mywidth = "0" Thenpic.Height = myheightpic.ScaleWidth = pic.ScaleHeightElseIf myheight = "0" Thenpic.Width = mywidthpic.ScaleHeight = pic.ScaleWidthElsepic.Width = mywidthpic.Height = myheightEnd IfNext'调整浮动式图形Dim tu As ShapeFor Each tu In ActiveDocument.ShapesIf mywidth = "0" Thentu.Height = myheightElseIf myheight = "0" Thentu.Width = mywidthElsetu.LockAspectRatio = msoFalsetu.Width = mywidthtu.Height = myheightEnd IfNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, tu As Shape, i Application.ScreenUpdating = False '关闭屏幕更新On Error Resume Next'调整嵌入图形为浮于文字上方，并旋转90度For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape ActiveDocument.InlineShapes(i).SelectWith oShape.WrapFormat.Type=3'(去除.Zorder行.WrapFormat.Type=shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4'4浮于文字上方5衬于下方.Rotation = -90#End WithNext'调整其它图形为浮于文字上方，并旋转90度For Each tu In ActiveDocument.ShapesActiveDocument.Shapes(i).SelectWith tu.WrapFormat.Type=3'(去除.Zorder行.WrapFormat.Type=shapeType四周形.WrapFormat.Type = wdWrapTight紧密形改为.ConvertToInlineShape嵌入形).ZOrder 4'4浮于文字上方5衬于下方.Rotation = -90#End WithNextApplication.ScreenUpdating = True '恢复屏幕更新End SubSub 浮于文字上方()Dim oShape As Variant, iApplication.ScreenUpdating = False '关闭屏幕更新On Error Resume NextFor Each oShape In ActiveDocument.InlineShapesActiveDocument.InlineShapes(i).Select '选中图片With oShape.ZOrder 4'选中图片版式调为浮于文字上方.Rotation = -90#'选中图片向左旋转90度End WithNextApplication.ScreenUpdating = True '关闭屏幕更新End SubSub 连续()Call 浮于文字上方Call 图片大小Call 图片对齐End SubSub 版式转换()Dim oShape As Variant, shapeType As WdWrapTypeOn Error Resume NextIf MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 ThenshapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _"3=衬于文字下方,4=浮于文字上方", Default:=0))For Each oShape In ActiveDocument.InlineShapesWith oShapeSelect Case shapeTypeCase 0, 1.WrapFormat.Type = shapeTypeCase 3.WrapFormat.Type = 3.ZOrder 5Case 4.WrapFormat.Type = 3.ZOrder 4Case ElseExit SubEnd Select.WrapFormat.AllowOverlap = FalseEnd WithNextElseFor Each oShape In ActiveDocument.Shapes oShape.ConvertToInlineShapeNextEnd IfEnd SubSub 图片方向()Dim nOn Error Resume NextFor n = 1 To ActiveDocument.Shapes.Count ActiveDocument.Shapes(n).IncrementRotation -90# Next nEnd Sub。
Word文档自动排版和格式设置方法
Word文档自动排版和格式设置方法第一章：自动排版和样式设置在Word文档中进行自动排版和格式设置可以提高文档的外观和可读性。
下面是一些实用的自动排版和样式设置方法。
1.1 标题样式设置在Word中，可以使用标题样式设置文档中的标题。
标题样式设置可以统一标题的字体、大小、颜色和格式，使文档的标题看起来更加规范和统一。
只需选中标题，并选择相应的标题样式，即可实现自动排版。
1.2 段落样式定义除了标题样式外，Word还提供了多种段落样式供选择。
段落样式定义了段落的字体、间距、对齐方式等格式。
使用段落样式可以使文档的段落看起来整齐有序。
可以通过"样式"选项卡中的"更多"按钮来自定义段落样式，或者直接使用已有的段落样式。
1.3 自动编号和项目符号在Word中，可以使用自动编号和项目符号功能来自动排版文档中的列表。
只需将光标放在列表行前，然后点击"开始"选项卡中的"自动编号"或"项目符号"按钮，就可以自动排版列表。
还可以通过点击"多级列表"按钮来自定义多级列表的格式。
第二章：页面设置和边距调整对于Word文档的页面设置和边距调整，可以使文档更加美观和易于阅读。
以下是一些实用的页面设置和边距调整方法。
2.1 页面大小和方向可以通过"布局"选项卡中的"页面设置"按钮来设置文档的页面大小和方向。
可以选择常见的A4、A3或自定义页面大小，也可以选择横向或纵向页面方向。
2.2 页边距设置通过设置页边距可以控制文档的边缘空白区域大小。
可以通过"布局"选项卡中的"页面边距"按钮来设置页边距。
可以选择默认的边距设置，或者根据需要自行调整上下左右的边距。
2.3 首行缩进和段前段后间距可以通过设置首行缩进和段前段后间距来调整文档段落的格式。
Word使用技巧大全
Word使用技巧大全Word使用技巧默认图片环绕方式在Word中插入或粘贴的图片环绕方式默认为“嵌入型”，在这种环绕方式下图片既不能旋转也不能拖动移位，插入图片经常还需要将版式调整为“四周型”再进行处理。
其实我们可以把默认设置改成“四周型”，具体的操作方法：依次选择“工具→选项”菜单命令，在出现的对话框中选择“编辑”选项卡，单击“图片插入/粘贴方式”下拉列表，从中选择“四周型”项，最后单击“确定”按钮对象的精确调整相信不少人都知道，在Word中按住Alt键拖动可以对选中对象进行精确调整。
其实只要进行一些简单设置，即使不按住Alt键直接拖动也可以进行精确调整。
依次选择“绘图”工具栏的“绘图→绘图网格”命令（默认位于Word窗口下方），在弹出的“绘图网格”界面中取消勾选“对象与网格对齐”复选框或将“水平间距”和“垂直间距”都设置为“0.01”，再单击“默认”按钮，在提示“是否更改网格线的默认设置？”时单击“是”按钮。
这样以后在Word中直接拖动就可以精确调整了。
如果你只需要在当前文档中进行直接拖动微调，而不想彻底改变默认设置，那么修改后不要单击“默认”按钮。
告别绘图画布在Word 2003中绘图画布会在每次插入自选图形或文字框时自动出现。
虽然按Esc键可以暂时让绘图画布消失，但总觉得太麻烦，其实我们可以通过以下方法来取消：依次选择“工具→选项”菜单命令，在出现的对话框中选择“常规”选项卡，取消勾选“插入‘自选图形’时自动创建绘图画布”复选框，最后单击“确定”按钮即可。
自选图形的默认格式默认插入的自选图形格式为0.75磅黑色连线、白色填充，如需更改默认格式，可通过以下方法设置：首先画一个自选图形，然后鼠标右击，在弹出的快捷菜单中选择“设置自选图形格式”命令，在出现的对话框中选择“颜色与线条”选项卡，在其中自定义设置“线条”和“填充色”，设置完毕后单击“确定”按钮。
最后，再次右击自选图形，选择“设置自选图形的默认效果”命令即可。
文档的格式设置与版面设置
实验1 文档的格式设置与版面设置【实验目的】1. 掌握Windows XP环境下启动和退出Word 2003的常用方法。
2. 熟悉Word窗口组成以及如何在屏幕上显示或隐藏某些元素。
3. 利用Word建立、打开、保存文档，并进行打开文件之间的切换。
4. 掌握文本内容的输入、插入、删除、修改、恢复、查找、替换、复制及移动。
5. 熟练掌握字体、字符间距、文字效果的设置方法。
6. 熟练掌握段落的缩进、对齐、段间距、边框底纹等的设置方法。
7. 掌握首字下沉、项目符号和编号的使用，分栏格式的设置。
8. 掌握各种视图的特点及用途。
【实验内容】设置文档的格式和版面，最终要实现的效果如图3-1所示。
（1）启动Microsoft Word 2003。
（2）在Word的空文档中输入以下文本，并保存为W1.doc。
（3）在文档末尾插入文档“Word格式化操作.doc”。
（提示：使用“插入”菜单中的“文件”命令）（4）设置页边距、纸张大小：页边距上2.8厘米，下3厘米，左2.2厘米，右2厘米；纸张大小为A4。
（提示：使用“文件”菜单中的“页面设置”命令）（5）设置字体与字号：第1段标题行设置为宋体、三号字、加粗，字符缩放设置为120%，并添加蓝色双下划线；第2段设置为楷体、五号字；第3段小节标题设置为宋体、四号字；五个小标题设置为黑体、小四号字；其他段落字体为宋体、五号字。
（6）设置对齐方式、段落缩进：第1段居中对齐、无首行缩进；其余各段首行缩进2字符，左右各缩进0.5厘米，两端对齐。
（7）设置行（段）间距：第2段为段前、段后各6磅；其余各段段前、段后各3磅。
（8）设置分栏格式：将第2段文字设置为2栏，加分隔线。
（9）设置首字下沉：为第6段设置首字下沉，下沉行数为2。
（10）查找与替换：将文中所有的“Word”替换成加粗、倾斜、有着重号的“Word”。
（11）添加边框和底纹：将小节标题“§3.2.1 Word 2003的主要功能”添加黄色字符底纹，将其下面一段落添加红色、1.5磅实线方框。
Word文档图文混排
绘制文本框 并输入文本
将普通图形转换为文 本框：右击图形，在弹出 的快捷菜单中选择“添加 文字”项，可将图形转换 为文本框。 插入系统内置的的文本框：单击 “插入”选项卡上“文本”组中的 “文本框”按钮，在展开的列表中 选择“内置”设置区的某种文本框 样式，如“简单文本框”，即可在 文档中插入所选文本框，此时只需 修改文本框中的文字就可以了。
在文档中插入文本框并输入文字，然后设 置格式，再在文档中插入艺术字并进行编辑。
操作步 骤见视 频5 -3
第五章小结
本章主要介绍了在文档中插入图片，绘制图形和文本框，以及 创建艺术字的方法。学完本章内容后，读者应重点掌握或了解以下 知识。 利用“插入”选项卡插入图片、剪贴画和 SmartArt 图形； 利用“形状”按钮可以绘制自选图形或文本框。 利用 “艺术字”按钮可以在文档中插入艺术字。 在绘制图形时，按住【Shift】键并拖动鼠标可绘制规则图形 可直接在文本框或一些标注类图形中输入文字。 在文档中选中图片、图形、文本框或艺术字等对象，然后可利 用自动出现的“XXX工具 格式”对选中的对象进行编辑和美化. 在 Word 中选择、移动、复制、缩放和旋转图形、文本框、非嵌 入型图片和艺术字等对象的方法是相同的。
一、插入剪贴画
Word 2007提供了多种类型的剪贴画，这些 剪贴画构思巧妙，能够表达不同的主题，用户可 根据需要将其插入到文档中。
二、插入外部图片
除插入剪贴画外，还可以将保存在电脑中的 图片插入到Word文档中。 在文档中确定插入点后 选择所需图片即可。
三、调整图片大小和裁切图片
单击选中图片后，在Word的功能区将自动 出现“图片工具格式”选项卡，利用该选项卡可 以对插入的图片进行各种编辑和美化操作。
word基础教程
Word基础运用1、页面的基本设置创建新文档时，首先应该考虑纸张和页边距的问题。
否则，完成文档后再进行相关设置可能会引起文档中图片、表格等对象格式的混乱，直接影响到排版与美观。
与页面设置相关的内容很多，我们首先要掌握的是纸张和页边距的设置方法。
基本步骤：1.执行“文件”→“页面设置...”，打开“页面设置”对话框。
切换到“纸张”选项卡。
2.在“纸张大小”项选择一种纸张类型。
也可以根据需要直接在下面的文本框中设置纸张的宽度和高度(如果超出类规定纸张类型的宽高范围，纸张类型将自动显示为“自定义大小”)。
3.切换到“页边距”选项卡，选择页面方向：“横向”或者“纵向”。
4.在页边距项分别设置上、下、左、右页边距。
5.在右下角可以预览设置后的效果，如果符合要求单击“确定”按钮确认设置。
假如页边距的设置超出了打印机默认的范围，将出现提示框，可以单击“调整”按钮自动调整，当然也可以忽略后手动调整。
2、设置文档自动保存时间使用Word 2003时会遇到突然停电或程序停止响应等情况。
如果文档没有保存，可能会造成很大的损失。
通过设置让Word文档每隔一定时间自动保存，可以让这类损失降低到最小限度。
一、设置自动保存时间间隔1.单击Word 2003“工具”菜单中的“选项”命令，打开“选项”对话框的“保存”选项卡(也可以在“另存为”对话框的“工具”菜单里执行“保存选项...”命令打开)。
2.选中“自动保存时间间隔”项。
3.在右侧设置自动保存的时间间隔(范围：1-120分钟)。
Word 2003将按所设置的时间间隔自动生成文档的恢复文件。
设置以5-10分钟为宜，太短将频繁占用内存，太长则可能在出现意外后有较多的内容不能被自动保存。
4.单击“确定”按钮退出对话框。
二、恢复操作Word非正常关闭后，再次运行Word 2003，程序会自动打开“文档恢复”任务窗格，左侧列出了出现问题时正在编辑的文档。
当鼠标指针移到文档名称上，将出现“这是原始文档”和“这是自动恢复版本”的提示。
word版式设置技巧3.1
版式设置技巧3.1设置页面是文档的基本的排版操作，是页面格式化的主要任务，它反映的是文档中具有相同内容、格式的设置，所以在文档的段落、字符等排版之前进行设置。
页面设置的合理与否直接关系到文档的打印效果。
文档的页面设置主要包括设置页面大小、方向、边框效果、页眉、页脚和页边距等。
如图3.1所示是区分版式的各项具体情况。
正文虚框如12×6 cm宽×高（厘米）自定义大小页面大小正文虚框左页边距上页边距下页边距页脚页眉页眉距离页脚距离正文图3.1 区分版式的各项具体情况在排版的过程中，也可以根据需要对于文档的各个部分灵活地设置不同的效果，比如，分栏。
另外，把文档分节可以划分上面的各个不同部分标记。
3.1 版式设置技巧版心为16开的纸张，每页为39行×38字，如果仅仅选择了纸张大小还是没有作用的，还要跟着设置页面页边距。
当页边距是页面四周的空白区域。
也就是正文与页边界的矩离。
当整个页面的大小在选择纸张后已经固定了，然后再确定正文所占区域的大小，要固定正文区域大小，；就可以设置正文到四边页面边界间的区域大小。
通常，可在页边距内部的可打印区域中插入文字和图形。
但是也可以将某些项目放置在页边距区域中：如页眉、页脚和页码等。
3.1.1 利用【页面设置】对话框设置页边距Word 提供了两种页边距选项，就是使用默认的页边距和指定自定义页边距。
利用【页面设置】对话框可以全面地、精确地设置页边距。
要设置页边距或者查看页边距的效果，可以在【页面设置】对话框中选择【页边距】选项卡，切换到如图3.2所示的对话框。
图3.2 【页边距】选项卡分别在【页边距】区域中的【上】、【下】、【左】、【右】输入框中输入页边距数值，如果选择【页码范围】右边的下拉列表框中的【对称页边距】选项（一般使用默认的【普通】选项），表示当双面打印时，正反两面的内外侧边距宽度相等，此时原【页边距】区域下边的【左】、【右】框分别变为【内侧】、【外侧】框。
Word绘图使用技巧
Word绘图使用技巧2011-02-24 12:08:48| 分类：电脑学习记录| 标签：|字号大中小订阅今天在单位同事让我帮他在WORD里修改绘图，在移动文本框时，总是让人感到不能得心应手。
想让它微移，不论是用鼠标拖动，还是按方向键移动，结果都一样——图像闪开了一大截，太多了！绘出的图形移动不到想要的位置，达不到理想的效果，在网上查了一下，以下可以解决问题:一、Word中的像素级移动在Word中移动或对齐图像和文本框时，总是让人感到不能得心应手。
想让它微移，不论是用鼠标拖动，还是按方向键移动，结果都一样——图像闪开了一大截，太多了！绘出的图形移动不到想要的位置，达不到理想的效果，这还不说，短线段、小圆圈等小尺度的图形要素还画不出来。
唉，如果Word也像Photoshop、Flash等软件一样有像素级的移动功能就好了！别叹气，答：Word真有这样的功能。
在菜单“视图”的“工具栏”中打开“绘图”工具条，选择“绘图”中的“绘图网络”，在打开的绘图网络对话框中把“网络设置”项中的“水平间距”由默认的0.86字符改为0.01字符，“垂直间距”由默认的0.5行改为0.01行，单击“确定”。
这时，画条短线段试一试，啊，长度竟然可以随心所欲！选中图像，用方向键移动一下。
怎么样，像素级是不是来了？二、文本框中文字随图片一起缩放在Word中处理图像时，有时候要在图像中用文本框加入文字。
输入文字后，再把图像和文本框组合在一起。
但是，如果图像大小不符合要求，需要进行缩放，拖放图像时文本框中的文字并不会随图像一起变大变小。
这时，很多人选择把图像取消组合后再编辑文本框的方法改变文字大小。
答：其实，只要把该图像剪切，再依次单击“编辑→选择性粘贴”，在打开的对话框中选择粘贴形式为“图片（增强型图元文件）”即可。
这时，再拖放图像，就会发现“图像变，我也变”了。
如果文字还需要修改变动，可以把图片格式由“嵌入式”变为“环绕式”，再取消组合，就可以对文本框进行编辑了。
用Word编辑排版杂志方法
用Word编辑排版杂志方法如何巧用Word编辑排版报刊杂志一、分栏的操作杂志中的页面通常都是分两栏来排版的，对于这种版面，用Word 的分栏功能就能轻易地实现。
分栏的基本操作（先确定分栏范围）①执行“格式→分栏”命令，打开“分栏”对话框。
②在“预设”下面选中“两栏”选项。
③调整好“栏宽”或栏“间距”（由于二者是相互关联的，故只需要调整一项就行了）；如果需要在栏间添加分隔线，请选中“分隔线”选项。
④确定返回，文章即按两栏显示出来。
二、将表格和图片插入到文档中在文档中插入表格和图片，可以增强文章的可读性。
因此，将表格和图片插入到文档中，并进行准确的定位，也是我们编辑、排版的一项重要工作。
（一）将表格插入到文档中1.用菜单命令插入表格。
将光标定在需要插入表格的行首处，执行“表格→插入→表格”命令，打开“插入表格”对话框，根据表格的需要，设置好行、列数目后，确定返回，一个规范的表格便即刻插入到文档中。
2.用快捷按钮插入表格。
将光标定在需要插入表格的行首处，然后按“常用”工具栏上的“插入表格”按钮，在随后出现的下拉列表中拖拉至需要的行、列数目后，松开鼠标，一个规范的表格即被快速插入到光标处。
提示：如果表格是通栏显示的，在进行分栏操作前，在表格将要插入的位置预留一个空行（或者先将表格直接插入到文档中），然后再对表格的前、后文本单独进行分栏操作。
二）将图片插入到文档中1.将图片衬在文字下面。
为了活跃版面，通常在文章的标题（或正文）下面衬一张图片，并将图片制作成很浅的水印图片效果。
①先用图像处理软件将图片处理、保存好（如t1.jpg等）。
②在文档中，执行“插入→图片→来自文件”命令，打开“插入图片”对话框。
③定位到t1.jpg图片所在的文件夹中，并选中该图片，然后单击“插入”按钮，将图片插入到文档中。
④选中插入的图片，执行“格式→图片”命令，打开“设置图片格式”对话框。
⑤切换到“版式”标签中，选中“衬于文字下方”选项，再切换到“图片”标签中，按“颜色”右边的下拉按钮，在随后出现的下拉列表中，选择“水印”选项（在Word中为“冲蚀”选项），确定返回。
word设置统一图片格式版式的方法步骤
word设置统一图片格式版式的方法步骤
在word中，默认插入的嵌入式图片是不能批量统一设置格式版式的，只有将默认修改为四周型后，才可以批量修改图片版式或大小，具体操作方法如下。
希望对你有帮助！
word设置统一图片格式版式的方法步骤
1、打开word，在”工具“菜单下选择”选项“命令;
2、在”选项“窗口中，在”编辑”选项卡下，将插入图片的格式选择为“四周型”;
word设置统一图片格式版式的方法步骤图2
3、在“插入”菜单中选择“图片”/“来自文件”;
word设置统一图片格式版式的方法步骤图3
4、在“插入图片“对话框中选择要插入的图片;
word设置统一图片格式版式的方法步骤图4
5、在“绘图”工具栏中的“添加或删除按钮”中选择“选中多个对象”;
word设置统一图片格式版式的方法步骤图5
6、使用“选中多个对象”，将所有插入的图片全部选中;
word设置统一图片格式版式的方法步骤图6
7、双击任意一图片，在弹出的对话框中，就可以统一设置版式或大小了;
word设置统一图片格式版式的方法步骤图7
8、确定，完成，此时，所有的图片都变成了统一设置完成。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
批量设置word 里图片的大小及版式的技巧
1.批量设置固定大小
工具-宏-新建
Sub setpicsize() '设置图片大小
Dim n '图片个数
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 70 '设置图片高度为70px ActiveDocument.Shapes(n).Width = 80 '设置图片宽度80px
Next n
End Sub
运行即可
2.批量按比率缩小或放大
新建宏
Sub setpicsize() '设置图片大小
Dim n '图片个数
Dim picwidth
Dim picheight
On Error Resume Next '忽略错误
For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型图片picheight = ActiveDocument.InlineShapes(n).Height
picwidth = ActiveDocument.InlineShapes(n).Width
ActiveDocument.InlineShapes(n).Height = picheight * 0.7 '设置高度为0.7倍ActiveDocument.InlineShapes(n).Width = picwidth * 0.7 '设置宽度为0.7倍Next n
For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
picheight = ActiveDocument.Shapes(n).Height
picwidth = ActiveDocument.Shapes(n).Width
ActiveDocument.Shapes(n).Height = picheight * 0.7 '设置高度为0.7倍ActiveDocument.Shapes(n).Width = picwidth * 0.7 '设置宽度为0.7倍
Next n
End Sub3批量将图片转成嵌入型
新建宏
Sub 图片转嵌入型()
Dim apic As Shape
Application.ScreenUpdating = False
For Each apic In ActiveDocument.Shapes
apic.ConvertToInlineShape '转换为嵌入型
Next
Application.ScreenUpdating = True
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend With Selection.ParagraphFormat
.LeftIndent = MillimetersToPoints(0)
.RightIndent = MillimetersToPoints(0)
.SpaceBefore = 6
.SpaceBeforeAuto = False
.SpaceAfter = 6
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphCenter
.WidowControl = False
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = MillimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
End Sub
4.批量将图片转四周型
新建宏
Sub 图片版式转换四周型()
Dim apic As Variant, shapeType As WdWrapType
On Error Resume Next
For Each apic In ActiveDocument.InlineShapes
apic.ConvertToShape
With oShape
oShape.WrapFormat.Type = 0 '四周型
oShape.WrapFormat.AllowOverlap = False '不允许重叠End With
Next
End Sub。