Не работает добавление текста в Word - InsertAfter и InsertBefore

@Katerina1993 · Регистрация: 17.01.2017

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

Пытаюсь добавить текст в word до и после выделенной области. Документ открывается, а текст не добавляется, в чём может быть проблема?

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtnrs, ComObj, ComCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    RichEdit1: TRichEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  MSWord: OLEVariant;
  DocName, Doc1 : OleVariant;
  WordApplication1: OLEVariant;
  vstart, vend: OleVariant;
begin
 
  DocName  := 'C:\Doc3.docx';
  
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      WordApplication1 := CreateOLEObject('Word.Application');
      Doc1 := WordApplication1.Documents.Open(DocName);
 
 
      RichEdit1.Text:=Doc1.Range.Text;
      WordApplication1.Visible := True;
 
       vstart := 10;
       vend := 20;
       Doc1.Range(vstart, vend).Select;
       Doc1.Selection.InsertAfter('text1');
       Doc1.Selection.InsertBefore('text2');
 
    except
      Exception.Create('Error');
    end;
  end;
end;
 
end.

@Katerina1993 · 30.09.2018, 22:11 **[ТС]**

Я решила проблему, не думайте что я её решала всё это время на самом деле у меня были другие дела, а проблему я решила сегодня примерно за час. Вот код:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  MSWord, vstart, vend, DocName, Doc1: OleVariant;
  ilengy: Integer;
begin
  DocName  := 'C:\Doc1.docx';
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      Doc1 := MsWord.Documents.Open(DocName);
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  vstart := 10;
  vend := 40;
  Doc1.Range(vstart, vend).Select;
  MSWord.Selection.InsertBefore('txt1');
  MSWord.Selection.InsertAfter('txt2');
  MSWord.ActiveDocument.SaveAs('C:\Doc2.doc');
end;

Сейчас объясню как он работает, вдруг кому-то пригодится. Переменные vstart - это начало строки, vend - конец строки.

Delphi

1	Doc1.Range(vstart, vend).Select;

Выделить буквы в ворде начиная с 10 и заканчивая 40.

Delphi

1 2	MSWord.Selection.InsertBefore('txt1'); MSWord.Selection.InsertAfter('txt2');

Вставка слова (txt1) до выделения и (txt2) после выделения.
Потом всё сохраняется в документ и открывается автоматически в ворде, там мы видим результат.
Примечания: Во время тестирования программы используйте exe файл. В delphi она работать не будет (по крайне мере в delphi 7).

@Matan! · 01.10.2018, 13:34

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

В delphi она работать не будет (по крайне мере в delphi 7).

Да? Почему? Ну-с, протестируем...

Добавлено через 17 минут
Всё норм у меня работает...

Добавлено через 1 минуту
Правда, я бы сделал "убивание ссылок" в конце:

Delphi

procedure TForm1.Button2Click(Sender: TObject);
var
  MSWord, vstart, vend, DocName, Doc1: OleVariant;
  //ilengy: Integer;
begin
  DocName := 'C:\Doc1.docx';
  try
    try
      MsWord := GetActiveOleObject('Word.Application');
    except
      try
        MsWord := CreateOleObject('Word.Application');
        Doc1 := MsWord.Documents.Open(DocName);
        MsWord.Visible := True;
      except
        Exception.Create('Error');
      end;
    end;
    vstart := 10;
    vend := 40;
    Doc1.Range(vstart, vend).Select;
    MSWord.Selection.InsertBefore('txt1');
    MSWord.Selection.InsertAfter('txt2');
    MSWord.ActiveDocument.SaveAs('C:\Doc2.doc');
  finally
    Doc1 := Unassigned;
    MSWord := Unassigned;
  end;
end;

@Katerina1993 · 03.10.2018, 12:36 **[ТС]**

У меня тоже работает, если дважды нажать Run (F9). Потому, что при первом запуске выдаёт сообщение об ошибке. "Операция не доступна". Если же использовать exe-файл, то такой ошибки не будет.

@Matan! · 03.10.2018, 12:53

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

Потому, что при первом запуске выдаёт сообщение об ошибке. "Операция не доступна".

Ничего такого у меня нет...

