[求助]嵌入型转为上下环绕型的问题，请守柔版主帮忙看看

duke008 · 发表于 2006-3-24 14:46

Sub pic2() Dim j As InlineShape For Each j In ActiveDocument.InlineShapes j.ConvertToShape.WrapFormat.Type = wdWrapSquare Next j End sub 运行时错误'-2147467259(80004005)': 方法'ConvertToShape'作用于'InlineShape'时失效请问守柔版主，这是怎么回事啊？

phPsw4MZ.rar (140.4 KB, 下载次数: 42)

[此贴子已经被作者于2006-3-30 15:50:37编辑过]

守柔 · 发表于 2006-3-25 06:28

我这儿运行正常，你的代码看上去没有问题啊。

另外，我模拟了这个错误，是AUTOMATION自动化错误，而非方法'ConvertToShape'作用于'InlineShape'时失效。

请上传你的带有代码和嵌入式图形的示例文档。

谢谢。

duke008 · 发表于 2006-3-30 15:56

文件已上传。

我又试了几次。

我每次都是打开该文件，不进行其它任何操作，直接运行宏，结果有时能用，有时就出问题，完全搞不懂到底是怎么回事。

sgyzhzb · 发表于 2011-8-19 23:08

最近在研究嵌入型的此类问题，测试了一下，确实有这样的问题，希望有人能给与解答。

zhanglei1371 · 发表于 2015-4-5 10:51

最近我也遇到了同样的问题。
苦思不得答案。
因为这个错误并非所有电脑都会出现，比如守柔老大的就能正常运行。
至于说重新安装word，office来解决的说法，纯属扯淡；
因为vba环境运行其他的都没问题，肯定不是这里的原因。
怀疑是否是wordvba的bug

loquat · 发表于 2015-4-7 09:13

Sub pic()
Dim j As InlineShape, aShape As Shape
For Each j In ActiveDocument.InlineShapes
Set aShape = j.ConvertToShape
aShape.WrapFormat.Type = wdWrapSquare
Next j
End Sub

复制代码

adda · 发表于 2017-7-3 15:47

sgyzhzb 发表于 2011-8-19 23:08
最近在研究嵌入型的此类问题，测试了一下，确实有这样的问题，希望有人能给与解答。

挖个坟，最近我也遇到这个奇葩问题了，其实不是鼠标位置的关系，要被操作对象在当前屏幕中就不会出错，实在理解不了这是什么原因造成的，同样的附件在2010执行就没有任何问题。
猜测可能是OLE对象的问题，但完全不知道怎么解决啊。

thunor · 发表于 2017-7-4 11:43

楼主，在你的宏之前加入如下代码，你看看你的宏能运行吗？
Selection.WholeStory
With Selection.ParagraphFormat
      .LeftIndent = CentimetersToPoints(0)
      .RightIndent = CentimetersToPoints(0)
      .SpaceBefore = 0
      .SpaceBeforeAuto = False
      .SpaceAfter = 0
      .SpaceAfterAuto = False
      .LineSpacingRule = wdLineSpaceSingle
      .Alignment = wdAlignParagraphLeft
      .WidowControl = False
      .KeepWithNext = False
      .KeepTogether = False
      .PageBreakBefore = False
      .NoLineNumber = False
      .Hyphenation = True
      .FirstLineIndent = CentimetersToPoints(0)
      .OutlineLevel = wdOutlineLevelBodyText
      .CharacterUnitLeftIndent = 0
      .CharacterUnitRightIndent = 0
      .CharacterUnitFirstLineIndent = 0
      .LineUnitBefore = 0
      .LineUnitAfter = 0
      .AutoAdjustRightIndent = True
      .DisableLineHeightGrid = False
      .FarEastLineBreakControl = True
      .WordWrap = True
      .HangingPunctuation = True
      .HalfWidthPunctuationOnTopOfLine = False
      .AddSpaceBetweenFarEastAndAlpha = True
      .AddSpaceBetweenFarEastAndDigit = True
      .BaseLineAlignment = wdBaselineAlignAuto
End With

thunor · 发表于 2017-7-4 11:46

你的代码我下了，运行不能通过，我设置了一下段落，可以通过了。
怪就怪在：再次运行没经任何改动的、你的原文件，也可以通过了。竟然可以通过了！！

adda · 发表于 2017-7-4 17:16

不求甚解，原因还是没有查明，但找到了解决办法：
1、ConvertToInlineShape 不能用for each循环操作，可能会丢失个别对象的操作，可以自己写个do loop 或 for 循环，注意要用 ActiveDocument.Shapes(1).ConvertToInlineShape
2、ConvertToShape 前要先select，否则 80004005 错误
      Dim oInline As InlineShape
      Set oInline = ActiveDocument.InlineShapes(1)
      oInline.Select
      oInline.ConvertToShape.WrapFormat.Type = wdWrapTopBottom

感觉这两个堪称word神坑，只坑2007及低版本，好像2010开始就没有这样的问题。

		自动登录	找回密码
密码			免费注册