Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
No lo tengo en mis manos pero te puedo decir como ok mira primero tienes q hacer la referencia a word esto se hace en el menu proyecto/Referencias/ Microsoft Word Object Library 9.0 despues declarar una variable de tipo objeto word y otra de tipo word documento OK despues solo direccionas a word con un nuevo objeto con la instruccion SET asi mismo el la variable documento OK dim OjWord as word.application dim docword as word document Set OjWord = CreateObject("Word.Application") Set docword = ApWord.Documents.Add ' con esto creas uno nuevo pero como lo q quieres es abrirlo esasi Set docword = ApWord.Documents.open (ruta) y para escribir solo mandas los textos pero tambien tienes q dar los saltos de linea with ApWord.Selection .ParagraphFormat.Alignment = wdAlignParagraphCenter '__Alinear al centro .Font.Size = 20 '_Tamaño de la letra .Font.Color = wdColorDarkBlue '_Color de la letra .Font.Bold = True 'En false para desactivar negritas .Font.Italic = True 'En false para desactivar cursiva .Font.Underline = True 'En false para desactivar subrayado .TypeText "Gustavo García" 'Texto siempre entre comillas .TypeParagraph 'Salto de linea .TypeParagraph 'Salto de linea .Font.Bold = False 'En false para desactivar negritas .Font.Italic = False 'En false para desactivar cursiva .Font.Underline = False 'En false para desactivar subrayado .Font.Color = wdColorGold 'Color de la letra .ParagraphFormat.Alignment = wdAlignParagraphJustify '_Justificar end with apword.visible=true Suerte