लिखने Excel से Word में पाठ VBA का उपयोग यह प्रोग्राम एक शब्द फ़ाइल खोलता है और इसे में पाठ लिखते हैं और पाठ से थोड़ा customizes.
व्याख्या VBA प्रोग्राम खोलता है एक पहले से ही मौजूदा शब्द एक हार्ड ड्राइव पर भंडारित फाइल और फ़ाइल में पाठ लिखते हैं और पाठ को बोल्ड आदि बाद में फ़ाइल बनाता है बचाया और बंद है और एक ही स्थान पर संग्रहीत.
आदेश में कार्यक्रम के काम संदर्भ "माइक्रोसॉफ्ट वर्ड XX.X Object पुस्तकालय जरूरत है" बनाने के लिए सक्षम हो. VBA कोड का एक उदाहरण फ़ाइल इस पृष्ठ के अंत में डाउनलोड करने के लिए उपलब्ध है, का आनंद लें! या बस कॉपी और कोड इस वेब पेज से सीधे चिपकाएँ.
कोड 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
डाउनलोड फ़ाइल Excel!Write_Text_to_Word_From_Excel_using_VBA.xls |
