目前我正開發一套有關Dephi去執行Word,目前遇到一個困境就是如何用VBA的指令去取得目前游標所在的位置,或是有其它方式可達成這方面的需求,不知有哪位高手能指點我ㄧ番,謝謝!!

procedure TForm1.Button2Click(Sender: TObject);
var
  Word:TWordApplication;
  _Doc: _Document;
  colNo, lineNo:String;
  Template:OleVariant;
begin
  Word:=TWordApplication.Create(self);
  Word.AutoConnect:=True;
  Word.AutoQuit:=True;
  Word.Visible:=True;
  Template:='C:\test.doc';
  _doc:=Word.Documents.Open(Template,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  Showmessage('Move cursor to position you want to show');  //go to the word window and move cursor to somewhere
  lineNo:=_Doc.ActiveWindow.Selection.Information[wdFirstCharacterLineNumber];
  colNo:=_Doc.ActiveWindow.Selection.Information[wdFirstCharacterColumnNumber];
  Showmessage('行: ' + lineNo + #10#13 +
              '欄: ' + colNo) ;
end;

如上, 所抓到的就是畫面中的資訊 發表人 - chris_shieh 於 2005/01/21 17:51:30

謝謝chris_shieh大大的賜教,但是我還有一個疑慮就是游標目前所在的位置有沒有辦法去取得他的座標?因為我想藉由游標目前所在的位置,然後再移到下一行的桐一個位置去設定TabPosition 還是說有其他的方式可以達到相同的功能,可否再麻煩您跟我說明一下呢~~ 謝謝!!

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/vbawd10/html/woproInformation.asp 我猜你是想要這兩項 wdHorizontalPositionRelativeToPage Returns the horizontal position of the specified selection or range; this is the distance from the left edge of the selection or range to the left edge of the page measured in points (1 point = 20 twips, 72 points = 1 inch). If the selection or range isn't within the screen area, returns 1. wdVerticalPositionRelativeToPage Returns the vertical position of the selection or range; this is the distance from the top edge of the selection to the top edge of the page measured in points (1 point = 20 twips, 72 points = 1 inch). If the selection isn't visible in the document window, returns 1. ＠瞭解越多.懂得越少＠ 發表人 - chris_shieh 於 2005/01/21 19:43:37

沒錯,這就是我所要的東西,再次感謝chris_shieh大大的熱情的教導