Problem mit Ole Formatvorlage

[Grolle]

Hi,

wie kann ich denn einem in einem Word Dokument erstellten Text sagen, dass er jetzt eine Überschrift ist?

Delphi-Quellcode:

  doc := WordApp.ActiveDocument;

  WordApp.Selection.TypeParagraph;
  WordApp.Selection.TypeText (Text := 'Test' );
  WordApp.Selection.Style := doc.Styles('Überschrift 1');

Da bekomme ich die Fehlermeldung: Styles ist keine Methode. Im Macro läufts aber doch genauso:gruebel:

Viele Grüße ...

[p80286]

versuch es mal mit

Code:

.Styles(name:="Überschrift 1")

Gruß
K-H

[Grolle]

Hi,

klappt auch nicht:

Zitat:

Die Methode Styles wird vom Automatisierungsobjekt nicht unterstützt

Greetz

[p80286]

Ich hab da noch etwas gefunden:

Zitat:

Im folgenden Beispiel wird festgelegt, dass die integrierte Formatvorlage Überschrift 1 nicht fett formatiert wird.

ActiveDocument.Styles(wdStyleHeading1).Font.Bold = False

Const wdStyleHeading1 = -2 (&HFFFFFFFE)

und das ist doch ungefähr das, was Du willst:

Zitat:

Im folgenden Beispiel wird dem ersten Absatz in der Auswahl die Formatvorlage Überschrift 1 zugewiesen.

Selection.Paragraphs(1).Style = wdStyleHeading1

Gruß
K-H

[Grolle]

Hi,

danke für deine Antwort. Leider funktioniert das nicht (Paragraphs ist keine Methode). Ich frage mich langsam, ob das überhaupt geht :? - da, im Netz gibts zu dem Thema gar nix.

Viele Grüße ...

[p80286]

Zitat:

Paragraphs ist keine Methode

Wenn ich mich richtig erinnere hast Du ein Problem mit der Zeichensetzung. Vor Urzeiten bin ich auch einmal vor diese Wand gelaufen. Ich weiß nur nicht mehr ob () gegen [] getauscht werden mußte oder = gegen := oder....
Schau mal was da sinnvoll sein könnte.

Gruß
K-H

[toms]

Delphi-Quellcode:

 doc := WordApp.ActiveDocument; 
 WordApp.Selection.TypeParagraph;
 WordApp.Selection.TypeText (Text := 'Test' );
 Style := WordApp.ActiveDocument.Styles.Item(wdStyleHeading1);
 WordApp.Selection.Style := Style;