Re: Just filter doc file

Author

Message

C.C

Posted: 06/18/2003 10:49:30

Thanks for your help. I'll try ...

C.C

"Sergey Tkachenko" <[email protected]> wrote in message

news:[email protected]...

> Hi,

> There are (at least) 2 *.doc converters on my computer:

> "Word 6.0-95 for Windows & Macintosh" - it can open files saved by MS Word

> 6.0/95, and cannot open files saved by MS Word 97/2000/XP;

> "Word 97-2002" - it can open files saved by MS Word 97/2000/XP and cannot

> open MS Word 6.0/95 files.

> You cannot search converters by

> - extension (there are many converters for *.doc, not all of them for MS

> Word);

> - by displayable name (it depends on the language of MS Word and on its

> version)

> But you can still search by the file name of converter library.

> On my computer, the first converter (of listed above) has name

mswrd632.cnv

> (or mswrd632.wpc in different localization), the second - mswrd832.cnv.

> You can try to search:

> function FindConverterByFileName(rvoc: TRVOfficeConverter; const name:

> String): Integer;

> var i: Integer;

> fn: String;

> begin

> Result := -1;

> for i := 0 to rvoc.ImportConverters.Count-1 do

> begin

> fn := rvoc.ImportConverters[i].Path;

> fn := ExtractFileName(fn);

> if Pos(LowerCase(name), LowerCase(fn))=1 then begin

> Result := i;

> exit;

> end;

> function GetWord6ImportConverterIndex: Integer;

> begin

> Result := FindConverterByFileName('mswrd632');

> end;

> function GetWord97ImportConverterIndex: Integer;

> begin

> Result := FindConverterByFileName('mswrd832');

> end;

> These functions return an index of the converter, or -1 if not found.

> I just typed them in my newsgroup client, I did not tested these

functions,

> misprints are possible.

> > Hi,

> > I want to insert a file (function is same as Insert File action) and

> > RVOfficeConverter only filters file *.doc.

> > I'll use the importRV function, but I don't know how ConverterIndex is.

> > Please help me.

> >