word宏编程图片转换

1. 如何通过“宏”批量完成word中所有图片大小的修改并且让图片安排原来顺序排列

1、Alt+F8调出宏编辑窗口
2、点创建按钮，创建新宏，setpicsize,内容如下：
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
ActiveDocument.InlineShapes(j).Height = 362 '设置高度
ActiveDocument.InlineShapes(j).Width = 481.87 '设置宽度
Next j

End Sub
3、保存退出，点运行setpicsize宏，word中所有的图片统一调整为宽17cm，高12.77cm
Sub setpicsize()
'设置图片大小
' 宏在 2008-3-31 由 hero_thm 录制
'
Dim j '计数图片个数
For j = 1 To ActiveDocument.InlineShapes.Count '文件中图片总个数，图片类型为inlineshapes
If ActiveDocument.InlineShapes(j).Width > 480 Then
ActiveDocument.InlineShapes(j).Width = 400 '设置宽度
End If
Next j
End Sub

2. 如何用Word宏操作处理图片让所有图片统一操作

方法如下：

1. 先打开存有图片的word。

2. 在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”。

3. 随后弹出“宏”对话框，在宏名中输入setpicsize。

4. 宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入代码。

5. 关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小。
   

3. 用宏如何将word中图片大小改为大小为50% 谢谢

工具----宏----录制新宏。取个名字，按“键盘”图标，

在“请按新快捷键处”输入快捷键，点“指定”再点“关闭”

按键盘上 右边ctrl左边的一个键。这是鼠标右键的替代键。选“设置图片格式”--“大小”，选50%，确定，就可以了，再关上宏。

4. 怎样用宏将word里图片全部旋转

创建此宏可以做到：

Sub 旋转图形()
Dim abc As Shape
For Each abc In ActiveDocument.Shapes
abc.Rotation = 45
Next abc
End Sub

其中“45”是旋转角度，可以自己改

5. word宏操作处理图片

word2007以上版本使用docm格式可以保存宏，保存的时候选择类型为“带宏的word文档”就可以了，不用向下兼容。

不用VBA是无法实现这一功能的，实际上宏只是用代码记录下操作便于重复使用，其实质与作法与VBA没有什么区别。不过，VBA是人工编写代码，宏是自动编写代码而已。

创建宏：
1、 创建新宏。点击工具“开发工具”里的分组“代码”里的“宏”命令代码，在弹出的“宏”对话窗里的“宏名称”下面的文本框里输入宏名称（这里输入“CropPicture”），选择“宏的位置”为当前的文档。最后，点击“创建”命令按钮，会弹出VBA的IDE环境，里面已经给出CropPicture程序的程序头尾。如下：
Sub CropPicture()
'
' CropPicture 宏
'
'

End Sub
2、添加代码
把下面代码里的Sub CropPicture()与End Sub之间的代码粘贴到上面提到的代码之间或者直接用下面的代码覆盖上面提到的代码。
'剪切图片
Sub CropPicture()
Dim shps As InlineShapes, shp As InlineShape
Set shps = ActiveDocument.InlineShapes
'左、右、顶、底边各剪切20磅，根据需要修改就行了。
For Each shp In shps
With shp.PictureFormat
.CropLeft = 20
.CropRight = 20
.CropTop = 20
.CropBottom = 20
End With
Next
End Sub
添加热键
点击word文档左上角的Office按钮(logo图标)，执行弹出菜单里的“word选项”，会弹出一个对话窗。
在弹出的对话窗里点击左侧导航条“自定义”，点击右侧设置项里的“键盘快捷方式”右侧的“自定义”命令按钮，会弹出“自定义键盘”对话窗。
将“指定命令”的类型选择为“宏”，选择“将更改保存在”右侧的下拉列表，选择为你正在编辑的文档。这时，“宏”列表里会显示当前文档里的所有宏，我们选择“CropPicture”，然后将光标移入“新按新快捷键”文本框，按下“Ctrl+Q”键，点击“指定”命令按钮退出，即可。
调用
按键盘键^q，就可以直接调用宏“CropPicture”，帮你把当前文档里的所有图片向内剪切40磅了。

6. 如何做用宏自动调整word文档中图片尺寸

方法/步骤

先打开存有图片的word

在打开的文档中，选择在“工具”菜单中选择“宏”--“宏”

随后弹出“宏”对话框，在宏名中输入setpicsize

宏名起好了，单击“创建”按钮进入Visual Basic 编辑器，输入如下代码
Sub setpicsize() '设置图片大小Dim n '图片个数On Error Resume Next '忽略错误For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300pxNext nFor n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400pxActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300pxNext nEnd Sub

5
关闭入Visual Basic 编辑器，返回word，重新选择“工具”--“宏”--“宏”（或者直接按Alt+F8），再次进入宏的界面，在弹出的宏名中选择"setpicsize",最后点击“运行”---确认即可快速地批量修改word中所有图片大小，注意这里把图片大小都修改成Height = 400，Width = 300，这个规格大家可以需要改变的~~~~~~~~~~~

7. 如何将WORD中的图片转换成BMP或JPEG格式

把文字替换成图片
首先把图片复制到 剪贴板中，然后打开替换对话框，在“查找内容”框中输入将被替换的文字，接着在“替换为”框中输入“^c”（注意：输入的一定要是半角字符，c要小写）， 单击替换 即可。说明:“^c”的意思就是指令WordXP以剪贴板中的内容替换“查找内容”框中的内 容。按此原理，“^c”还可替换包括回车符在内的任何可以复制到剪贴板的可视内容，甚至Excel表格。 三招去掉页眉那条横线
1、在页眉中，在“格式”－“边框和底纹”中设置表格和边框为“无”，应用于“段落”
2、同上，只是把边框的颜色设置为白色（其实并没有删的，只是看起来没有了，呵呵）
3、在“样式”栏里把“页眉”换成“正文”就行了——强烈推荐！ 会多出–(两个横杠) 这是用户不愿看到的,又要多出一步作删除– 解决方法：替换时在前引号前加上一个空格 问题就解决了
插入日期和时间的快捷键
Alt+Shift+D：当前日期
Alt+Shift+T：当前时间
批量转换全角字符为半角字符
首先全选。然后“格式”→“更改大小写”，在对话框中先选中“半角”，确定即可
Word启动参数简介
单击“开始→运行”命令，然后输入Word所在路径及参数确定即可运行，如“C:\ PROGRAM FILES \MICROSOFT Office \Office 10\ WINWord.EXE /n”，这些常用的参数及功能如下： /n：启动Word后不创建新的文件。 /a：禁止插件和通用模板自动启动。 /m：禁止自动执行的宏/w：启动一个新Word进程，独立与正在运行的Word进程。/c：启动Word，然后调用Netmeeting。 /q：不显示启动画面。
另外对于常需用到的参数，我们可以在Word的快捷图标上单击鼠标右键，然后在“目标”项的路径后加上该参数即可。 快速打开最后编辑的文档
如果你希望Word在启动时能自动打开你上次编辑的文档，可以用简单的宏命令来完成：
(1)选择“工具”菜单中的“宏”菜单项，单击“录制新宏”命令打开“录制宏”对话框；
(2)在“录制宏”对话框中，在“宏名”输入框中输入“autoexec”，点击“确定”；
(3)从菜单中选择“文件”，点击最近打开文件列表中显示的第一个文件名；并“停止录制”。保存退出。下次再启动Word时，它会自动加载你工作的最后一个文档。
格式刷的使用
1、设定好文本1的格式。
2、将光标放在文本1处。
3、单击格式刷按钮。
4、选定其它文字(文本2)，则文本2的格式与文本1一样。
若在第3步中单击改为双击，则格式刷可无限次使用，直到再次单击格式刷(或按Esc键)为止。