Dim sel_Pic As InlineShape Dim sel_Shape As Shape Set sel_Pic = Selection.InlineShapes.AddPicture("C:\Documents and Settings\xinhai\桌面\未标题-1.gif") sel_Pic.Select Set sel_Shape = sel_Pic.ConvertToShape() 'Set sel_Shape.WrapFormat.Type = WdWrapType.wdWrapTight '这一句运行时出错 sel_Shape.ZOrder (msoBringToFront)