如何在当前页，当前光标位置插入自动图文集“图形”

gao2ming1

1如何在当前页，当前光标位置插入自动图文集“图形”？我用以下代码插入的图片在第一页，而不是光标所在页

2.还有当自动图文集插入的图形（自己录入的，自定义名称为bj），总是先出现在某个位置（这个位置大概是刚录入时候原有位置），然后才调整到定义位置。而且插入的位置好像并不是绝对的光标位置。

请高手相助

Sub bujian()

'从自动图文集中获取图形

On Error Resume Next

Dim x, y

x = Selection.Information(wdHorizontalPositionRelativeToPage)

y = Selection.Information(wdVerticalPositionRelativeToPage)

    ActiveDocument.Range(0, 0).Select

    Application.DisplayAutoCompleteTips = True

    ActiveDocument.AttachedTemplate.AutoTextEntries(bj).Insert Where _

        :=Selection.Range, RichText:=True

    ActiveDocument.Shapes(bj).Select 'bj为自动图文集的名称

    Selection.ShapeRange.Visible = msoTrue

Selection.ShapeRange.Top = y

Selection.ShapeRange.Left = x   

End Sub

konggs

简单的改了一下。

你试试：'从自动图文集中获取图形

Dim myTemplate As Template
Dim x
    x = Selection.Information(wdHorizontalPositionRelativeToPage)
    Set myTemplate = ActiveDocument.AttachedTemplate
    myTemplate.AutoTextEntries("a1").Insert where:=Selection.Range, RichText:=True

    ActiveDocument.Shapes(ActiveDocument.Shapes.Count).Left = x - Selection.Sections(1).PageSetup.LeftMargin
   
End Sub

gao2ming1

谢谢斑竹！横坐标恰好是光标的位置，但插入的纵坐标好像没有。

ActiveDocument.Range(0, 0).Select句我是想先“不选”，为得是不被替代。而这句老是让图形插到第一页

我改用Selection.Collapse,图形就插到当前页了

我把纵坐标设成这样

y = Selection.Information(wdVerticalPositionRelativeToPage)

  ActiveDocument.Shapes(ActiveDocument.Shapes.Count).top= 1 / 23 * y

差不多，不知道是不是因为单位不同导致的？

  ActiveDocument.Shapes(ActiveDocument.Shapes.Count).top= 1 / 23 * y

差不多，不知道是不是因为单位不同导致的？