Foros Club Delphi - Como obtener la posicion actual del cursor en word

Hola, :)

a ver si me pueden echar una mano con esto... Son unas pruebas que estoy haciendo para después aplicarlas en mi programa. El problema radica en como insertar una tabla en la posicion que yo quiera.

Les explico un poco las cosas que he hecho. En primer lugar, creo los objetos Word.Application y Documents (word y doc, respectivamente).

Código:

Variant word, doc, Selection, Font, Buscar;

word = Variant::CreateObject("Word.Application");

word.OlePropertySet( "Visible", (Variant) true );

doc = word.OlePropertyGet("Documents");

if (FileExists(ExtractFilePath(Application->ExeName)+ "plantillas\\plantilla.doc"))

{

   doc.OleFunction("Open", (ExtractFilePath(Application->ExeName)+ "plantillas\\plantilla.doc").c_str(), Unassigned, true);

}else{

   MessageBox(this->Handle, "El archivo no existe", "Error" , MB_APPLMODAL | MB_OK | MB_ICONERROR);

   word.OleProcedure("Quit");

   return;

}

A continuación realizo una búsqueda y reemplazo de texto. Busco la palabra #NOMBRE# y la reemplazo por "Gabo":

Código:

  Selection = word.OlePropertyGet( "Selection" );

  Buscar = Selection.OlePropertyGet( "Find" );

  Buscar.OleProcedure( "ClearFormatting" );

  Buscar.OlePropertyGet( "Replacement" ).OleProcedure( "ClearFormatting" );

  Buscar.Exec( Procedure( "Execute" ) << "#NOMBRE#" << VT_EMPTY << VT_EMPTY

                       << VT_EMPTY << VT_EMPTY << VT_EMPTY << true 

                       << VT_EMPTY << VT_EMPTY << "Gabo" << 2);

Una vez que termino de hacer el reemplazo, escribo la palabra "Tabla" e inserto una tabla:

Código:

  Selection.OleProcedure("TypeText", "Tabla");

  doc = word.OlePropertyGet("ActiveDocument");

  Variant rango = Selection.OlePropertyGet("Range");

  rango.OleProcedure("Collapse", 0);

  Variant tablas = rango.OlePropertyGet("Tables");

  int rows = 2;

  int cols = 2;

  Variant tabla = tablas.OleFunction("Add", rango, rows, cols, 1);

  Variant celda;

  celda = tabla.OleFunction("Cell", 1, 1);

  celda.OlePropertyGet("Range").OleProcedure("InsertAfter", "Nombre ");

  celda = tabla.OleFunction("Cell", 1, 2);

  celda.OlePropertyGet("Range").OleProcedure("InsertAfter", "Cantidad");

Pues bien, el problema es el siguiente:

Como para escribir el texto "Tabla" y para obtener el rango para la tabla, utilizo el objeto Selection que cree en un principio. Ambas cosas se insertan al principio del documento cuando lo que en realidad quiero es que se inserten a continuación de la búsqueda y reemplazo.

Sé que el rango del objeto Selection se puede cambiar con SetRange. Por ejemplo si después de hacer la búsqueda y reemplazo, pero antes de insertar la palabra "Tabla" escribo lo siguiente:

Código:

Selection.OleProcedure( "SetRange", 25, 25);

Con eso consigo que la inserción se produzca después del caracter Nº 25, por lo que si logro saber en que caracter se ha quedado el cursor tras hacer la búsqueda y reemplazo, podré usar esa información para establecer el rango apropiado del objeto Selection.

Ahora la pregunta del millón ( ;) ): ¿alquien sabe como obtenerlo?

Gracias de antemano a todos. :)