word利用宏使图片环绕为上下型，不可重叠，水平相对栏居中，竖直顶端对齐行。

specter119

新手，这几天看了很多word利用宏进行图片排版的东西，网上这方面东西不算多。想达到题目的标准，选定图片时候运行宏也行，对所有图片都直接加载也可以。
这是我查到的WrapFormat.Type属性：
wdWrapInline
wdWrapNone
wdWrapSquare
wdWrapThrough
wdWrapTight
wdWrapTopBottom
http://msdn.microsoft.com/en-us/library/microsoft.office.interop.word.wrapformat.type(v=office.14).aspx?cs-save-lang=1&cs-lang=csharp#code-snippet-1
如果没有意外，那么最后一个就是上下型环绕了。但是相对于栏相对于行对齐，我始终没有找到相关的代码。
望论坛各位大神能给出解决方案，谢谢。

specter119

竖直对齐
wdRelativeVerticalPositionLine 3 相对于线。
wdRelativeVerticalPositionMargin 0 相对于边距。
wdRelativeVerticalPositionPage 1 相对于页面。
wdRelativeVerticalPositionParagraph 2 相对于段落。
wdRelativeVerticalPositionBottomMarginArea 5 相对于下边距。
wdRelativeVerticalPositionInnerMarginArea 6 相对于内空白区。
wdRelativeVerticalPositionOuterMarginArea 7 相对于外空白区。
wdRelativeVerticalPositionTopMarginArea 4 相对于上边距。
横向对齐
wdRelativeHorizontalPositionCharacter 3 相对于字符。
wdRelativeHorizontalPositionColumn 2 相对于列。
wdRelativeHorizontalPositionMargin 0 相对于边距。
wdRelativeHorizontalPositionPage 1 相对于页面。
wdRelativeHorizontalPositionInnerMarginArea 6 相对于内空白区。
wdRelativeHorizontalPositionLeftMarginArea 4 相对于左边距。
wdRelativeHorizontalPositionOuterMarginArea 7 相对于外空白区。
wdRelativeHorizontalPositionRightMarginArea 5 相对于右边距。

specter119

自己搞定
Sub 图片环绕更改()
'图片整理宏
'将图片调节为上下环绕，顶端与行对齐，左右相对于栏居中。测试于XP OFFICE2007SP2。
    On Error Resume Next
    For Each iShape In ActiveDocument.InlineShapes '找到所有嵌入图片
    iShape.Select
        Set iShape = iShape.ConvertToShape
        With iShape
            .WrapFormat.Type = 4
            '0=四周型,1=紧密型,2=穿越型,3=浮于上方,4=上下型,5=浮于下方
            .WrapFormat.AllowOverlap = False    '不允许重叠
            .RelativeVerticalPosition = 3       '纵向相对于行对齐
            '0=页边距,1=页面,2=段落,3=行,4=上边距,5=下边距,6=近边距,7=远边距
            .RelativeHorizontalPosition = 2     '横向相对于栏对齐
            '0=边距,1=页面,2=栏,3=字符,4=左边距,5=右边距,6=近边距,7=远边距
            .Top = wdShapeTop
            .Left = wdShapeCenter
        End With
    Next iShape
End Sub

MCXY

受益了，感谢！

常扬帆

谢谢楼主，Windows7也可以。不过能否进一步呢？↓