خواندن heading از فايل doxc در دلفي

[fa_search]

سلام . وقت بخير
يك فايل ورد دارم كه تعدادي heading داره . ميخوام اونها رو بخونم . وقتي فايل ورد رو باز ميكنم ليست heading ها رو ميده .
var
MSWord := CreateOleObject('Word.Application');

MSWord.Visible := True;
Document := MSWord.Documents.open('C:\test.doc');

rngDocument := Document.Content;

Headers := Document.Sections.Item(1).Headings;
rngHeader := Headers.Item(wdHeaderFooterPrimary).Range;

rngHeader.Text := 'Header Line 1'#13;
rngHeader.Font.Bold := True;
rngHeader.Collapse(wdCollapseEnd);
rngHeader.Text := 'Header Line 2';
rngHeader.Font.Bold := False;

با اين دستورات header اضافه و خوانده ميشود ولي heading نه .
چطور ميتونم heading را از ليست بخونم ؟

[Mask]

سلام . وقت بخير
يك فايل ورد دارم كه تعدادي heading داره . ميخوام اونها رو بخونم . وقتي فايل ورد رو باز ميكنم ليست heading ها رو ميده .
var
MSWord := CreateOleObject('Word.Application');

MSWord.Visible := True;
Document := MSWord.Documents.open('C:\test.doc');

rngDocument := Document.Content;

Headers := Document.Sections.Item(1).Headings;
rngHeader := Headers.Item(wdHeaderFooterPrimary).Range;

rngHeader.Text := 'Header Line 1'#13;
rngHeader.Font.Bold := True;
rngHeader.Collapse(wdCollapseEnd);
rngHeader.Text := 'Header Line 2';
rngHeader.Font.Bold := False;

با اين دستورات header اضافه و خوانده ميشود ولي heading نه .
چطور ميتونم heading را از ليست بخونم ؟
برای این امور سریعترین راه استفاده از کامپوننتهای امادست. اما میتونین فایل رو بصورت استریم باز کنین و کلیه ساختار رو ببینین.

[hp1361]

سلام . وقت بخير
يك فايل ورد دارم كه تعدادي heading داره . ميخوام اونها رو بخونم . وقتي فايل ورد رو باز ميكنم ليست heading ها رو ميده .
var
MSWord := CreateOleObject('Word.Application');

MSWord.Visible := True;
Document := MSWord.Documents.open('C:\test.doc');

rngDocument := Document.Content;

Headers := Document.Sections.Item(1).Headings;
rngHeader := Headers.Item(wdHeaderFooterPrimary).Range;

rngHeader.Text := 'Header Line 1'#13;
rngHeader.Font.Bold := True;
rngHeader.Collapse(wdCollapseEnd);
rngHeader.Text := 'Header Line 2';
rngHeader.Font.Bold := False;

با اين دستورات header اضافه و خوانده ميشود ولي heading نه .
چطور ميتونم heading را از ليست بخونم ؟

سلام

دقیقاً بگید چه چیزی میخواهید و چه کاری قراره برنامه انجام بده؟