كتابة نص على كلمة من اكسل باستخدام VBA هذا البرنامج يفتح ملفا وتكتب نص كلمة فيه ويفصل النص قليلا.
تفسير برنامج VBA فتح ملف مخزن كلمة الموجودة بالفعل على القرص الصلب وتكتب النص في الملف ، ويجعل النص غير ذلك جريئة وبعد ذلك يتم حفظ الملف وإغلاقه وتخزينها في نفس الموقع. ويمكن استخدام هذه الوظيفة عندما جعل البرامج الخاصة لجعل الأسعار حسب الطلب على سبيل المثال عندما يكون النظام التجارية القائمة ليست كافية. يمكن تقريبا كل التخصيص التي يمكن القيام به مع الملف كلمة من الممكن أن تؤدي باستخدام VBA أو القالب يمكن تخصيص قبل كتابة النص على هذا الملف.
من أجل جعل عمل برنامج المرجع "مايكروسوفت وورد xx.x مكتبة كائنات" يجب تمكين. ملف مثال رمز 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
تنزيل ملف اكسل!Write_Text_to_Word_From_Excel_using_VBA.xls |
