Ошибка при работе с 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. Там по поиску находишь твою константу и смотришь ее численное значение

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

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