|
实例16：提取第一行作为文件名称
很多时候，我们需要将某些Word文档的第一行作为文件名称，如果文档的数量不是很多，那么手工操作即可。
但如果需要处理的文档数量比较多，手工重命名的方法恐怕就不是那么方便。其实，我们可以借助VBA宏代码实现这一要求，代码如下实例16所示（访问http://pcmag.hexun.com/special/）。
运行宏，此时会弹出“浏览”对话框，在这里选中指定文件夹中的相关Word文档，稍候片刻，即可得到我们所需要的结果。
实例17：批量实现图片的等比例缩
放很多时候，我们都需要对已插入Word文档中的图片作统一处理，例如调整图片的尺寸，但如果单纯的修改图片的宽度或高度，那么可能无法实现等比例缩放，这样得到的图片可能会发生变形，这就不是我们的本意了。例如在锁定纵横比的前提下，将上图所示的文档中所有图片的宽度统一更改为4厘米，可以按照下面的方法实现：
打开Microsoft Visual Basic编辑器窗口，在右侧窗格中插入一个空白模块，手工粘贴如下代码：
- Sub test()
- Dim Shp As Shape, InlineShp As InlineShape
- Dim Bder As Border
- With ActiveDocument
- For Each Shp In .Shapes
- Shp.LockAspectRatio = msoTrue
- Shp.Width = 4 * 28.35
- Next
- For Each InlineShp In .InlineShapes
- InlineShp.LockAspectRatio = msoTrue
- InlineShp.Width = 4 * 28.35
- For Each Bder In InlineShp.Borders
- With Bder
- .LineStyle = wdLineStyleSingle
- .LineWidth = wdLineWidth050pt
- .Color = wdColorAutomatic
- End With
- Next
- Next
- End With
- End Sub
上述代码中的“LockAspectRatio = msoTrue”表示锁定纵横比，如果不需要锁定纵横比，那么可以修改为“LockAspectRatio = msoFalse”。检查无误之后，单击工具栏上的“保存”按钮将VBA宏代码保存到文档中，如果是新文档则请在文档类型中选择“启用宏的Word文档”。
依次执行“文件→关闭并返回到Microsoft Word”，返回Word窗口之后，按下Alt+F8组合键，打开“宏”对话框，选中列表框中的“test”宏，单击右侧的“运行”按钮，稍等片刻，即可看到结果，虽然各个图片的原尺寸不尽相同，但所有图片的宽度已经统一变更为4厘米，而且纵横比并没有发生变化。
如果需要将图片的宽度设置为其他的数值，只需要对VBA宏代码中的相应数据作简单修改即可。
实例18：实现图形的精确旋转(责任编辑：admin) | 
