目录
Word图片操作——2022.7.21补充
任务需求:
插入的多张图片调整大小一致、居中、每个图片后添加空白行
VBA批量修改图片尺寸
GR:WPS 的VB编辑器不能用!
代码报错;录制的宏不能运行
Word可以用,但是录制宏时不能选择图片?
Sub 修改Photo_size()
' V0.2 结合搜到的其他资源,添加部分注释
' V0.3 简化交互、exit调试
Dim Photo_size$, Photo_height$, Photo_width$, Photo_X As InlineShape
Set Ac_doc = ActiveDocument.InlineShapes
On Error Resume Next '忽略错误
Application.ScreenUpdating = False '关闭刷新显示(执行更快)
Photo_size = InputBox(" 输入高度和宽度:" & Chr(13) & " 示例 12 18" & "")
'Chr(13) 回车
Photo_height = Split(Photo_size, " ")(0)
Photo_width = Split(Photo_size, " ")(1)
If Photo_size <> "" Then
For Each Photo_X In Ac_doc
Photo_X.LockAspectRatio = msoFalse '纵横比
Photo_X.Height = 28.35 * Photo_height
Photo_X.Width = 28.35 * Photo_width
'Exit For '调试中断
Next
End If
Application.ScreenUpdating = True
MsgBox ("尺寸修改完毕")
End Sub
图片全部居中
Ctrl+H(替换)
查找内容: ^g 即图片
替换为: 格式设置
插入的图片后添加空白行
GR:WPS不能用(有bug,替换后图片没了)
Word可以:
Ctrl+H 替换
^g //图片
^&^p^p //图片本身 两个段落标记、
- VBA方法??未尝试
搜索问题
文件打开错误
毕设系统上下载的附属文件打不开
解决:
文档 》选项 》信任中心
-
字符右上角撇号
先输入英文单撇号,然后Ctrl+Z
-
单元格合并后,内容垂直居中
右键 》表格属性 》单元格 》居中 (RC)
-
自定义图表边框显示
-
西文字体空格与换行问题
允许单词中间换行
WPS:
-
空白页删除问题
1)文字后的,点击空白页,Ctrl + Backspace
2)表格后的,选中行,Ctrl+D,隐藏文字
注:实测表后面空白页 Ctrl + Delete 解决
格式问题
- 自定义样式快捷键
选择样式 》右键修改
格式设置中添加快捷键,例如当前格式“引用”对应“Alt + 5”
- 默认字体格式设置
Ctrl + D 设置格式,设为默认值
- 清除格式
Ctrl + Shift + N
添加、插入相关
- 插入其他文档内容
例如需要整合多个文档:
插入 》 对象 》对象中的文字
- 在word中嵌入word文件
可以通过点击图标,打开其他的word文件
插入 》对象 》由文件创建
- 插入分割线
--- + Enter 单横线分割线,
=== 双横线分隔
### 三横线分隔
- 插入公式
插入公式 Alt + =
常用快捷键
- 字体格式
(选中)大写字母变小 Ctrl+Shift+K
取消段落格式 Ctrl+Q
清除字体样式 Ctrl + Shift + N
字体格式设置 Ctrl + D //即“字体”栏目,右下角符号
上下标 Ctrl+Shift++ Ctrl+=
(选中)插入链接 Ctrl + K
字体大小调整 Ctrl+ Shift+>/<
- 段落相关
选定范围扩展至段尾和段首 Ctrl + Shift + 上下方向
Unicode Math公式编辑
Alt + = 插入公式
反斜杠“\” + 字符 + 空格