-
2021-06-15 18:35:17
批量设置图片格式
Sub setShapeStyle() On Error Resume Next Dim myShape As InlineShape ' 如果没有名叫“图片”的样式,提示用户创建 Dim imgStyle As Style, imgStyleName As String imgStyleName = "图片" Set imgStyle = ActiveDocument.Styles(imgStyleName) If imgStyle Is Nothing Then MsgBox "请先创建样式【" & imgStyleName & "】" Exit Sub End If '关闭屏幕更新,提升执行效率 Application.ScreenUpdating = False '遍历所有嵌入式图片 For Each myShape In ActiveDocument.InlineShapes With myShape ' -------- 设置边框 -------- .Borders.OutsideLineStyle = wdLineStyleSingle '边框类型 .Borders.OutsideColorIndex = wdBlack '边框颜色 .Borders.OutsideLineWidth = wdLineWidth100pt '边框粗细 ' -------- 设置样式 -------- If .Type = wdInlineShapePicture Then .Range.Style = imgStyleName '设置图片样式为“图片” End If ' -------- 设置高宽 -------- .ScaleWidth = 100 ' 缩放重置为100% .ScaleHeight = 100 ' 缩放重置为100% .LockAspectRatio = msoTrue ' 锁定纵横比 '.Height = 600 ' 600点 '.Width = CentimetersToPoints(15) '15 CM .Width = ThisDocument.PageSetup.TextColumns.Width ' 当前文档宽度 ' -------- 图片下方插入题注 -------- .Range.InsertCaption Label:="图:", TitleAutoText:="", Title:="", Position:=wdCaptionPositionBelow, ExcludeLabel:=0 End With Next '开启屏幕更新 Application.ScreenUpdating = True End Sub
转为嵌入式图形
网上抄来改了一下:
Sub ConvertToInlineShape() Dim total, count count = 0 total = 0 For Each myShape In ActiveDocument.Shapes If myShape.Type = msoPicture Then ' 转换为嵌入式图片 myShape.ConvertToInlineShape count = count + 1 End If total = total + 1 Next myShape MsgBox "转换【" & count & "/" & total & "】个图片!" End Sub
参考资料
微软Docs 》Office VBA 参考 》Word 》对象模型 》Style 对象
Docs 》Office VBA 参考 》Word 》对象模型 》Range 对象 》方法 》插入题注InsertCaption
WdLineWidth 枚举更多相关内容 -
Word选择性粘贴怎么用?Word设置无格式文本粘贴快捷键的方法
2021-06-11 10:40:30Word选择性粘贴怎么用?我们在使用电脑工作的过程中,经常需要将网页上的文字复制到Word中进行编辑使用,然而网页上...下面小编就给大家介绍Word选择性粘贴的使用方法及Word设置自定义粘贴快捷键的方法。什么是选择...Word选择性粘贴怎么用?我们在使用电脑工作的过程中,经常需要将网页上的文字复制到Word中进行编辑使用,然而网页上的内容都是带有格式的,编辑起来很麻烦,所以我们就要对文字进行消除格式。虽然记事本可以消除格式,但是还要打开记事本略显麻烦,其实我们可以利用Word的选择性粘贴功能,这样操作就方便快捷多了。下面小编就给大家介绍Word选择性粘贴的使用方法及Word设置自定义粘贴快捷键的方法。
什么是选择性粘贴?
选择性粘贴是Microsoft Office、金山WPS等众多软件中的一种粘贴选项,通过使用选择性粘贴,用户能够将剪贴板中的内容粘贴为不同于内容源的格式。选择性粘贴在Word、Excel、PowerPoint等软件中具有重要作用,例如可以将剪贴板中的Excel单元格数据只粘贴公式。
Word选择性粘贴怎么用?
1、单击工具栏上粘贴图标旁边的下拉按钮,单击【选择性粘贴】;
2、打开选择性粘贴对话框,我们可以看到以下的选项,选择需要的方式后单击【确定】即可。
说明:
Word文档对象:将“剪切板”中的内容插入到您的文档中,以便您可以使用“Word文档”来编辑它。
带格式文本:以“带有字体和表格格式的文字”形式插入“剪切板”的内容。
无格式文本:以“不带任何格式的文字”的形式插入“剪切板”的内容。
图片(增强型图元文件):以“增强型图元文件”的形式插入“剪切板”的内容。
html格式:以“html格式”的形式插入“剪切板”的内容。
无格式的Unicode文本:以“不带任何格式的文字”的形式插入“剪切板”的内容。
Word如何设置无格式文本粘贴快捷键?
Word默认的快捷键中,没有选择性粘贴的快捷键,不过,我们可以通过自定义快捷键的方式来为选择性粘贴自定义快捷键,方法如下。
1、随便新建一个Word文件并打开;
2、在打开的Word 编辑页面中,依次选择菜单栏上的“工具” “宏”命令(或者按下“Alt+F8”快捷键),这样会弹出一个“宏”窗口;
3、在“宏”窗口中的“宏名”文本框中输入你要建立的“宏”的名称 (比如:无格式文本粘贴),点击右侧的“创建”按钮,进入一个编辑窗口;
4、在代码编辑区中输入如下内容之后,关闭编辑页面,并返回Word 页面:
Sub 无格式文本粘贴()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
End Sub
5、在Word 编辑页面中的菜单栏上,依次选择“工具”“自定义”, 在弹出的自定义窗口中,点击“键盘”弹出新窗口,然后用鼠标选择左侧选项框 中的“宏”;
然后在右侧选项框中选中刚才新建的宏的名称(即:无格式文本粘 贴),并在“请按新快捷键”文本框中按下你要设定的快捷键组合,比如“Ctrl+ Shift+V”,最后在点击“指定”按钮。如下图所示:
6、快捷键的设置到这里就已经完成,让我们来体验一下新设置的快捷方式吧。
上述便是Word选择性粘贴的使用方法,设置快捷键可以让Word 轻松实现无格式粘贴O哦,当需要用到“无格式粘贴”时就按下该设定的快捷键,就能快速将内容转化为无格式的文本粘贴到Word中了。
-
word下图片格式批量设置
2019-05-30 13:58:152.打开word“文件”-中的“选项”卡,选择“自定义功能”,设置为“所有命令”,选择“选择多个对象”,自定义功能区在“开始”面板下“新建组”,将“选择多个对象”添加至此。 3.在“开始”选项卡下,...本文介绍三种方法。
一、利用软件,如BatchDoc,可以快速批量的设置图片格式。
二、word自带功能
1.将word格式另存为97-2003的格式,即后缀名为doc,非docx。
2.打开word“文件”-中的“选项”卡,选择“自定义功能”,设置为“所有命令”,选择“选择多个对象”,自定义功能区在“开始”面板下“新建组”,将“选择多个对象”添加至此。
3.在“开始”选项卡下,点击刚刚添加的“选择多个对象”功能,在弹出的对话框中选择“全选”,点击“确定”。在一大摞图片上右键点击鼠标,选择“设置自选图形/图片格式“,在弹出的对话框中更改“大小”等样式,所有的图片都会发生改变。
*注: 在设置所有的图片的“大小”时一定要记得打开“锁定纵横比”。因为你插入的多张图片的长宽比可能不同,如果不锁定纵横比,会导致部分图片被拉长或压扁,影响图片质量。三、使用VBA宏命令。
1.首先将所有的图片格式转为嵌入式,这样才能设置如居中等格式。参考下列代码。
Sub 图片版式转换() Dim oShape As Variant, shapeType As WdWrapType On Error Resume Next If MsgBox("Y将图片由嵌入式转为浮动式,N将图片由浮动式转为嵌入式", 68) = 6 Then shapeType = Val(InputBox(Prompt:="请输入图片版式:0=四周型,1=紧密型, " & vbLf & _ "3=衬于文字下方,4=浮于文字上方", Default:=0)) For Each oShape In ActiveDocument.InlineShapes Set oShape = oShape.ConvertToShape With oShape Select Case shapeType Case 0, 1 .WrapFormat.Type = shapeType Case 3 .WrapFormat.Type = 3 .ZOrder 5 Case 4 .WrapFormat.Type = 3 .ZOrder 4 Case Else Exit Sub End Select .WrapFormat.AllowOverlap = False '不允许重叠 End With Next Else For Each oShape In ActiveDocument.Shapes oShape.ConvertToInlineShape Next End If End Sub
2.批量设置图片格式
Sub 图片居中() Dim iSha As InlineShape For i = 1 To ActiveDocument.Paragraphs.Count If ActiveDocument.Paragraphs(i).Range.InlineShapes.Count > 0 Then With ActiveDocument.Paragraphs(i).Format '在这里可以设置图片的格式 .CharacterUnitFirstLineIndent = 0 .FirstLineIndent = 0 .LeftIndent = 0 .Alignment = wdAlignParagraphCenter End With End If Next i End Sub
注意,对于不需要进行批量设置的图片,比如文本行中像素较小和文字混在一块的图片,可根据实际情况设置过滤条件,比如图片的高度
-
word论文格式调整
2022-04-05 15:14:52本文以毕业论文为例,每个学校都有自己的格式要求,因此要找到对应的格式要求说明书,然后可以根据下文从零开始调整论文格式。亦可通过本文排查和调整论文格式是否正确。目录
注意事项
1. 使用同一个word版本编辑,避免格式不兼容。本文可能不适用于WPS。本文用office2019进行操作。
2. 通过Ctrl+Shift+8
把隐藏符号打开。
3. 本文以毕业论文为例,每个学校都有自己的格式要求,因此要找到对应的格式要求说明书,然后可以根据下文从零开始调整论文格式。亦可通过本文排查和调整论文格式是否正确。
4. 提供的方案并不一定是最优的,如有补充,可评论区见。本文主要目的是把格式调整各部分涉及全面。论文框架搭建
论文分块
一般,把论文分为三块,分别为
封面
、目录
、正文
,因此需要两个下一页-分节符
。
操作位置为:布局→页面设置→分隔符→分节符→下一页
,也可以选择奇数页。
关于是否要奇数页的问题,很多官方文件都没明说,但老师查格式的时候会有要求,到时候修改一下这里就行了。(修改后记得检查,修改分节符太容易出问题了)
更有甚者,PDF档和纸质版的奇偶页还会不同(不要问我怎么知道……),这时,可以在导出PDF后再添加空白页处理,尽量不要在word上调整了。页边距
把光标
I
放置在对应的块后,即可独立的设置每一块的纸张页边距、页眉和页脚。
页边距:布局→页边距→自定义页边距
页眉
(注:这里先不调整字体)
-
封面
封面
没有页眉内容;若发现封面
页眉处有一条横线,则双击页面进入页眉编辑域,点击开始→段落→边框→无边框
即可。
-
目录:
目录
页眉就是目录
二字。但为了不因为调整了目录
的页眉而影响到封面的页眉,需要:
双击页面后,页眉与页脚→导航→链接到前一节(取消)
,最后填写目录即可。
另外,目录和正文一般都需要页眉上的横线,所以需要:开始→段落→边框→边框与底纹
,弹出窗口后,进行如下操作:
-
正文:
除了目录中已经说到的取消链接到前一节
和边框
设置外,还需:
正文页眉主要是要处理页眉奇偶页不同的问题:
首先还是双击页眉,进入页面编辑域,在页眉与页脚→选项→奇偶页不同
,再点击取消页眉与页脚→导航→链接到前一节
(次序不能反,反了的话,你会发现链接到前一节
并没有取消!)。最后在奇数页填上一级标题名,在偶数页填上论文题目。
于是,我们还会发现,奇数页上的一级标题在正文不同章节是不同的。于是,
给论文分章节:同样是在在正文编辑域下,布局→分隔符→分节符→下一页或奇数页
。然后再重复上面的页面操作。现在,我们知道了页眉有
链接到前一节
这个选项,所有我们知道不同章节节要使用分节符和不是分页符的目的了吧。同时,页边距也是在不同章节下有不同设置的,因此我们需要先设置页边距后,在分节,不然后面修改页边距就要到每一节去修改了。
页脚
关于
链接到前一节
和奇偶不同
的操作这样不再重复说明了。
封面:封面如有有页脚的话,请删除
目录:一般不需要奇偶页不同。进入页脚编辑域,点击页眉和页脚→页眉和页脚→页码→设置页码格式
:
点击确定后,在页眉前后添加自己需要的第
和页
字,从而实现第I页
的显示。(这里只是举个例子,目录一般不需要这样操作)
正文:这个给出与目录不同的设置方案,也是能进行更复杂操作的快捷方案。进入页脚域,输入Alt+F9
,在页脚中输入第{ ={PAGE } } (工{ ={ NUMPAGES } -21 })
。注意大括号是通过Ctrl+F9
输入的,然后在按Alt+F9
就可以看输入的效果了。 其中-21
是为了减去正文前面的页数,所以这个操作是半手动的,在封稿前务必检查下。
样式
样式就是把格式进行归类话,这类似
** **
在markdown中表示加粗。有了样式后,只要修改样式,那么应用改样式的所有文字的格式/段落等将自动进行调整。默认样式
开始→样式
的右下角有一个小扩展符,可以把它点击开,就可以看到所有已有的样式。
我们上文提到的页眉
的字体就可以像下文的正文
那样统一修改了。
正文
以
正文
为例,找到开始→样式
,右击正文
,点击修改
,弹出修改样式
窗口。
可以看到如下描述:
在修改样式
窗口左下角可以点击格式
,一般一个样式的修改我们需要涉及:- 字体: 中文字体(宋体),英文字体(Times New Roman),字体大小(小四)
- 段落:缩进(两格),大纲级别(正文文本),行距(22磅)
- 快捷键:设置快捷键后,选中正文中文字,按下快捷键,就可以;应用样式
你也可以通过之间修改正文中一段文字的字体/段落/编号,再 {在
开始→样式
右击正文
,点击更新 正文 以匹配所选内容
} 来更新样式。标题
标题的修改与正文类似,但有一些不同,以1级标题(标题1)为例:
- 字体上的不同;
- 段落的无序缩进;
- 段前段后的间距也有要求(如0.5行)
- 而且需要进行自动多级序号编排。这个相对复杂,可以参考CSDN-_雨辰:Word,标题2,2.1,编号,多级编号,样式-Word中二级标题实现2.1多级编号解决方法!!!。一般不用的编号级别也设置下颜色,方便找到编号样式。
这里贴出我的样式设置。
参考文献/致谢
样式操作上面基本都说到了,唯一要注意的是,
参考文献
和致谢
不需要编号。所有需要自己新建样式,并在段落
中将大纲级别设置为1级
。目录
在目录所在的分块中添加
目录
样式。
有些属于不属于大纲级别,可以手动添加样式。然后在
选项
中加入到目录中。如开题报告
又有些不属于大纲级别,同时关键字在除目录外未出现的,那你可以把白字(即不可见字)放在所需的页中,然后添加一个样式,如隐藏for目录
样式,然后再在通过选项
中加入到目录中。
图表/参考文献/公式
图名表名的
引用→题注→插入题注
的方式添加。如图XX所示
的部分通过引用→题注→交叉引用
的形式添加。
图名和图要在同一页,因此可以添加一个透明的两行表格,第一行放图片(并设置对应样式),第二行放置图名(并设置对应样式)。最后在关闭
表格属性→行→允许跨页断行
。
有时候,你把word文件传到另一台电脑后,虽然之前正文插入过题注,但却找不到交叉引用对象了。只需点击
引用→题注→插入题注
,向原来那样新建原来的题注就好了。最后吐槽下word,无边边框不能向制表符那样通过
Ctrl+Shift+8
显示虚线出来,导致用户真的很难操作。参考文献亦可通过题注/编号+交叉引用的方式实现。详见CSDN-brave_stone:Word排版之利用交叉引用插入参考文献
公式编辑:推荐使用word自带的公式编辑器,可以实现流畅输入,无需鼠标,且需要按的键也比较少。但word自动的公式编辑器字体是固定的,往往不满足国内的格式要求。因此只需简单的通过工具转为mathtype格式即可。
最后
上述内容应该改完完毕业论文格式了。我们在提交论文前,需要注意把自己加的红字备注和批注删除,把软件无法自动实现的(大概律是自己还不知道怎么搞)部分手动调整了。最后更新一下域(目录和各种编号),就可以生成pdf了。
-
-
VB.net读取Word文档属性的方法
2020-09-05 14:37:28读取写入前需创建Word的引用,打开文件并获取Word的Document对象。需要说明的一点是,Word自定义属性所能写入的长度是有限制的,约255个字符。 -
Python-docx 模块读写 Word 文档基础(一):创建文档、段落格式、字体格式设置方法
2020-06-29 22:33:29Python-docx 模块读写 Word 文档基础(一):创建文档、段落格式、字体格式设置方法前言:1、创建 Word 文档及基础用法:2、段落格式设置:3、字体格式设置:结尾:【Python与Word文档】专栏 前言: 从这篇博客开始... -
Word对象模型 (.Net Perspective)
2019-04-06 10:05:33Word对象模型(.Net Perspective) 五大对象Application:代表Microsoft Word应用程序本身 是Document和Selection的基类。通过Application的属性和方法,我们可以控制Word的大环境。Document:代表一个Word文档 ... -
C#中操作Word(4)—— 利用Range对象设置文本的格式
2016-11-09 14:25:09本文主要介绍修改文本的格式的方法。按照上文介绍的方法,现在将D盘的Test.docx文档进行修改,修改成如下内容: 在“测试”按钮的单击事件处理函数中,获取对应的Range: private void button1_Click(object ... -
出错提示“Word 未能写某些嵌入对象,因为内容或磁盘空间不足”
2021-01-14 15:23:13出错提示“Word 未能写某些嵌入对象,因为内容或磁盘空间...列出解救方法如下:原因一:Word保存设置===================修改保存设置,进入”Tools”->”Options”->”Save”,取消对”Allow Fast Saves”选项... -
在VFP中调用WORD的基本方法
2018-06-19 16:46:472、设置段落格式 11 (1)FirstLineIndent属性 11 (2)LeftIndent属性 11 (3)RightIndent属性 11 (4)Alignment属性 11 (5)LineSpacing属性 12 (6)HangingPunctuation属性 12 四、Range 和 Selection 对象 ... -
Python-docx 读写 Word 文档:读取正文、表格文本信息、段落格式、字体格式等
2021-01-30 03:30:45Python-docx 模块读写 Word 文档基础(三):读取文档文本信息、表格信息、段落格式、字体格式等前言:1、获取文档章节信息:2、获取段落文字信息:3、获取文字格式信息:4、获取文档中表格信息:结尾:【Python与... -
word批量调页面设置 关于Word如何批量打印
2021-07-27 03:59:26解决方法:首先选择所有要打印的文件,这里可以是word、excel、powerpoint文件然后在所选择的文件上,...word批量打印能批量调格式么推荐使用“Office批量打印精灵”——Office文档批量打印软件,支持Word、Excel、... -
Word2013文档中使用查找和替换功能来快速更改文本格式的方法
2021-07-25 02:51:36下面介绍Word2013文档中使用查找和替换功能来快速更改文本格式的方法。1、在“开始”选项卡中单击“编辑”组中的“替换”按钮,打开“查找和替换”对话框,切换到“替换”选项卡。在“查找内容”文本框中单击放置... -
word插入文件对象后,原文件中的阿拉伯数字尾注变成罗马数字尾注
2021-09-07 10:43:44在编排格式时,在插入对象->插入文件中的文字,原文件有的尾注变成罗马数字了(但还是可以链接到文中文字的) 解决方法如下: 首先在wps中打开文档(不是Microsoft office word,它这个我没找到这个选项),... -
Word常用对象
2015-09-30 17:56:02这两天一直在跟word打交道,刚开始对word不熟(现在也还是不太熟,haha), 然后分不清哪些是word自身的对象及功能哪些是我们项目中重新自定义的,今天来整理下word常用的对象(排除这个其他就是我们项目自定义的啦... -
poi实现word文档转pdf格式
2022-01-19 17:46:28服务器上保存的文档是word格式,但是需要转换成pdf格式的文件流返回给前端做预览,因此需要将word文件转换为pdf文件,再读取转换后的pdf文件流返回给前端 pom添加如下依赖 <dependency> <groupId>fr.... -
Word文档中批量修改英文、中文或数字等的字体和格式的方法
2022-03-04 18:53:10小编在做毕设的时候老师... 小编在这里要改的文档中是英文的字体,所以选的是“任意字母”,在这里可以根据你要改的不同对象选择其他的的选项。 4.光标点中“替换为”,然后点击最下方的“格式”,选择“............ -
Origin中做的图为什么复制到word内不能再用Origin打开,双击出现word中的图片设置的格式
2020-08-15 11:10:34可能需要以管理员身份打开Origin -
Word文档两端对齐.分散对齐如何设置
2021-02-05 03:19:41分散对齐如何设置在Word文档排版中有许多细节和技巧都需要我们去掌握熟知,只有这样我们才可以在日常生活中快速的完成工作。今天小编要为大家介绍的是Word两端对齐与分散对齐功能。下面先介绍下这两项功能!两端对齐... -
如何把office word文档存为网页格式?(图解)
2021-06-11 02:53:56使用word2003提供的“另存为”或“另存为Web页”命令可以把文档保存为网页格式,word将删除不支持的格式设置并应用Web浏览器支持的设置。例如,Word中原有的图表、公式和OLE对象、域、字体大小、样式、表格等将被... -
PageOffice中word常用接口对象---WordDocument类
2018-09-10 15:58:26为了实现Word文档的在线编辑和使用,在PageOffice开发平台下开发出了WordDocument 类,它代表一个Word文档,既可以用来动态输出数据到Word文档并且控制其文档格式及编辑功能又可以用来读取用户输入到Word文档中的... -
C#中操作Word(1)—— word对象模型介绍
2016-11-09 11:31:04C#中添加对Word的支持,只需添加对Microsoft.Office.Interop.Word的命名空间,如下图所示,右键点击“引用”,在弹出的“添加引用”对话框中选中COM标签页,找到“Microsoft Word 12.0 Object Library”。... -
Js word格式doc文件下载
2021-04-20 16:49:43一、 下载方式 a) 获取后端传过来的url 静态资源 ...i. 文件流获取转换blob对象模拟a标签点击下载 二、 下载doc文件流示例 a) 后端主要代码 b) 前端主要代码 Axios Api请求如下: export const reportDownload -
MFC VC 操作Excel,word的OLE对象
2015-01-23 17:40:37前几天老板分配了一个任务,背景是用户手动复制excel的一些统计表或者word中的组织结构图或者Visio中的流程图等,不能直接保持原格式粘贴到MFC的RichEdit控件中。用户只能手动把word,excel,visio中的图形以OLE对象的... -
Word组件对象模型
2014-10-10 11:25:151 Word组件对象模型 Microsoft Office Word 2003 对象是按层次顺序排列的,层次结构顶端的两个主类是 Application 类和 Document 类。这两个类非常重要,因为在大部分时间里,您要么是在使用 Word 应用程序本身... -
如何pdf转换word文字并重新排版格式?
2020-07-10 16:43:41将PDF转换成Word是我们日常办公经常使用的,但有时转换出来的Word还是图片,或者虽然可以编辑,但是随便修改格式就算了。那么如何将PDF转换成可重新排版格式的Word文字呢? 首先还是说一下如何转换成可编辑的文字... -
python识别word文件格式 ——(专栏:基于python编写简单office阅卷程序①)
2020-12-01 02:02:16● 研二在读学生,非工科非计算机专业,故代码简陋初级勿喷,本文仅为记录和快乐分享。 ○ 感谢肯定,转载请注明本页出处即可。...python识别word文件格式——(基于python编写简单office阅卷程序①) ... -
免费版.NET Word 组件_Free Spire.Doc for .NET 6.3
2018-07-16 16:53:44支持动态创建一个全新的 Word 文档,并支持几乎所有的 Word 文档元素,它们主要包括页面、节、页眉、页脚、脚注、尾注、段落、项目符号和编号、表格、 文本、域、超链接、书签、注释、图片、样式、背景设置、打印... -
word对象模型概述
2012-10-02 16:20:50Word 对象模型概述 更新:2007 年 11 月 适用对象 本主题中的信息仅适用于指定的 Visual Studio Tools for Office 项目和 Microsoft Office 版本。 项目类型 文档级项目 ... -
用Python处理Word文档
2022-02-11 11:32:34目标文件夹内有多份 Word 文件 ——【xxx涨薪通告.docx】,我们需要在这些文档的末尾处添加公司的电子章与公司名称。 这次的任务困难吗?手动操作起来其实很简单,无非就是先打开一个文档,接着在结尾处添加...