Office Word vba:如何在合并单元后插入列？表外的某些单元格

Dim rng As Range
Set rng = Range("A1") ' 替换为实际的单元格地址

Dim mergeRange As Range
Set mergeRange = rng.MergeArea

mergeRange.UnMerge

mergeRange.Offset(0, 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

Sub InsertColumnAfterMerge()
    Dim rng As Range
    Set rng = Range("A1") ' 替换为实际的单元格地址
    
    Dim mergeRange As Range
    Set mergeRange = rng.MergeArea
    
    mergeRange.UnMerge
    
    mergeRange.Offset(0, 1).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub