How to create a file in the Microsoft Word 2007 XML format from Delphi/C++Builder/Lazarus

DOCX is an archive file that can be unpacked by a third-party program. This format is an upgraded version of the well-known DOC extension. A significant difference is a low file weight while maintaining all the original image parameters. If .doc is a binary text file, .docx contains XML files and additional folders when the file compression reduces its size.

This is a universal format that can easily be read by almost any email client, cloud storage and text editors on your mobile device.
You can use the following programs to work with docx: WindowsWord, Libre Office, Open Office, Word Pad, AiReader, Ice Book Reader, Caliber, Universal Viewer, Text Maker, Ability Write. This is just a small list of the huge number of programs that can open files in DOCX format.

I wrote in more detail about XML in “How to export a report to Excel XML from Delphi / Lazarus ” article. But how do you create a file in the DOCX format from Delphi or Lazarus? Using FastReport!

Saving in .docx format from Delphi without writing a single line of code!

How to save in DOCX format directly from Delphi / Lazarus using a code

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

procedure TForm1.Button1Click(Sender: TObject);
begin
 {Generate a report. The report must be generated before exporting}
 frxReport1.PrepareReport();
 {Set the range of pages to export. By default, all pages of the generated report are exported}
 frxDOCXExport1.PageNumbers := '2-3';
 {Set whether to open the resulting file after export}
 frxDOCXExport1.OpenAfterExport := False;
 {Set whether to display export progress
  (show which page is currently being exported)}
 frxDOCXExport1.ShowProgress := False;
 {Set whether to display the export filter settings dialog box}
 frxDOCXExport1.ShowDialog := False;
 {Set the name of the resulting file.}
 {Please note that if you do not set the file name and disable the export filter dialog box,}
 {the file name selection dialog will still be displayed}
 frxDOCXExport1.FileName := 'C:\Output\test.docx';
 {Export the report}
 frxReport1.Export(frxDOCXExport1);
end;

Nothing complicated, as usual.