Close all opened Writer documents

[xsintill]

I am trying to close all opened writer documents. I thought I had a solution but when i also had a calc spreadsheet open the code would close the opened spreadsheet also. How do i distinguish between components so i only close writer components. Code so far:

Code: Select all   Expand viewCollapse view

var
  lComponents, lDocument: OleVariant;
begin
  lComponents := FDesktop.GetComponents.CreateEnumeration;
  while lComponents.hasMoreElements do
  begin
    lDocument := lComponents.NextElement;
    lDocument.Close(True);
  end;
end;
...
//FDesktop is created like so
FDesktop := FLibreOffice.createInstance('com.sun.star.frame.Desktop');


[FJCC]

Something like this (written in Basic) might work

Code: Select all   Expand viewCollapse view

Enum = StarDesktop.getComponents.createEnumeration()
While Enum.hasMoreElements()
   Doc = Enum.nextElement()
   If Doc.Identifier = "com.sun.star.text.TextDocument" Then
      Doc.close(True)
   End If
WEnd