Skriva text till Word från Excel med VBA Detta program öppnar en Word-fil och skriver text till den och anpassar texten något.
Förklaring VBA-programmet öppnas ett redan befintligt Word-fil sparas på en hårddisk och skriver text i filen och gör texten fet etc. Efteråt filen sparas och stängas och lagras på samma plats.
För att göra programmet arbete hänvisningen "Microsoft Word XX.X Object Library" måste vara aktiverat. Ett exempel fil av VBA-kod finns tillgänglig för nedladdning i slutet av denna sida, njut! Eller bara kopiera och klistra in koden direkt från denna webbsida.
Kod 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: = falskt)
Row = 0
While Range (B8). Offset (Rad, 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 (Rad, 0) .Value
Write_Text_to_Word_From_Excel_using_VBA_APP.Selection.TypeParagraph
Rad = Rad + 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
Ladda ner Excel-fil!Write_Text_to_Word_From_Excel_using_VBA.xls |
