Открыть "Word - овский" файл через OpenDialog

@Nicw · Регистрация: 30.05.2018

Author24 — интернет-сервис помощи студентам

Здравствуйте ,мне нужно открывать документы docx через OpenDialog
примерно так:

Pascal

var
  Form1: TForm1;
  vWord: Variant;
implementation
 
{$R *.lfm}
 
{ TForm1 }          
procedure TForm1.Button1Click(Sender: TObject);
begin
    if  OpenDialog1.Execute then
    vWord:=CreateOleObject('Word.Application');
    vWord.Visible:=True;
    vWord.Documents.Open(OpenDialog1.FileName);
    end;

Но открывается пустой Word

А так всё работает .

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
   
    vWord:=CreateOleObject('Word.Application');
    vWord.Visible:=True;
    vWord.Documents.Open('D:\xxx.docx');
  end;

Подскажите пожалуйста в чём ошибка.

@volvo · 30.05.2018, 22:27

begin/end надо добавить:

Pascal

procedure TForm1.Button1Click(Sender: TObject);
begin
    if  OpenDialog1.Execute then
    begin
        vWord:=CreateOleObject('Word.Application');
        vWord.Visible:=True;
        vWord.Documents.Open(OpenDialog1.FileName);
    end;
end;

@Nicw · 30.05.2018, 23:15 **[ТС]**

Точно пропустил begin и end;
Но история та же самая, открывается только пустой World

Добавлено через 38 минут
Всё равно не работает.
Не хочет открывать- vWord.Documents.Open(OpenDialog1.FileName);

@volvo · 30.05.2018, 23:27

Pascal

1	vWord.Documents.Open(WideString(OpenDialog1.FileName));

прекрасно отработало только что у меня.

@Nicw · 30.05.2018, 23:41 **[ТС]**

Ух ты почти получилось

Открыть "Word - овский" файл через OpenDialog

@volvo · 30.05.2018, 23:52

Ну, так наверное, этот файл открыт в Word-е, либо предыдущим инстансом твоей же программы. Проверь, что в Task Manager-е нет процессов WINWORD.EXE перед стартом твоего приложения.

@Nicw · 31.05.2018, 00:02 **[ТС]**

Всё, разобрался ,спасибо тебе добрый человек за vWord.Documents.Open(WideString(OpenDialog1.FileName));
Там у меня дальше Word ругался надо было защиту от редактирования снять.Заработало !!!!!!!!!

@Nicw · 31.05.2018, 00:16 **[ТС]**

Открыть "Word - овский" файл через OpenDialog

Решение

Решение

@Nicw 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 5
	30.05.2018, 23:15 [ТС]	3
	Точно пропустил begin и end; Но история та же самая, открывается только пустой World Добавлено через 38 минут Всё равно не работает. Не хочет открывать- vWord.Documents.Open(OpenDialog1.FileName); 0

@Nicw 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 5
	30.05.2018, 23:41 [ТС]	5
	Ух ты почти получилось 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	30.05.2018, 23:52	6
	Сообщение было отмечено Joey как решение Решение Ну, так наверное, этот файл открыт в Word-е, либо предыдущим инстансом твоей же программы. Проверь, что в Task Manager-е нет процессов WINWORD.EXE перед стартом твоего приложения. 1

@Nicw 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 5
	31.05.2018, 00:02 [ТС]	7
	Всё, разобрался ,спасибо тебе добрый человек за vWord.Documents.Open(WideString(OpenDialog1.FileName)); Там у меня дальше Word ругался надо было защиту от редактирования снять.Заработало !!!!!!!!! 0

@Nicw 0 / 0 / 0 Регистрация: 30.05.2018 Сообщений: 5
	31.05.2018, 00:16 [ТС]	8
	0