COM-Automation Word, Fusszeile löschen

[hoika]

Hallo,

ich versuche gerade krampfhaft, in einem Word-Dokument die Fusszeile zu löschen,
oder zumindestes den Inhalt.
Da ich den Inhalt nicht kenne, kann ich keines der Search&Replace-Bsp.-e benutzen.

Meine bisherigen Bemühungen seht ihr unten.
Klappt leider nicht ;(

Hat jemand einen Tip?

Danke


Heiko

PS: Späte Bindung benutze ich, um versionsunabhängiger zu sein.

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  WordApp: OLEVariant;
  D      : OLEVariant;
  S      : OLEVariant;
  F      : OLEVariant;
  Range  : OLEVariant;
begin
  DeleteFile('c:\temp10\3.doc');

  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;

  //WordApp.Visible:= False;

  WordApp.Documents.Open('c:\temp10\2.doc');

  D := WordApp.ActiveDocument;

  WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekPrimaryFooter;
  WordApp.Selection.Select;
  WordApp.Selection.Text := '';
Clear ??
Range ??

  WordApp.Selection.Font.Size := 20;
  WordApp.Selection.TypeText('Seite ');

(*
  S := D.Sections[1];
  F := S.Footers(1);
  Range := F.Range;

  Range.Select;
  Range.Clear;
*)

  WordApp.ActiveDocument.SaveAs('c:\temp10\3.doc');

  WordApp.Quit;
  WordApp := Unassigned;
end;

[Sherlock]

Es ist lange her, daß ich Word-Automation betrieb. Was ich mir behalten habe ist
1) Du musst immer den zu löschenden Text markieren (Range oder so)
2) Späte Bindung verlangsamt mindestens um den Faktor 10

Sherlock

[hoika]

Hallo,

meine bisherigen Bemühungen sind zumindestens vom Erfolg gekrönt!!!
Einziger Nachteil ist bei

WordApp.Selection.SetRange(0,10000);

die 10000.
Mehr habe ich auf jeden Fall nicht drin.

Eine Lösung ohne die 10000 wäre schön.
Ich finde aber kein SelectAll.

Danke

Heiko

Delphi-Quellcode:

procedure TForm67.Button3Click(Sender: TObject);
var
  WordApp: OLEVariant;
begin
  DeleteFile('c:\temp10\3.doc');

  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;

  WordApp.Visible:= False;

  WordApp.Documents.Open('c:\temp10\2.doc');

  WordApp.ActiveWindow.ActivePane.View.SeekView := wdSeekPrimaryFooter;

  WordApp.Selection.SetRange(0,10000);
  WordApp.Selection.Text := '';

  WordApp.ActiveDocument.SaveAs('c:\temp10\3.doc');

  WordApp.Quit;
  WordApp := Unassigned;
end;

[p80286]

So Suche ich und lösche bis zum Ende im Dokument, sollte aber auch in der Fußzeile gehen.

Code:

Selection.EndKey unit:=wdStory, Extend:=wdMove
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "---- delete hereof:"
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .CorrectHangulEndings = True
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = False
        .MatchFuzzy = False
    End With
    Selection.Find.Execute
    Selection.EndKey unit:=wdStory, Extend:=wdExtend
    Selection.Delete

Gruß

K-H

[hoika]

Hallo Sherlock,

mit dem Speedverlust muss ich leben,
weil das TWordApplication Methoden bereitstellt,
die je nach Word-Version andere Parameter haben.


Heiko

[EarlyBird]

Versuch es mal so:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
  WordApp: OLEVariant;
  D : OLEVariant;
  S : OLEVariant;
  F : OLEVariant;
  Range : OLEVariant;
begin
  DeleteFile('c:\temp10\3.doc');

  try
    WordApp := CreateOLEObject('Word.Application');
  except
    on E: Exception do
    begin
      Exit;
    end;
  end;

  //WordApp.Visible:= False;

  D :=WordApp.Documents.Open('c:\temp10\2.doc');
  D.sections[1].footers[1].range.Delete;
  WordApp.ActiveDocument.SaveAs('c:\temp10\3.doc');

  WordApp.Quit;
  WordApp := Unassigned;
end;

[Sir Rufo]

@EarlyBird

So eine windige Konstruktion mit dem try .. except habe ich auch noch nicht gesehen

Nimm wenigstens statt Exit (bricht die aktuelle Methode/Prozedur ab) Abort (stille Exception) oder lass es ganz weg und fang das mit Application.OnException ab, dann kannst du das wenigstens noch protokollieren.

[EarlyBird]

Zitat von Sir Rufo:

@EarlyBird

So eine windige Konstruktion mit dem try .. except habe ich auch noch nicht gesehen

Der Code kam vom TE.
Ich habe nur die Stelle zum löschen des Footers angepasst
Beim restlichen Code will ich dem TE ja nicht ins Handwerk pfuschen

[Sir Rufo]

Zitat von EarlyBird:

Zitat von Sir Rufo:

@EarlyBird

So eine windige Konstruktion mit dem try .. except habe ich auch noch nicht gesehen

Der Code kam vom TE.
Ich habe nur die Stelle zum löschen des Footers angepasst
Beim restlichen Code will ich dem TE ja nicht ins Handwerk pfuschen

stimmt ... (gibts hier keinen Tomaten-Auf-Den-Augen Smiley?)

[hoika]

Hallo,

windig ???

Ist doch nur zum Testen.

Ich schau mir den Code nachher auf Arbeit an.
Danke.

Heiko