Discussion :

[tonton67]

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.

[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

[tonton67]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[jurassic pork]

Quelle version de word as-tu ?

[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.

[Jipété]

Docwd.SaveAs

Documente-toi sur SaveAs2 : lecture1, lecture2

[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 :

une classe d'exception EOleSysError ....

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

[jurassic pork]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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