Oscar Sun

                  Sub 將inlineshape中的替代文字擷出至次欄()
Dim c As Cell
For Each c In ActiveDocument.Tables(1).Columns(1).Cells
    If c.Range.InlineShapes.Count > 0 Then
        c.Next.Range.Text = c.Range.InlineShapes(1).AlternativeText
    Else
        c.Next.Range.Text = c.Range.Text
    End If
Next c
End Sub