![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#2
|
|||
|
|||
|
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;
|
| Herramientas | Buscar en Tema |
| Desplegado | |
|
|
Temas Similares
|
||||
| Tema | Autor | Foro | Respuestas | Último mensaje |
| Plantilla Word dentro de un While | shoulder | Varios | 2 | 06-02-2014 13:47:06 |
| word - Plantilla - abrir - grabar como | shoulder | Varios | 3 | 15-06-2012 21:16:03 |
| Acceso directo a plantilla de Word | roman | Windows | 16 | 08-10-2008 22:22:03 |
| modificar una plantilla de word | luxus | OOP | 9 | 26-08-2008 21:13:48 |
| Registro en Plantilla Word | JulioGO | Firebird e Interbase | 2 | 12-09-2004 00:42:34 |
|