Entwickler-Ecke

Sonstiges (Delphi) - MsWord Kopfzeile editieren, wer kennt sich aus?


jazz.l - So 01.10.06 12:33
Titel: MsWord Kopfzeile editieren, wer kennt sich aus?
Hat von euch schon jemand Text in die Kopfzeile eines Worddokumentes geschrieben?

Bin wie folgt vorgegangen:

Hab folgendes Makro aufgenommen:


Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
 
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
        ActiveWindow.Panes(2).Close
    End If
    If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
        ActivePane.View.Type = wdOutlineView Then
        ActiveWindow.ActivePane.View.Type = wdPrintView
    End If
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    Selection.TypeText Text:="blablabla"
    ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument


Einige Befehle müssen dabei glaube ich nicht ins Delphi übernommen werden.

wenn ich die Zeile:

Quelltext 
1:
 
    ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


übernehmen will, dann bekomme ich beim Compilieren immer einen Fehler bei "wdSeekCurrentPageHeader".

Hab leider auch im Netz dazu bis jetzt nicht gescheites gefunden.

Deshalb brauche ich dringend eure Hilfe!!!

Gruß

Jazz.L


Keldorn - So 01.10.06 16:09
Hallo

code ist hier aus einem Bsp hier aus dem Forum

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
 
procedure TForm1.Button1Click(Sender: TObject);  
Var _index,_Richtext:olevariant;  
begin  
  //eine Wordapplication auf die Form, alle einstellugen so lassen  
  WordApplication1.Connect;  
  try  
    //neues Dokument hinzufügen und zu diesem verbinden  
    WordDocument1.ConnectTo(WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam));  
    WordApplication1.Selection.TypeText('Hallo');  

 
    //Kopzeile anzeigen und Text einfügen  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageHeader;  
    _index := 'Erstellt von, Seite, Datum';  
    _Richtext:=true;  
    WordApplication1.NormalTemplate.AutoTextEntries.Item(_index).Insert(WordApplication1.Selection.range,_richtext);  

 
    //fußzeile anzeigen und Text einfügen  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekCurrentPageFooter;  
    _index := 'Seite X von Y';  
    _Richtext:=true;  
    WordApplication1.NormalTemplate.AutoTextEntries.Item(_index).Insert(WordApplication1.Selection.range,_richtext);  
    //text zentrieren  
    WordApplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;  

 
    //wieder zurück zum Dokument  
    WordApplication1.ActiveWindow.ActivePane.View.SeekView := wdSeekMainDocument;  

 
    //"Enter" und nochmal was vom Text  
    WordApplication1.Selection.TypeParagraph;  
    WordApplication1.Selection.TypeText('blabla');  
    //worddocument close, save etc. -> Forensuche  
  finally  
    WordApplication1.Disconnect;  
  end;  
end;


Zitat:

wenn ich die Zeile:
Quelltext

Delphi-Quelltext 
1:
 
     ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader


übernehmen will, dann bekomme ich beim Compilieren immer einen Fehler bei "wdSeekCurrentPageHeader".

a) in Delphi muß es := statt = heißen und b) "einen Fehler", da es leider mehr als einen gibt, wäre eine Angabe der Fehlerbeschreibung sicher hilfreich fürs helfen

Mfg Frank


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!