[高手请进]插入书签位置调整的问题

hao123

导入外部文件中的某个书签,想使插入的内容跟随光标如何做?详见附件

MfjWaOkG.rar (10.39 KB, 下载次数: 19)

2007-1-27 10:45 上传

点击文件名下载附件
[高手请进]插入书签位置调整的问题

守柔

楼主的意思是在当前光标位置插入目标图形吗？

hao123

是的，对于镶嵌型好象可以，但四周型及浮于文字上方等就不对了

[此贴子已经被作者于2007-1-27 11:13:53编辑过]

守柔

我只是做了个示例，楼主可自行加入修改

Private Sub CommandButton2_Click()
    Dim grt1 As String, myRange As Range
    Dim bk As String, myShape As Shape
    Dim sinLeft As Single, sinTop As Single
    If OptionButton1.Value = True Then
        bk = "图形01"
    End If
    If OptionButton2.Value = True Then
        bk = "图形02"
    End If
    If OptionButton3.Value = True Then
        bk = "图形03"
    End If
    grt1 = ActiveDocument.AttachedTemplate.Path
    sinLeft = Selection.Information(wdHorizontalPositionRelativeToPage)
    sinTop = Selection.Information(wdVerticalPositionRelativeToPage)
    Selection.InsertFile FileName:=grt1 & "\图库.doc", Range:=bk, ConfirmConversions:=False, Link:=False, Attachment:=False
    Unload Me
    Set myShape = ActiveDocument.Shapes(ActiveDocument.Shapes.Count)
    With myShape
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .Left = sinLeft
        .RelativeVerticalPosition = wdRelativeVerticalPositionPage
        .Top = sinTop
        .WrapFormat.Type = wdWrapInline'根据你自己的情况进行处理,是否需要此设置
    End With
End Sub