新建一个宏，贴入如下代码，执行即可。如果文章中图片较多可能会卡顿。
Sub centerPictures()
Dim shpIn As InlineShape, shp As Shape
For Each shpIn In ActiveDocument.InlineShapes
shpIn.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next shpIn
For Each shp In ActiveDocument.Shapes
shp.Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Next shp
End Sub

For something that turns out to be super-easy, there was not one place on the web that I could find this information. I needed to programmatically center all images in a Word document using Visual Basic for Applications (VBA). I searched high and low, and while I could find how to loop through all images, I couldn’t find how to center them. Then I turned to the macro writer’s best friend: the macro recorder. Duh! :blush:

It actually took me longer to find a document with pictures than it did to record the macro, see what it did, add it to my loops (see below), and test it.

You’ll notice that there are two loops in the code. That is so that it picks up inline figures as well wrapped figures.

今天在弄一个申请书的时候遇到了一个小问题，某一行行末需要空格留白加下划线。但是右对齐之后发现输入的空格全都跑到页面之外了，而且无法添加下划线，加了也没用。纠结了半天，在微软的帮助中心找到了答案。

http://support.microsoft.com/kb/97793/zh-cn

这是Word的一个特性，在 Word 中，您不能应用下划线字符格式设置为只包含空格行。如果您尝试将应用这种类型的格式设置为空格字符，下划线不显示或打印。

如果实在需要的话，使用以下过程之一来扩展行上文本的末尾的下划线：

• 要停止的下划线的行结尾处键入至少一个非换行空格。若要键入非换行空格，请按 CTRL + SHIFT + 空格键。

  -或者-

• 在您要停止的下划线的位置设置一个右对齐制表位。应用下划线格式选项卡。

  -或者-

• 设置带有实线，下划线引线右对齐的制表位。要执行此操作，请单击在制表符对话框 （格式菜单） 中选择引线 4 选项按钮。

如果您应用隐藏和下划线字符的格式设置为文本，下划线格式将显示在屏幕上，但它既不在打印预览中显示和打印。