如下代码，为何F8逐句运行没有问题，而F5运行，会出现错误呢。。。。。

褪墨

Sub 图片转换为嵌入式并加2个段落标记()
Dim s As InlineShape
For Each s In ActiveDocument.InlineShapes
'' If s.Type = msoPicture Or _
'' s.Type = msoTextBox Or _
'' s.Type = msoCanvas Or _
'' s.Type = msoEmbeddedOLEObject Or _
'' s.Type = msoIgxGraphic Or _
'' s.Type = msoLinkedOLEObject Or _
'' s.Type = msoGroup Then
s.Select
Selection.Collapse Direction:=wdCollapseStart
Selection.TypeParagraph
s.Select
Selection.Collapse Direction:=wdCollapseEnd
Selection.TypeParagraph
' End If
Next s
End Sub

如上代码，为何F8逐句运行没有问题，而F5运行，会出现错误呢。。。。。

duquancai

看不懂！！！！！！

褪墨

duquancai 发表于 2017-5-17 18:42
看不懂！！！！！！

我想在文档内的所有嵌入式图片 之前 和 之后 都加一个段落标记。。。。。

褪墨

我发现不是这个SUB过程的问题。
而是我电脑的问题。
现在我这电脑的每个SUB过程，F5运行都会出现中断，而F8多次逐步运行都没有问题。

duquancai

按照你的代码，模仿写了一个：》》》》》》

Sub shishi()
    Dim doc As Document
    Set doc = ActiveDocument
    x = doc.InlineShapes.Count
    y = doc.Shapes.Count
    If x Then
        For i = x To 1 Step -1
            doc.InlineShapes(i).Select
            Selection.Collapse
            Selection.TypeParagraph
            doc.InlineShapes(i).Select
            Selection.Collapse 0
            Selection.TypeParagraph
        Next
    End If
  End Sub

duquancai

褪墨 发表于 2017-5-17 18:52
我想在文档内的所有嵌入式图片 之前 和 之后 都加一个段落标记。。。。。

Sub shishi()
    Dim doc As Document
    Set doc = ActiveDocument
    If doc.InlineShapes.Count Then
        For i = doc.InlineShapes.Count To 1 Step -1
            With doc.InlineShapes(i).Range
                .InsertBefore Chr(13)
                .InsertAfter Chr(13)
            End With
        Next
    End If
End Sub

褪墨

请问InlineShapes不是已经包含了 文档中的所有嵌入式图形了么。。。。
为啥 还要用Shapes(j).Type = 7呢。

一直对shape、inlineshaple，shapegoroup 这些shape类的对象，不太明白。。。。

duquancai

褪墨 发表于 2017-5-17 20:11
请问InlineShapes不是已经包含了 文档中的所有嵌入式图形了么。。。。
为啥 还要用Shapes(j).Type = 7呢。 ...

请你测试》》》》》》》》》》》》》》》》》》》》》》》》

Sub 嵌入对象前后插入回车()
    Dim doc As Document
    Set doc = ActiveDocument
    x = doc.InlineShapes.Count
    y = doc.Shapes.Count
    If x Then
        For i = x To 1 Step -1
            With doc.InlineShapes(i).Range
                .InsertBefore Chr(13)
                .InsertAfter Chr(13)
            End With
        Next
    End If
    If y Then
        For j = y To 1 Step -1
            If doc.Shapes(j).WrapFormat.Type = 7 Then
                With doc.Shapes(j).Anchor
                    .InsertBefore Chr(13)
                    .InsertAfter Chr(13)
                End With
            End If
        Next
    End If
End Sub

褪墨

会出现错误。。。

褪墨

duquancai 发表于 2017-5-17 20:16
请你测试》》》》》》》》》》》》》》》》》》》》》》》》

Sub 嵌入对象前后插入回车()

大神，你的代码会出现错误。