CreateOleObject('Word.Application') - Dotx öffnen aber docx bekommen, wie?

[Piro]

Moin zusammen,

ich habe ein Datei vorlage.dotx, welche ich öffne und mit Daten fülle.
Diese Vorlage ist schreibgeschützt. Der Schreibschutz wird deaktiviert, beim Füllen der Daten.

Das klappt auch alles super. Hier der Code

Delphi-Quellcode:

const
 wdAllowOnlyFormFields = $00000002; // http://www.delphigroups.info/2/d4/455196.html
..
try
   {Verbindung aufbauen}
   Word:=CreateOleObject('Word.Application');
 except
   {Schlägt sie fehl (Word nicht installiert), gibt es eine Fehlermeldung}
   ShowMessage('Microsoft Word kann nicht starten.');
   Screen.Cursor:=crDefault;
   Exit;
 end;

 word.visible:=true;
 word.Documents.Open(doc); // doc = vorlagen.dotx

try
   word.ActiveDocument.Unprotect;

   if word.ActiveDocument.Bookmarks.Exists('Titel') then
   begin
     r := word.ActiveDocument.Bookmarks.Item('Titel').Range;
     r.InsertAfter(lbl_titel.Caption);
   end;

   if word.ActiveDocument.Bookmarks.Exists('Beschreibung') then
   begin
     r := word.ActiveDocument.Bookmarks.Item('Beschreibung').Range;
     r.InsertAfter(edt_beschreibung.Text);
   end;

   word.ActiveDocument.Protect(wdAllowOnlyFormFields);
 finally
   word:=unassigned;
 end;

Leider wird nicht ein docx Dokument geöffnet sondern, dass dotx Dokument und wenn man nicht aufpasst und speichert, werden die Änderungen übernommen.

Starte ich aber das dotx Dokument, macht Word ein docx Dokument auf.

Welcher Schalter fehlt mir, damit das Öffnen aus Delphi mit meinem Code aus der vorlagen.dotx ein document.docx macht?

Danke im Voraus.
Sven

[Jumpy]

Müsste das nicht Documents.Add sein, mit dem Namen der Vorlage als Paramter?
Denn du willst ja nicht die Vorlage öffnen sondern ein neues Dokument auf Basis der Vorlage erstellen.

[Piro]

Vielen vielen Dank.

Das war es.

Einen habe ich dann doch noch. Mit folgendem Code, öffnet Word sich mit dem dotx Dokument.

Delphi-Quellcode:

var
 doc : String;
begin
 doc := frm_main.AppPath + 'data\formulare\vorlage.dotx';
 if FileExists(doc) then
 begin
   ShellExecute(0, 'open', PChar(doc), nil, nil, SW_NORMAL );
 end;

Gibt es hier auch eine Möglichkeit, dass ein docx Dokument geöfnnet wird?

[Jumpy]

C:\Programme\Microsoft Office\OFFICE11\winword.exe Word-Datei

[Piro]

Ah ok, damit würde ich aber die Office Version vorgeben.

Das schöne mit meiner Lösung ist, dass ich das das verlinkte Office nehme zum Dateityp. Bei einem Office Wechsel,
muss ich nicht den Pfad zum Office angeben.

Oder ich mache das auch mit CreateOleObject('Word.Application') wenn es keine einfache Lösung gibt.

Aus der Registry, dass Word auslesen, wollte ich eigentlich nicht.

[Delphi.Narium]

Delphi-Quellcode:

var
 doc : String;
begin
 doc := frm_main.AppPath + 'data\formulare\dokumentenname.docx';
 if FileExists(doc) then
 begin
   ShellExecute(0, 'open', PChar(doc), nil, nil, SW_NORMAL );
 end;

[Piro]

es gibt doch nur die vorlagen.dotx Datei.

Ich möchte das diese als Vorlage geöffnet wird und Word dann ein normale docx Datei öffnet, wie in meinem vorherigen Code.

[p80286]

Zitat von Piro:

ich habe ein Datei vorlage.dotx, welche ich öffne und mit Daten fülle.

Erstelle ein neues Dokument mit Hilfe der Vorlage und speichere es im gewünschten Format ab.
Deine Vorgehensweise wird zwar oft angewandt ist aber schlicht falsch.

Gruß
K-H

[Schokohase]

Falls sich noch jemand dafür interessiert, wie das per ShellExecute funktioniert

Delphi-Quellcode:

var
 doc : String;
begin
 doc := frm_main.AppPath + 'data\formulare\vorlage.dotx';
 if FileExists(doc) then
 begin
   ShellExecute(0, 'new', PChar(doc), nil, nil, SW_NORMAL );
 end; 
end;

• open - öffnet die Vorlage zum Bearbeiten
• new - erstellt ein Dokument auf Basis der Vorlage und öffnet dieses zum Bearbeiten

[Jumpy]

Das "new" kannte ich noch nicht, als mögliches Command für ShellExecute. Funzt das nur bei Word?