Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];

Вниз

Ошибка при работе с Word2000   Найти похожие ветки 

 
al45   (2002-04-22 11:01) [0]

Почему выдается ошибка? (см.ниже по тексту)

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Menus, ExtCtrls, ComCtrls, Commctrl, Commdlg, COmserv, ComObj, Comstrs, Oledlg,
Buttons, ToolWin, StdCtrls, Grids;

procedure TForm1.ToolButton15Click(Sender: TObject);
var
ind,i:integer;
r,c:byte;
pt,nz,rs,cs,s,z:string;
W: Variant;
begin
s:="Hello";
z:="a01";
try
// Если Word уже запущен
W := GetActiveOleObject("Word.Application");
except
try
W:=CreateOleObject("Word.Application");
except
ShowMessage("Не могу запустить Microsoft Word");
exit;
end;
end;
W.visible:=true;
pt:=ExtractFilePath(Application.ExeName)+"Rasp.dot";
W.Documents.Add(Template:=pt);
// Ошибка здесь
W.Selection.Goto(What:=wdGoToField, Name:=z); <-- Undeclared identifer "wdGoToField"
W.Selection.TypeText( Text:=s);
// и здесь
W.Quit(SaveChanges:=wdDoNotSaveChanges); <-- Undeclared identifer "wdDoNotSaveChanges"


 
AFROLOV   (2002-04-22 11:17) [1]

Конечно должна произойти ошибка на стадии компиляции, т.к. таких констант DELPHI не знает. Это внутрение константы VBA для MSWord.
Опиши их как Const wdGoToField=....//его значение.
Синтаксис вызова методов такойже как и у вызовов обычных функций и процедур в DELPHI.
Можно писать так:
W.Selection.Goto(wdGoToField{Ранее описанная константа},z);


 
al45   (2002-04-22 11:44) [2]

wdGoToField=....//его значение
W.Selection.Goto(wdGoToField{Ранее описанная константа},z);

Извини, не понял: Const
wdGoToField= ?



 
vlv   (2002-04-22 12:04) [3]

Зайди в Word. Нажми F11 - провалишься в проект. Далее F2. Откроется окно Object Browser. Там по поиску находишь твою константу и смотришь ее численное значение


 
AFROLOV   (2002-04-22 12:21) [4]

Проще написать в редакторе VBA набить такой код
sub sub1()
Dim tmp as long
tmp=wdGoToField
Selection.TypeText(Str(tmp))//Печатается значение нужной константы
end sub

Также полезно использовать Debuger VBA для просмотра значений.




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

Форум: "Основная";
Текущий архив: 2002.05.06;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.004 c
1-17567
Masa
2002-04-22 12:34
2002.05.06
Object


1-17545
Explorer
2002-04-23 07:38
2002.05.06
QReport


3-17512
yozhik
2002-04-11 21:39
2002.05.06
Создание перекрестного запроса


1-17603
Gass
2002-04-21 20:47
2002.05.06
Выпадающий ImageIndex в своем компоненте


14-17693
Merlin
2002-03-28 10:05
2002.05.06
Открыт новый сайт, новый форум. Море всего интересного!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский