Création de document MSWord au format DOCX

Version imprimable

11/12/2020, 00h33
tonton67

Création de document MSWord au format DOCX

Bonjour,
J'arrive à créer un document MSword avec l'extension .doc
Comment peut-on créer un document avec l'extension .docx ?
Quand je le crée en .docx, Word ne peut pas l'ouvrir, mais il l'ouvre après avoir changé l'extension en .doc
Merci d'avance.
11/12/2020, 08h48
jurassic pork

hello,
il manque quelque chose d'essentiel à ta question : comment crées-tu le document dans Lazarus ? Montre-nous le code.

Ami calmant, J.P

Bonjour,
A partir du document '.DOT' ayant plusieurs signets, je dois y injecter des informations à l'emplacement des signets. à la fin je génère le document MSword en format '.DOC'.
Tout fonctionne.
Mais le format 'DOCX', je ne vois pas comment transformer mon code suivant :

Code:

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
40
41
42
43
44
45
 
function SortieWord():integer;
var
  ws: widestring;
  Docwd, WdApp, Bookmarkwd: OleVariant;
begin
  if Assigned(InitProc) then
    TProcedure(InitProc);
 
  try
    WdApp := CreateOleObject('Word.Application');
  except
    WriteLn('MS Word ne peut pas démarrer.');
    Result := -1;
  end;
  WdApp.Visible := False;
 
   { ouvrir un document .DOT ou un .DOTX }
  ws:= UTF8Decode('D:\tmp\doc1.dot');
  Docwd :=  WdApp.Documents.Open(ws, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                             EmptyParam, EmptyParam, EmptyParam);
  if Docwd.Bookmarks.Exists('Montant') then
     begin
        Bookmarkwd:= Docwd.Bookmarks.Item('Montant');
        ws := UTF8Decode('123.52€');
        varBookmark.Range.Text := ws;
     end;
......
......
  if Docwd.Bookmarks.Exists('DateEdition') then
     begin
        Bookmarkwd:= Docwd.Bookmarks.Item('DateEdition');
        ws := FormatDateTime('dd mmmm yyyy', Now);
        varBookmark.Range.Text := ws;
  end;
  Docwd.Range.Select;
  Docwd.Range.Copy;
  Docwd.SaveAs('D:\Tmp\Doc2.doc'); {si je fais :  Docwd.SaveAs('D:\Tmp\Doc2.DOCX'); le document est créé mais Word ne l'ouvre pas }
  Docwd.Close;         
  Bookmarkwd:= Unassigned;
  Docwd := Unassigned;
  WdApp.Quit;           
  Result := 0;
end;

Voilà mon code qui fonctionne avec le traitement du couple .DOT/.DOC
Merci d'avance.

11/12/2020, 12h43
jurassic pork

Quelle version de word as-tu ?
11/12/2020, 16h52
tonton67

MSword 2010.

Complément d'infos :
si je fais : Docwd.SaveAs('D:\Tmp\Doc2.DOCX'); le document est créé mais Word 2010 ne l'ouvre pas
Mais si je le renomme en format (.DOC), Word 2010 l'ouvre.
11/12/2020, 18h33
Jipété

Citation:

Envoyé par tonton67

Docwd.SaveAs

Documente-toi sur SaveAs2 : lecture1, lecture2
14/12/2020, 07h44
tonton67

Bonjour,
Avec 'SaveAs2', j'ai toujours le même problème : Création du document word 'doc1.docx', MSword 2010 ne reconnaît pas son format, mais en le renommant en 'doc1.doc', il s'ouvre.
J'ai testé avec MSword 2016, la commande : CreateOleObject('Word.Application'); ne peut pas créer une instance de MSword, tout s'arrête.
des erreurs avec le message :

Citation:

une classe d'exception EOleSysError ....

En conclusion, je reste avec la création des documents MSword en format '.doc'.
Merci pour vos suggestions.

hello,
voici un code qui fonctionne chez moi avec word 2010 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
procedure TForm1.Button5Click(Sender: TObject);
var
  ws: string;
  WdApp : OleVariant;
begin
  if Assigned(InitProc) then
    TProcedure(InitProc);
  try
    WdApp := CreateOleObject('Word.Application');
  except
    WriteLn('MS Word ne peut pas démarrer.');
  end;
  WdApp.Visible := False;
   { ouvrir un document .DOT ou un .DOTX }
  WdApp.Documents.Open('M:\temp\mondoc.dot');
// wdFormatDocumentDefault    16    Word default document file format. For Word, this is the DOCX format.
  WdApp.ActiveDocument.SaveAs2('M:\Temp\DocSortie.docx',OleVariant(16));
  WdApp.ActiveDocument.Close;
  WdApp.Quit;
end;

Le document créé DocSortie.docx est bien un fichier docx. L'astuce consiste à passer le paramètre de format en le "castant" en OleVariant sinon j'ai un OleSysError.

Ami calmant, J.P

14/12/2020, 15h16
tonton67

Bonjour,
Le CAST en OleVariant(16) a très bien fonctionné, quelle magie !
je n'y ai jamais pensé.
Merci énormément pour votre super solution.
Cordialement