在图像之前插入分段符

Question

如何创建宏以在文件中的每个图像之前插入分段符？

Answer 1

如果您的图片属于InlineShapes类型，则下面的代码可以解决问题：

Sub InsertParagraphBeforeInlinShapes()

    Dim iSHP As InlineShape
    For Each iSHP In ActiveDocument.InlineShapes

        ActiveDocument.Range(iSHP.Range.Start, _
                                iSHP.Range.Start).InsertParagraphBefore

    Next iSHP

End Sub