[Ruben_Cu]

Hola RJF, para que selecciones todo el documento debes hacer lo siguiente:

Código Delphi [-]
Código Delphi [-]procedure TFrmPlanCuenta.BitBtn1Click(Sender: TObject);
var oWord : TWordApplication;
     Fichero, Unidad, Extension : OleVariant; //dos varibles nuevas
begin
inherited;
  tv_eg1.SaveToFile(ExtractFilePath(ParamStr(0))+ 'PlanCuenta.txt'); //Gravo el TreeView en un txt
  oWord := TWordApplication.Create (Nil);
  oWord.Connect;
  oWord.Visible:= True;
  Fichero := ExtractFilePath(ParamStr(0))+ 'PlanCuenta.txt';
  oWord.Documents.Open(fichero,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,Empty  Param,EmptyParam,EmptyParam, EmptyParam,   EmptyParam,EmptyParam, EmptyParam, EmptyParam);
  oWord.ActiveDocument.Sections.PageSetup.TopMargin := 1;
  //Aca abajo deberia ir la seleccion del texto o todo el documento
  //asignas valores a las variables que vienen estructurados desde VB
  Unidad:=wdStory;
  Extension:=wdExtend;
  oWord.Selection.EndKey(Unidad,Extension); //Como estas posicionado en el inicio esta declaración te selecciona todo el documento
  oWord.Selection.Font.Name := 'arial';
  oWord.Selection.Font.Size := 10;
  oWord.ActiveDocument.Activate;
end;

Espero te sea útil
Saludos