如何将图片插入到指定的位置？

高副司令

在word文件中有一个域名为“印章”的域，如何将图片插入到该域的位置。   

 Dim oField As Field
    For Each oField In ActiveDocument.Fields
        If oField.Result = "印章" Then
            Set picObject = ActiveDocument.Shapes.AddPicture("c:\yinzhang.gif", False, True)
            picObject.PictureFormat.TransparentBackground = -1
            picObject.PictureFormat.TransparencyColor = RGB(255, 255, 255)
            picObject.Fill.Visible = 0
        End If
    Next
    Set oField = Nothing

高副司令

这是我将域“发文编号”替换为指定的文本的代码，只是不知道如何将图片，插入到指定的位置

Sub SetWordField()
    Dim oField As Field
    For Each oField In ActiveDocument.Fields
        If oField.Result = "发文编号" Then
            oField.Select
            Selection.TypeText "替换的内容"
        End If
    Next
    Set oField = Nothing
End Sub

守柔

QUOTE:

以下是引用高副司令在2007-3-1 16:27:40的发言：

在word文件中有一个域名为“印章”的域，如何将图片插入到该域的位置。   

 Dim oField As Field
    For Each oField In ActiveDocument.Fields
        If oField.Result = "印章" Then
            Set picObject = ActiveDocument.Shapes.AddPicture("c:\yinzhang.gif", False, True)
            picObject.PictureFormat.TransparentBackground = -1
            picObject.PictureFormat.TransparencyColor = RGB(255, 255, 255)
            picObject.Fill.Visible = 0
        End If
    Next
    Set oField = Nothing

如果必须使用浮动式图片，可以设置其位置等于该域文本所在位置（LEFT，TOP与文本的INFORAMTION属性）

如果可以使用嵌入式图片，可以直接使用Selection.InlineShapes.AddPicture FileName或者RANGE对象的方式定位。

如果还有疑问，请直接上传你的示例文档，印章可以不要，我看一下，是否有必须要域中循环。

joe52540

看起来很厉害