Text bei Cursor??? DelphiXE

[Beck93]

Hi,

Ich hoffe mal ich bin hier richtig da das mein erster Beitrag ist?:lol:

Ich stehe vor dem Problem, dass ich rausfinden muss ob in Word an der aktuellen Cursor Position schon Text steht oder nicht?

Nur weiß ich leider nicht wie? bin für jede Hilfe dankebar.

Danke

Beck93

[p80286]

Die richtige Antwort wäre: nie, da der Cursor immer zwischen zwei Zeichenpositionen (oder vor oder hinter ) steht.

Könntest Du vieleicht noch ein paar Informationen geben?
Wahrscheinlich suchst Du nach Selection und/oder Range.

Gruß
K-H

[Beck93]

Oke dann ob noch kein Text hinter dem Cursor steht:wink:

Zu den näheren Informationen:

Ich habe ein Word dokument mit einer Tabelle. In der ersten Zelle ist eine Textmarke an die ich springe nach dem öffnen des Dokumentes.
Nun will ich wissen ob in dieser Zelle schon Text steht oder noch nicht?
Wenn Text vorhanden ist gehe ich eine Zelle nach unten und möchte dort wieder auf vorhandenen Text Prüfen?

Ich hoffe Das hilft ein wenig.

Danke

Gruß
Beck93

Hier noch nachträglich ein Ausschnitt aus dem Quelltext vieleicht hilft das auch.

Code:

 
  try
    WordObj := ComObj.CreateOleObject('Word.Application');
    WordObj.documents.open(Exe);
    Doc := WordObj.ActiveDocument;
  except
    ShowMessage('Die Datei konnte nicht geöffnet werden!');
    Exit;
  end;

  if Doc.Bookmarks.Exists(Bookmark) then
  begin
     Doc.Bookmarks.Item(Bookmark).Select;
    for I := 6 to 24 do
    begin
     if WordObj.Selection.Find.Text = '' then  //hier ist der Fehler
      begin
        leer := true;
        if Form1.edtDatumBis.Text = Form1.edtDatumVon.Text then
          WordObj.Selection.TypeText(Text:= Form1.edtDatumVon.Text)
        else
        begin
          WordObj.Selection.TypeText(Text := Form1.edtDatumVon.Text + ' ' +
            Form1.edtDatumBis.Text);
        end;
        WordObj.Selection.MoveRight;

[p80286]

Versuch es doch mal hiermit:

Delphi-Quellcode:

mychktext:=WordObj.Selection.Text;
mychktext:=Trim(mychktext);
if length(mychktext>0 then { es gibt Text}
else                       { es gibt keinen Text}

Gruß
K-H

[Beck93]

Super genau danach hab ich gesucht.

Danke

Gruß

Beck93