Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.05.21;
Скачать: CL | DM;

Вниз

Не понятно как перейти в конец документа word?   Найти похожие ветки 

 
r9000   (2005-06-23 14:07) [0]

Так как все таки перейти в конец файла word после открытия сохраненнго файла для вставки таблицы? А то пока не очень понятно из прочитанного.


 
Digitman ©   (2005-06-23 16:15) [1]

а макрос записать да посмотреть, как сам Ворд это делает, да переложить увиденное там на Паскаль (чуть ли не один-в-один) - не судьба ?


 
YurikGL ©   (2005-06-23 21:49) [2]

Я, кажется давал ссылку
http://delphimaster.net/view/1-1119509721/

Там есть как перейти в конец документа.


 
GanibalLector ©   (2005-06-24 01:18) [3]

Как-как...вот так :

procedure TForm1.Lamers__Click(Sender: TObject);
var WordApp:Variant;
   I:Integer;
begin
 WordApp := CreateOleObject("Word.Application");
 try
   WordApp.Visible:=True;
   WordApp.Documents.Open("C:\2.doc");
   for I:=0 to 5 do
   begin
     WordApp.Selection.HomeKey($6);
     Sleep(500);
     WordApp.Selection.EndKey($6);
     Sleep(500);
   end;
   WordApp.ActiveDocument.Close;
   WordApp.Quit;
 finally
   WordApp:=UnAssigned;
 end;
end;


 
r9000   (2005-06-24 10:21) [4]

Спасибо WordApp.Selection.EndKey($6) вроде бы подходит,
но для чего это делать в цикле for I:=0 to 5 do не очень понятно.


 
GanibalLector ©   (2005-06-24 19:45) [5]

>но для чего это делать в цикле for I:=0 to 5 do не очень понятно

Для примера,вообще-то.Дабы ты понял ;)



Страницы: 1 вся ветка

Текущий архив: 2006.05.21;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.028 c
3-1143444932
alxn
2006-03-27 11:35
2006.05.21
Как дублировать все записи в таблице


3-1143446809
Николай_Москва
2006-03-27 12:06
2006.05.21
Создание фиктивного столбца, связанного с существуюшим столбцом


11-1126603740
SergeyV
2005-09-13 13:29
2006.05.21
ListView,отрисовка items и subitems...


15-1145774934
Mozart
2006-04-23 10:48
2006.05.21
CreateOleObject


15-1145888157
Der Nechk@ssoff
2006-04-24 18:15
2006.05.21
Удаление левого файла.