OleVariant WordVisible = True;
OleVariant NewDoc = False;
OleVariant SoloLectura = False;
OleVariant WordFile = <nombre del fichero que vas a modificar.doc>;
OleVariant ItemIndex = 1;
//creo los componentes
TWordDocument *WordDocument = new TWordDocument(this);
TWordApplication *WordApplication = new TWordApplication(this);
WordApplication->Connect();
WordApplication->Documents->Add(WordFile, NewDoc, EmptyParam, EmptyParam);
WordDocument->ConnectTo(WordApplication->Documents->Item(ItemIndex));
//creo el codigo de mi marcador y lo asigno
//recuerda que en documento de word que vayas a usar, estos marcadores sirven para sustituirlos por el texto que indiques
int mimarcador;
mimarcador = 1;
WordDocument->Bookmarks->Item(OleVariant(mimarcador))->Select();
WordApplication->Selection->set_Text(WideString("texto que quiero poner").c_bstr());
//cierro la conexion con el documento
WordApplication->Disconnect();