Delphi-PRAXiS :: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Rahmen in der Kopfzeile von Word zeichnen (OLE) Ein Delphi (Win32)-Thema von little_budda. Vorheriges Thema anzeigen \| Nächstes Thema anzeigen

Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi
Seite 1 von 1 [ 12 Beiträge ]

Autor

Nachricht

little_budda	#1\|Verfasst am: 25.07.2008, 10:41 Titel: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Sprache: Delphi (Win32)

Hallo,

ich habe folgenden Code mit dem Makrorecorder von Word aufgezeichnet

Delphi-Quellcode:

zusammenfalten | markieren

// Dies ist VBA Code, aber als Zitat wird er leider nicht eingerückt dargestellt
With Selection.ParagraphFormat
.Borders(wdBorderLeft).LineStyle = wdLineStyleNone
.Borders(wdBorderRight).LineStyle = wdLineStyleNone
.Borders(wdBorderTop).LineStyle = wdLineStyleNone
With .Borders(wdBorderBottom)
.LineStyle = wdLineStyleSingle
.LineWidth = wdLineWidth050pt
.ColorIndex = wdAuto
End With
With .Borders
.DistanceFromTop = 1
.DistanceFromLeft = 4
.DistanceFromBottom = 1
.DistanceFromRight = 4
.Shadow = False
End With
End With

Nun habe ich versucht ihn in Delphi umzusetzen

Delphi-Quellcode:

zusammenfalten | markieren

...

var WordApp: OLEVariant;

...

With WordApp.Selection.ParagraphFormat do
begin
Borders(-2 {=wdBorderLeft}).LineStyle := 0; // = wdLineStyleNone
Borders(-4 {=wdBorderRight}).LineStyle := 0; // = wdLineStyleNone
Borders(-1 {=wdBorderTop}).LineStyle := 0; // = wdLineStyleNone
With Borders(-3 {=wdBorderBottom}) do
begin
LineStyle := 1; // = wdLineStyleSingle
LineWidth := 4; // = wdLineWidth050pt
ColorIndex := 0; // = wdAuto
end;
With Borders do
begin
DistanceFromTop := 1;
DistanceFromLeft := 4;
DistanceFromBottom := 1;
DistanceFromRight := 4;
Shadow := False;
end;
end;

Beim Compilieren bringt mir die IDE immer einen fehler "Record, Objekt oder Klassentyp erforderlich" bei

Delphi-Quellcode:

markieren

With WordApp.Selection.ParagraphFormat do

Was bitte mache ich denn falsch?

Gruß Holger.

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

Sherlock	#2\|Verfasst am: 25.07.2008, 11:41 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

aktives Mitglied
Alter: 38
Status: offline
Beiträge: 303
angemeldet: 10.01.2006
Wohnort: Offenbach
Delphi 7 Professional

Ich würde grundsätzlich erstmal auf das Aufhübschen mit "with" verzichten, das macht das Debuggen leichter.

Dann würde ich nicht per Variant Word einbinden, weil das einfach nur viiiieeeel zu langsam ist. Es gibt doch in Delphi MS-Office Komponenten, falls nicht, kannst Du die OLE-Server selber einbinden. Nimm die, da ist dann alles dabei was Du brauchst, und Codecompletion funktioniert auch.

Edit: Mal davon abgesehen, ist "Selection" eine Property von Document oder ActiveDocument. Du gehst aber auf WordApp. Du müsstest also

Delphi-Quellcode:

markieren

WordApp.ActiveDocument.Selection

verwenden.

Sherlock

Zuletzt bearbeitet von Sherlock am 25.07.2008, 11:43, insgesamt 1-mal bearbeitet.

little_budda	#3\|Verfasst am: 25.07.2008, 11:46 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Hallo,

Zitat:

Du müsstest also ...
WordApp.ActiveDocument.Selection
... verwenden.

Habe ich schon im Vorfeld probiert.
Es wird derselbe Fehler erzeugt.

[Edit]
Die Variante ohne With habe ich auch schon hinter mir.
Bsp: WordApp.Selection.ParagraphFormat.Borders(-2 {=wdBorderLeft}).LineStyle := 0; // = wdLineStyleNone
Klappt auch nicht.
[/Edit]

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

Zuletzt bearbeitet von little_budda am 25.07.2008, 11:49, insgesamt 1-mal bearbeitet.

little_budda	#4\|Verfasst am: 25.07.2008, 13:58 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Ich habe mich vertan, die Fehlemeldung ist nicht dieselbe.
Bei der variante ohne With

Delphi-Quellcode:

markieren

WordApp.Selection.ParagraphFormat.Borders(-2 {wdBorderLeft}).LineStyle := 0; // = wdLineStyleNone

kommt : "Borders ist keine Methode".

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

Sherlock	#5\|Verfasst am: 25.07.2008, 14:18 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

aktives Mitglied
Alter: 38
Status: offline
Beiträge: 303
angemeldet: 10.01.2006
Wohnort: Offenbach
Delphi 7 Professional

Dann setzt die Parameter von Borders in eckige Klammern. Borders ist eine Aufzählung der Border-Objekte.

