Question

我有一个用Delphi-7编写的程序，它打开一个基于模板的新Word文档文档打开后，自动跳转到书签（在模板中预定义）并在那里添加一些文本以下代码在Word 2003中正常工作，但在Word 2010 中导致invalid variant operation错误消息（为了清楚起见，我省略了try/except块）。

wrdapp:= CreateOleObject ('Word.Application');
wrdDoc:= wrdapp.documents.add (wrdApp.Options.DefaultFilePath[wdUserTemplatesPath] + '1.dot'
wrdApp.selection.goto (wdGotoBookmark, unassigned, unassigned, 'B1')

如果我用

替换第三行

wrdDoc.bookmarks.item ('B1').select

该程序在Word 2003中运行良好，但在Word 2010中仍然崩溃。

Word 2010“转到”书签的正确代码是什么？

Answer 1

Word 2010有一个与加载Normal.dotm相关的错误（也可能是插件，谁知道？）。当你像平常一样启动Word 2010时，你会看到一个启动画面，Word会执行一些初始化，包括加载Normal.dotm。当您通过自动化启动Word时 - CreateOleObject('Word.Application') - 它不会等到Normal.dotm加载并立即返回。但是，当Normal.dotm仍在加载时执行操作似乎会导致Word崩溃。我为解决这个问题所做的是创建一个等待模板加载的循环。您也可以选择延迟为Word提供初始化时间，但到目前为止，循环仍然有效。

这样的事情：

wrdapp := CreateOleObject('Word.Application');

//loop that waits for the normal template to load
while wrdapp.Templates.Count = 0 do
  Sleep(200);

//continue operations

PS：我这里没有Delphi，所以代码可能包含错误，但你明白了

Answer 2

我认为你应该用变量替换“GoTo_”调用中的常量。像那样：

...
var 
  vWhat, vBookmark:OleVariant;
begin
  ...
  vWhat:=wdGoToBookmark;
  vBookmark:='B1';
  wrdApp.Selection.GoTo_(vWhat,emptyParam,emptyParam,vBookmark);
  ...
end;

Answer 3

嗨，我希望这可以帮到你。我正在使用D2010和Office 2010

我在做什么：如果我找到了书签名称，我在这一点上插入一个文字

我的部分代码：

try
  Template    := EmptyParam;
  NewTemplate := true;
  ItemIndex   := 1;
  try
     Wdapplication.Connect;
  except
     Screen.Cursor := crDefault;
     MessageDlg('No se detecta Word Puede no estar instalado(1) o versi?n incorrecta de Word', mtError, [mbOK], 0);
     Abort;
     result := False;
  end;
  Wdapplication.Visible := true; // False;
  WdApplication.Caption := 'Kalemat automation';
  {Turn Spell checking of because it takes a long time if enabled and slows down Winword}
  WdApplication.Options.CheckSpellingAsYouType := false;
  WdApplication.Options.CheckGrammarAsYouType := false;
  lbInfo.Lines.Add('Word connected');
except
  on E: Exception do begin
     ShowMessage(E.Message);
     WdApplication.Disconnect;
     result := False;
     Exit;
  end;
end;

//-
if wdapplication.Documents.Count > 0 then begin
  Screen.Cursor         := crDefault;
  MessageDlg(
     'Por Favor cierre todos sus Word-documentos antes de proseguir...', mtWarning,
     [mbRetry], 0);
  wdApplication.Visible := true;
  WdApplication.Disconnect;
     result := False;
  exit;
end
else begin
  with WdApplication do begin
     //      OnQuit             := WordAppQuit;
     //      OnChangeDocument   := WordDocChange;
     //      OnOpenDocument     := WordDocOpen;
     //      OnPreCloseDocument := WordPreClose;
     //      OnCloseDocument    := WordDocClose;
     //      DisableSystemCloseBox;
  end
end;
{Create new document}
Template     := EmptyParam;
NewTemplate  := false;
oNewDocument := ModEsc;

// abre documento 
lbInfo.Lines.Add('Abriendo escritura '+ModEsc);

WdApplication.Documents.AddOld(oNewDocument, NewTemplate);
// Conecta con al instancia de Word
WdDocument.ConnectTo(WdApplication.Documents.Item(ItemIndex));
sBookMarkName := 'FPROEMIO';
lbInfo.Lines.Add('Busca marcador Proemio');
if WdDocument.Bookmarks.Exists(sBookMarkName) then begin
  //     ShowMessage(' -Existe: '+sBookMarkName);
  owhat := wdGotoBookMark;
  owhich := unAssigned;
  ocount := unAssigned;
  //-->>>      //     ShowMessage(' -Ve a..: '+sBookMarkName);
  //-->>>      //   Ve a ese marcados addendum

  wdDocument.GoTo_(oWhat, oWhich, OCount, sBookMarkName);

  //     ShowMessage(' GoTo_.. ya estoy en: '+sBookMarkName);
  //   Lo encontre
  oRange       := '';
  oConformConv := false;
  oLink        := false;
  oattachment  := false;
  fl_Name      := proemi;
  lbInfo.Lines.Add('Insertando Proemio '+Proemi);
  if not FileExists(fl_name) then begin
     Screen.Cursor := crDefault;
     lbInfo.Lines.Add('No Existe Documento PROEMIO ');
     MessageDlg('Documento FPROEMIO NO EXISTE, Revise el modelo de escritura', mtError, [mbRetry], 0);
  end
  else
    wdDocument.Bookmarks.Item(sBookMarkName).Range.InsertFile(Fl_Name, oRange, oConformConv, oLink, oattachment);
  //     ShowMessage(' -.. inserte el addendum');
end
else begin
  lbInfo.Lines.Add('No Existe Marcador PROEMIO ');
end;

Word 2010自动化：'转到书签'

3 个答案: