Image 在图像前插入段落分隔符

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

如果您的图像是

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

---

欢迎来到StackOverflow！如果你问的是如何创建宏？，StackOverflow就不是这样一个宽泛而不具体的问题。如果您编写的宏不起作用，请显示该宏，并解释为什么它不起作用。