Escribir texto en palabra de Excel con VBA Este programa abre un archivo de Word y escribe el texto en él y personaliza el texto ligeramente.
Explicación El programa de VBA se abre una palabra ya existente archivo almacenado en un disco duro y escribe texto en el archivo y hace que el texto en negrita, etc A continuación, el archivo se guarda y se cierra y se almacena en el mismo lugar.
Con el fin de que el programa funcione, la referencia "Microsoft Word Object Library xx.x" tiene que estar habilitado. Un archivo de ejemplo del código VBA está disponible para su descarga en la final de esta página, diviértete! O simplemente copia y pega el código directamente desde esta página web.
Código Public Sub Write_Text_to_Word_From_Excel_using_VBA()
Dim Write_Text_to_Word_From_Excel_using_VBA_APP As Word.Application
Dim Write_Text_to_Word_From_Excel_using_VBA_DOC As Word.Document
Set Write_Text_to_Word_From_Excel_using_VBA_APP = CreateObject("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
PlaceOfWordFile = Range("B4").Value
NameOfWordFile = Range("B5").Value
NamePlace = PlaceOfWordFile + "\" + NameOfWordFile
Write_Text_to_Word_From_Excel_using_VBA_APP.Visible = True
Set Write_Text_to_Word_From_Excel_using_VBA_DOC = Write_Text_to_Word_From_Excel_using_VBA_APP.Documents.Open(NamePlace, ReadOnly:=False)
Row = 0
While Range("B8").Offset(Row, 0).Value <> tom
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.Font.Name = Range("B8").Offset(Row, 2).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.Font.Size = Range("B8").Offset(Row, 1).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.TypeText Text:=Range("B8").Offset(Row, 0).Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.TypeParagraph
Row = Row + 1
Wend
Write_Text_to_Word_From_Excel_using_VBA_DOC.Save
Write_Text_to_Word_From_Excel_using_VBA_APP.Quit
Set Write_Text_to_Word_From_Excel_using_VBA_DOC = Nothing
Set Write_Text_to_Word_From_Excel_using_VBA_APP = Nothing
End Sub
Descargar archivo de Excel!Write_Text_to_Word_From_Excel_using_VBA.xls |
