Skriv tekst til Word Fra Excel VBA Dette program åbner en Word-fil og skriver tekst ind i den og tilpasser teksten en smule.
Forklaring VBA program åbner et allerede eksisterende ord gemt på en harddisk og skriver tekst ind i filen, og gør teksten fed osv. Bagefter filen er gemt, og lukket og opbevares på samme sted.
For at gøre programmet arbejde henvisning til "Microsoft Word XX.X Object Library" skal være aktiveret. Et eksempel fil med VBA-kode kan downloades i slutningen af denne side, god fornøjelse! Eller bare kopiere og indsætte koden direkte fra denne webside.
Kode 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, Skrivebeskyttet: = 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 Tekst: =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
Download excel filen!Write_Text_to_Word_From_Excel_using_VBA.xls |