Vergleiche dazu die VB-Hilfe:

Zitat:

Borders-Eigenschaft
Gibt eine Borders-Auflistung zurück, die alle Rahmen für das angegebene Objekt repräsentiert.

Sherlock

Zuletzt bearbeitet von Sherlock am 25.07.2008, 14:20, insgesamt 1-mal bearbeitet.

little_budda	#6\|Verfasst am: 25.07.2008, 14:58 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Ne, klappt auch nicht
Mit

Delphi-Quellcode:

markieren

WordApp.Selection.ParagraphFormat.Borders[-2].LineStyle := 0;

Erhalte ich "Items ist keine Eigenschaft".

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

Sherlock	#7\|Verfasst am: 25.07.2008, 15:16 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

aktives Mitglied
Alter: 38
Status: offline
Beiträge: 303
angemeldet: 10.01.2006
Wohnort: Offenbach
Delphi 7 Professional

Argh...ich erinnere mich, daß das viel rumgespiele war. Wie siehts mit Borders.Border[-2] aus?

Sherlock

little_budda	#8\|Verfasst am: 25.07.2008, 15:20 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Resultat:
"Die Methode 'Border' wird vom Automatisierungsobjekt nicht unterstützt.

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

p80286	#9\|Verfasst am: 25.07.2008, 15:29 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

sehr aktives Mitglied
Status: offline
Beiträge: 98
angemeldet: 28.04.2008
Wohnort: Düsseldorf
Delphi 7 Personal

Hallo zusammen,

wahrscheinlich dummer Einwand aber -2 als Index?

Gruß
K-H

Sherlock	#10\|Verfasst am: 25.07.2008, 15:33 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

aktives Mitglied
Alter: 38
Status: offline
Beiträge: 303
angemeldet: 10.01.2006
Wohnort: Offenbach
Delphi 7 Professional

Das ist lediglich die Übersetzung der Konstanten
wdBorderLeft ist dann halt -2

Das hat sich einer von Bills Jungs ausgedacht.

Edit: Macht aber natürlich Probleme, weil negative Indizes a bisserl problematisch sein dürften. Oh weh....ich kram mal mein altess Word-Projekt raus.

Sherlock

Zuletzt bearbeitet von Sherlock am 25.07.2008, 15:40, insgesamt 1-mal bearbeitet.

little_budda	#11\|Verfasst am: 25.07.2008, 15:44 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

Mitglied
Alter: 39
Status: offline
Beiträge: 192
angemeldet: 05.05.2006
Wohnort: Velbert
Delphi 2006 Professional

Ich habs.
So gehts

Delphi-Quellcode:

markieren

WordApp.Selection.ParagraphFormat.Borders.item(-2).LineStyle := 0;

Danke für die Hilfe

Glück findet sich nicht im Code

Gefahren werden ist nur solange schön wie man selbst nicht lenken möchte ...

p80286	#12\|Verfasst am: 25.07.2008, 17:09 Titel: Re: Rahmen in der Kopfzeile von Word zeichnen (OLE)

sehr aktives Mitglied
Status: offline
Beiträge: 98
angemeldet: 28.04.2008
Wohnort: Düsseldorf
Delphi 7 Personal

Hallo Little_budda,

Du warst eine ganze Ecke schneller als ich. Hier meine Version (index als Hex-Darstellung).

Delphi-Quellcode:

zusammenfalten | markieren

msword.Selection.ParagraphFormat.Borders.item($FFFFFFFE).LineStyle:= 0;

msword.Selection.ParagraphFormat.Borders.item($FFFFFFFC).LineStyle:= 0;
msword.Selection.ParagraphFormat.Borders.item($FFFFFFFF).LineStyle:= 0;

msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).LineStyle := 1 ;
msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).LineWidth := 4 ;
msword.Selection.ParagraphFormat.Borders.item($FFFFFFFD).ColorIndex := 0;

msword.Selection.ParagraphFormat.Borders.DistanceFromTop := 1;
msword.Selection.ParagraphFormat.Borders.DistanceFromLeft := 4 ;
msword.Selection.ParagraphFormat.Borders.DistanceFromBottom := 1;
msword.Selection.ParagraphFormat.Borders.DistanceFromRight := 4 ;
msword.Selection.ParagraphFormat.Borders.Shadow := False ;

Grüße
K-H

Anzeige-Optionen:

Delphi-PRAXiS Forum - Übersicht -> Sonstige Fragen zu Delphi	Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1 [ 12 Beiträge ]

Gehe zu:

Du darfst keine Beiträge in dieses Forum schreiben.
Du darfst auf Beiträge in diesem Forum nicht antworten.
Du darfst Deine Beiträge in diesem Forum nicht bearbeiten.
Du darfst Deine Beiträge in diesem Forum nicht löschen.
Du darfst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten.
Du kannst Dateien in diesem Forum nicht herunterladen.

Impressum / Kontakt Allgemeine Geschäftsbedingungen Verhaltenskodex & FAQ		Delphi-PRAXiS V.2005 III © 2002-2008 by Daniel R. Wolf powered by phpBB © phpBB Group