دسترسی به اشیاء درون یک فایل Word

[kimia1]

سلام
می خوام بدونم چجوری میتونم از درون یک فایل Word که اشیاء مختلفی مثل Textbox,Line و ... وجود داره ، فقط ه TextBox ها را پیدا کنم. با کد زیر میشه متن درون TextBox را عوض کرد اما به شرطی که تمام اشیاء TextBox باشن. اگه این وسط یک Line باشه چون خاصیت متن نداره، خطا میگیرهن بصورت پیش

for i := 1 to MSWord.ActiveDocument.Shapes.Count do
begin
if Trim(MSWord.ActiveDocument.Shapes.Item(i).TextFram e.TextRange) = 'T1' then
MSWord.ActiveDocument.Shapes.Item(i).TextFrame.Tex tRange.text:='MyText';

end;
در ضمن بهترین راه برای دسترسی به textBox شماره اون هست یا این که یک متن درون آن بصورت پیش فرض نوشت و سپس TextBox ی که این متن را داره پیدا کرد(مانند کد بالا)؟