Delphi - открытие ворда

[romantik1993]

открываю файл ворд вот так

ExeWord(w,wdDoc,pathSelf+'/tmp'+'/Отчет'+edit24.text+'.doc',true);

но если расширение docx то ошибка, как сделать чтобы либо учесть тут расшинение, или как то вообще без расширения
сама процедура вот

procedure ExeWord(var Word,WDoc : OleVariant; FileName : String; Visible : boolean);
var
  str  : String;
  flag : Boolean;
  i    : Integer;
begin
  try
    Word := GetActiveOleObject('Word.Application');
    if Word.Documents.Count = 0 then Word.Documents.Open(FileName)
    else begin
      str := getFileName(FileName);
      flag := True;
      for i := 1 to Word.Documents.Count do
        if Word.Documents.Item(i).Name = str then begin
          Word.Documents.Item(i).Activate;
          Flag := False;
          Break;
        end;
      if flag then Word.Documents.Open(FileName);
    end;
  except
    Word :=CreateOleObject('Word.Application');
    Word.Visible := Visible;
    Word.Documents.Open(FileName);
  end;
  WDoc := Word.ActiveDocument;
end;

[Alex11223]

Сильно секретная ошибка?

или как то вообще без расширения

Расширение это часть имени файла. Хоть file.abc назовите, ворду все равно, это не влияет на содержимое.

[romantik1993]

ну а как сделать чтобы он когда нужно docx открывал docx, а когда нужно docоткрывал бы doc

[romantik1993]

если вообще убрать расширение то открываются только файлы doc, а docx ошибка

[Человек_Борща]

но если расширение docx то ошибка, как сделать чтобы либо учесть тут расшинение, или как то вообще без расширения

Не копипастить с интернета бездумно код, а писать свой.
Полезнее для карьеры и мозгов, если хотите чуточку все же быть ПРОграммистом, не повылетав с пары тройки хороших рабочих мест ещё на испытательном сроке.

решается так:

if (ExtractFileExt(FileName) = '.docx') then 
begin
raise Exception("DOCX формат не поддерживается установленным у вас пакетом MS Office.");
exit;
end;

куда вписать сами подумайте.

[Alex11223]

Зачем у вас в edit24 (крутое имя, кстати, вы там не путаетесь в них?) вводится имя без расширения? Откуда оно там берется? Если выбирается TOpenFileDialog, то там ж полный путь сразу.

И ошибка-то какая? Может у вас офис 2003, тогда конечно никакого docx.

[romantik1993]

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

Зачем у вас в edit24 (крутое имя, кстати, вы там не путаетесь в них?) вводится имя без расширения? Откуда оно там берется? Если выбирается TOpenFileDialog, то там ж полный путь сразу.

И ошибка-то какая? Может у вас офис 2003, тогда конечно никакого docx.

тут не ошибка
просто если вот так ExeWord(w,wdDoc,pathSelf+'/tmp'+'/Отчет'+edit24.text+'.doc',true); то открывается только ворд 2003
а если вот так ExeWord(w,wdDoc,pathSelf+'/tmp'+'/Отчет'+edit24.text+'.docx',true); то только 2007 а на 2003 ошибка

[Человек_Борща]

тут не ошибка
просто если вот так ExeWord(w,wdDoc,pathSelf+'/tmp'+'/Отчет'+edit24.text+'.doc',true); то открывается только ворд 2003
а если вот так ExeWord(w,wdDoc,pathSelf+'/tmp'+'/Отчет'+edit24.text+'.docx',true); то только 2007 а на 2003 ошибка

Читать пост и код в посте #5 вдумчиво и внимательно.

[romantik1993]

не понял ни чего в 5 посте

[Alex11223]

Дык у него не то, что в #5 (не считая первого абзаца до кода). Он не может понять, что буквы в имени файла после точки точно так же является частью имени файла, как и то, что до точки, и сама точка. Внезапно имя файла может быть вообще без расширения и это не помешает ворду его открыть. Так что скорее #6 читать.