VPF::Word XP и 2003 - Форум программистов

Dufe

Дата 29.9.2005, 09:14 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 23.3.2005

Репутация: нет
Всего: нет

У меня ворд 2002(ХР). Приложеие моё работает с ним нормально. На другом компе ворд 2003, и при попытке обращения к ворду возникает ошибка. Как работать с 2003 вордом? smile

Albinos_x

Дата 29.9.2005, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

здесь надо поточнее.... у меня прога работает с Вордом начиная от 98, включая ХР и 2003. Никаких для этого спец наворотов не делал... Надо смотреть код...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

Dufe

Дата 30.9.2005, 01:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 34
Регистрация: 23.3.2005

Репутация: нет
Всего: нет

Ничего исключительного:

Код


WordApp := CreateOleObject('Word.Application');
   except
      Exit;
   end;
   WordApp.Visible := True;
   NewDoc := WordApp.Documents.Add;
   iRows:=PoX.Count;
   //@@@@@@@@@@@@@@@@@@@@
   iCols := 0;
   if Form5.CheckBox4.Checked then icols:=icols+1;
   if Form5.CheckBox5.Checked then icols:=icols+1;
   if Form5.CheckBox6.Checked then icols:=icols+2;
   if Form5.CheckBox7.Checked then icols:=icols+1;
   //@@@@@@@@@@@@@@@@@@@
   WordApp.Selection.PageSetup.TopMargin := 20;
   WordApp.Selection.PageSetup.LeftMargin := 40;
   WordApp.Selection.PageSetup.RightMargin := 40;
   //%%%%%%%%%%%%%%%%%%%
   WordApp.Selection.Font.Name     := 'Arial';
   WordApp.Selection.Font.Color:=$FF3300;
   WordApp.Selection.Font.Bold:=True;
   WordApp.Selection.Font.italic:=False;
   WordApp.Selection.Font.StrikeThrough:=false;
   WordApp.Selection.Font.Underline:=false;
   WordApp.Selection.Font.Size:=24;
   WordApp.Selection.ParagraphFormat.Alignment:=1;
   WordApp.Selection.TypeText('Frame report.');
   WordApp.Selection.MoveDown(5,iRows);
   WordApp.Selection.TypeParagraph;
   Clipboard.Assign(pic);
   WordApp.Selection.Paste;
   Clipboard.Clear;
   WordApp.Selection.MoveDown(5,iRows);
   WordApp.Selection.TypeParagraph;
   WordApp.Selection.Font.Color:=0;
   WordApp.Selection.Font.Size:=16;
//Точки
   if (iRows>0) and (iCols>0) then
   begin
      WordApp.Selection.TypeText('Table of points');
      WordApp.Selection.Font.Size:=10;
      for i:=0 to iRows-1 do
         PoT.Add(IntTostr(TermoMouse(Gray,
            StrToInt(PoX.Strings[i]),
            StrToInt(PoY.Strings[i]))));
      WordApp.Selection.Font.Bold:=False;
      y:=1;
      WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iRows+1, iCols);
      if Form5.CheckBox4.Checked then
      begin
         WordTable.Cell(1,y).Range.Text :='№';
         y:=y+1;
      end;
      if Form5.CheckBox5.Checked then
      begin
         WordTable.Cell(1,y).Range.Text :='Point name';
         y:=y+1;
      end;
      if Form5.CheckBox6.Checked then
      begin
         WordTable.Cell(1,y).Range.Text :='X';
         WordTable.Cell(1,y+1).Range.Text :='Y';
         y:=y+2;
      end;
      if Form5.CheckBox7.Checked then
         WordTable.Cell(1,y).Range.Text :='t,C';
      for i := 1 to iRows do
и т.д.
********

Ворд даже не пытается открыться!!!

Это сообщение отредактировал(а) Girder - 10.10.2005, 16:22

Albinos_x

Дата 1.10.2005, 13:01 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата

Ворд даже не пытается открыться!!!

Цитата

обращения к ворду возникает ошибка

а что пишет то?...

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »