如何在Word的InlineShapes之间添加段落以支持转表格？

嘿，我完全懂你的困扰——那些挤在一起的InlineShape因为没段落分隔，导致没法用段落当分隔符转成表格对吧？这就给你调整代码，实现自动在每个InlineShape之间插入段落标记：

Sub AddParagraphsBetweenInlineShapes()
    Application.ScreenUpdating = False ' 关闭屏幕更新，提升运行速度
    
    Dim doc As Document
    Dim iShape As InlineShape
    Dim totalShapes As Long
    Dim i As Long
    
    Set doc = ActiveDocument
    totalShapes = doc.InlineShapes.Count
    
    ' 从后往前遍历，避免插入段落导致的索引混乱
    For i = totalShapes To 2 Step -1
        Set iShape = doc.InlineShapes(i)
        ' 定位到当前InlineShape的末尾位置，插入段落标记
        iShape.Range.InsertAfter vbCrLf
    Next i
    
    Application.ScreenUpdating = True ' 恢复屏幕更新
    MsgBox "已完成段落插入！", vbInformation
End Sub

代码说明： #

• 采用从后往前遍历的方式：因为在文本流里插入段落会改变前面内容的位置，从后往前操作能避免索引错位的问题。
• 使用vbCrLf插入段落标记，这是Word里标准的段落分隔符。
• 关闭ScreenUpdating能让宏运行得更快，不会看到屏幕频繁闪烁。

运行这个宏之后，所有相邻的InlineShape之间就会自动生成段落分隔了。这时候你只需选中包含这些形状的内容，执行「Convert Text to Table」操作，选择段落作为分隔符，就能顺利转换成表格啦。

内容的提问来源于stack exchange，提问作者R. Ben