如何提取word2003自選圖形內的文字

WORD裏面的編程不會，妳可以將自選圖形粘貼到EXCEL，然後運行以下程序：

Sub?讀取自選圖形文本()

Dim?myshape?As?Shape

[a1].Activate

For?Each?myshape?In?ActiveSheet.Shapes

ActiveCell.Offset(1,?0).Activate

myshape.Select

ActiveCell.Value?=?Selection.Characters.Text

Next?myshape

End?Sub

——————————————————————————————————————————————————————?

如果不會粘貼宏程序，妳Hi我。