Problem mit Style-Property in Word

[Wilfried Benner]

[Wilfried Benner]

ich versuche verzweifelt in einer RTF-Vorlage den Font aller Standard-Absätze zu ändern. Das geht laut VB-Hilfe über das Objekt PARAGRAPH und deren Property STYLE. In der importierten Typelibrary von Word97 (und auch Word2000) gibt es im Paragraph-Objekt aber keine Style-Property, wohl aber Get_Style. Nehme ich letztere, meckert beim Testen das Programm "Ungültige Variantopertion". Mache ich was falsch oder Word bzw. Delphi?

...
WordApp.documents.open(Template, EmptyParam, ...);
For i:=1 to WordApp.ActiveDocument.Paragraphs.Count do
begin
PF:=WordApp.ActiveDocument.Paragraphs.item(i);
If PF.get_style = wdStyleNormal then // hier kommt die Fehlermeldung
begin
//pf.Style.Font.Name:='Courier New';
end;
end

[Hendrik]

Hallo Wilfried,<br>
versuch's mal mit folgendem:<br>
PF.SELECT;<br>
Selection.Style.Font.Name:='Courier New';<br>
Hendri

[Wilfried Benner]

Hallo Hendrik,

ich habs mittlerweile rausgefunden, es geht mit der Range-Property:

...
For i:=1 to WordApp.ActiveDocument.Paragraphs.Count do
begin
PF:=WordApp.ActiveDocument.Paragraphs.item(i);
v1:=pf.Format.Get_Style;
If v1.NameLocal = 'Standard' then
pf.Range.Font.Name:=DefFont;
end;

Ich wollte ja nur die Absätze mit einem bestimmten Namen verändern, das geht halt nur mit Style