Ver Mensaje Individual
  #4  
Antiguo 13-01-2016
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 18.271
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
El código de automatización no se cómo obtenerlo.
Yo en algún caso lo que he utilizado (que tampoco se si es exactamente lo que necesitas) es crear una Macro.

Es decir, abres el documento de word y grabas una macro con el trabajo que debes realizar. Por ejemplo, seleccionandio un código y colocando una negrita.
Cierras la macro y luego visualizas el código fuente de esta.

Lo que sí podemos ver es el código de las macros, así que te puede dar pistas de algunos métodos y propiedades a utilizar.
En un documento donde Imprimes y Grabas puedes ver una macro como esta:

Código:
Sub Macro2()

    Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _
        wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _
        ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
        False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
        PrintZoomPaperHeight:=0
        
    Selection.TypeText Text:="aa"
    
    Selection.TypeParagraph
    
    ChangeFileOpenDirectory "R:\"
    
    ActiveDocument.SaveAs FileName:="La casa del perro es roja.docx", _
        FileFormat:=wdFormatXMLDocument, LockComments:=False, Password:="", _
        AddToRecentFiles:=True, WritePassword:="", ReadOnlyRecommended:=False, _
        EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _
        :=False, SaveAsAOCELetter:=False
End Sub
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita