Delphi - перекодирование из windows-1251 в utf-8

[romantik1993]

есть программа которая берет вордовский файл и конвертирует его в .txt. Но вот на выходе файл в кодировке windows-1251, а мне нужен на выходе чтоб был в utf-8. Помогите это сделать.

procedure TForm1.Button1Click(Sender: TObject);
var W:variant;
var f:TextFile;
var st:string;
begin

if OpenDialog1.Execute then // если выбрали файл *.doc то....
 begin
 W:=CreateOleObject('Word.Application');// создаем объект для работы с ворд
 W.Documents.Open(OpenDialog1.FileName,ReadOnly:=true);
 st:=W.ActiveDocument.Range.Text;
 //------------работа с файлом------------------

 AssignFile(f,'word.txt');
 Rewrite(f);
 Write(f,st);
 closeFile(f);

// убираем объект W из памяти
W.Quit;
W:=UnAssigned;
 end;

end;

[Stilet]

А если:

W.ActiveDocument.SaveAs(FileName:='word.txt',FileFormat:=wdFormatUnicodeText);

Где wdFormatUnicodeText по-моему равен 9 (могу ошибаться)

[romantik1993]

Сообщение от Stilet

А если:

W.ActiveDocument.SaveAs(FileName:='word.txt',FileFormat:=wdFormatUnicodeText);

Где wdFormatUnicodeText по-моему равен 9 (могу ошибаться)

чет ругается

[Stilet]

Ну ежкин котофей, ты читать внимательно будешь или тупо копипастэ рулез?
Выше читай что я писал о этом параметре.

[romantik1993]

Сообщение от Stilet

А если:

W.ActiveDocument.SaveAs(FileName:='word.txt',FileFormat:=wdFormatUnicodeText);

Где wdFormatUnicodeText по-моему равен 9 (могу ошибаться)

вы имеете ввиду вот это? Если да то я не совсем понял смысл этого сообщения, при чем тут 9, ему присвоить нужно 9 что ли.

[romantik1993]

понял, щас попробую

[romantik1993]

Увы но кодировка сохраняется windows-1251

[Stilet]

Хм... А ты зайди сюда: http://msdn.microsoft.com/ru-ru/libr...nt.saveas.aspx
Сверься с мануалом, какие там есть фички для сохранения.
Например там есть параметр: http://msdn.microsoft.com/ru-ru/libr...oencoding.aspx
Попробуй его примени.

[romantik1993]

Проблема решена

var
 W:OLEVariant;
 f:TextFile;
 st:string;
begin
W :=CreateOleObject('Word.Application');
 W.Visible :=False;
 
if not OpenDialog1.Execute then Exit;
 W.Documents.Open(OpenDialog1.FileName);
  st:=AnsiToUtf8(W.ActiveDocument.Range.Text);//здесь можно сразу преобразовать в UTF8
 AssignFile(f, 'word.txt');
 Rewrite(f);
 Write(f, st);
 closeFile(f);
 
W.ActiveDocument.Close;
W.Quit;
W :=UnAssigned;
end;

[Vapaamies]

Быдлокод детектед.