А Вы пробовали заключить в try-finally код, как я написал?
Может, стоит скрывать окно MSWord после того, как Вы создали этот объект?

@Katerina1993 · 03.10.2018, 16:19 **[ТС]**

Всё равно выдаёт ошибку, может просто запущен какой-нибудь процесс, который мешает запустить программу с первого раза.

Добавлено через 7 минут
Короче всё больше не выдаёт ошибку я переписала код, теперь работает без ошибок:

Delphi

.....
uses ComObj;
.....
var DocName, MSWord, Doc1, vstart, vend: OleVariant;
.....
procedure TForm1.Button1Click(Sender: TObject);
begin
 try
  DocName:='C:/doc1.docx';
  MSWord:=CreateOleObject('Word.Application');
  MSWord.Visible:=True;
  Doc1:=MSWord.Documents.Open(DocName);
  vstart := 10;
  vend := 40;
  Doc1.Range(vstart, vend).Select;
  MSWord.Selection.InsertBefore('txt1');
  MSWord.Selection.InsertAfter('txt2');
  MSWord.ActiveDocument.SaveAs('C:\Doc2.doc');
  finally
    Doc1 := Unassigned;
    MSWord := Unassigned;
  end;
end;

@Matan! · 03.10.2018, 16:28

Ну, некоторые try-except можно было оставить

А то Вы так с плеча...
Например,у создания объекта.
Дело в том, что когда Вы питаетесь запустить активный word, то делфи ищет нужный процесс. А так как Вы их не закрываете, то в процессах болтается несколько word'ов и возникает запара - к какому из них подключаться.

@Katerina1993 · 03.10.2018, 19:18 **[ТС]**

На одном сайте, где я сейчас изучаю работу delphi c word не используется try-except

@Matan! · 03.10.2018, 20:10

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

На одном сайте, где я сейчас изучаю работу delphi c word не используется try-except

И? Всегда, когда работаете с OLE-объектами, заключайте основные моменты в try-except. Причина проста: симбиоз дельфи и MS Office - редкий геморрой, если их и использовать, то лишь из-за нескольких функций, позволяющих оптимизировать работу MS Office.

@Katerina1993 · 03.10.2018, 20:28 **[ТС]**

Просто я не знала, учту на будущее.

@Katerina1993 70 / 12 / 4 Регистрация: 17.01.2017 Сообщений: 524
	03.10.2018, 12:36 [ТС]	4
	У меня тоже работает, если дважды нажать Run (F9). Потому, что при первом запуске выдаёт сообщение об ошибке. "Операция не доступна". Если же использовать exe-файл, то такой ошибки не будет. 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	03.10.2018, 12:53	5
	Сообщение от Katerina1993 Потому, что при первом запуске выдаёт сообщение об ошибке. "Операция не доступна". Ничего такого у меня нет... А Вы пробовали заключить в try-finally код, как я написал? Может, стоит скрывать окно MSWord после того, как Вы создали этот объект? 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	03.10.2018, 16:28	7
	Ну, некоторые try-except можно было оставить А то Вы так с плеча... Например,у создания объекта. Дело в том, что когда Вы питаетесь запустить активный word, то делфи ищет нужный процесс. А так как Вы их не закрываете, то в процессах болтается несколько word'ов и возникает запара - к какому из них подключаться. 0

@Katerina1993 70 / 12 / 4 Регистрация: 17.01.2017 Сообщений: 524
	03.10.2018, 19:18 [ТС]	8
	На одном сайте, где я сейчас изучаю работу delphi c word не используется try-except 0

@Matan! 1437 / 1014 / 228 Регистрация: 31.05.2013 Сообщений: 6,645 Записей в блоге: 6
	03.10.2018, 20:10	9
	Сообщение от Katerina1993 На одном сайте, где я сейчас изучаю работу delphi c word не используется try-except И? Всегда, когда работаете с OLE-объектами, заключайте основные моменты в try-except. Причина проста: симбиоз дельфи и MS Office - редкий геморрой, если их и использовать, то лишь из-за нескольких функций, позволяющих оптимизировать работу MS Office. 0

@Katerina1993 70 / 12 / 4 Регистрация: 17.01.2017 Сообщений: 524
	03.10.2018, 20:28 [ТС]	10
	Просто я не знала, учту на будущее. 0