Ver Mensaje Individual
  #2  
Antiguo 02-10-2015
El_Chava El_Chava is offline
Miembro
 
Registrado: jun 2005
Posts: 62
Reputación: 19
El_Chava Va por buen camino
Thumbs up

Ya encontré la solución. en vez de usar docvariable utilice marcadores los cuales cuenta con las propiedad font.bold para poner en negrita en caso de que se requiera.

Aqui les dejo un pequeña parte del codigo. Con esto creo que les servira.

Código:
var
  Word,marcador,doc1,documento: Variant; 
begin
  (* Creas un objeto Word *)
  try
    {* a la variable "w" le asigno la ruta donde se encuentra la plantilla a utilizar *}
    w:= UTF8Decode(ExtractFilePath(application.ExeName)+'plantillas\previnirsolicituditai.dotx');
    Word := CreateOleObject('Word.Application');
    (* Añades un documento basado en la plantilla *)
   Documento := Word.Documents.Add(w);
   Documento := Word.Documents.Item(1);
   doc1:= Word.ActiveDocument;
    if Doc1.Bookmarks.Exists('autoridad') then   {Chequea si existen las marcas en el documento}
    Begin
                marcador := Doc1.Bookmarks.Item('autoridad').Range;   { añade texto a la marca de nuestro documento}
                marcador.Font.Bold     := True; {cambio a negrita}
  
   end;
Responder Con Cita