فتح ملف حفظ أقرب كلمة هذا البرنامج يفتح ملف كلمة على موقع محدد مسبقا ويحفظ الملف مع اسم آخر إلى مكان آخر.
تفسير من أجل جعل عمل برنامج المرجع "مايكروسوفت وورد xx.x مكتبة كائنات" يجب تمكين. يقوم البرنامج بفتح ملف كلمة في مكان محدد مسبقا ويحفظ الملف مع اسم آخر إلى مكان آخر. يمكن أن يكون هذا مفيدا عندما جعل الأسعار أو غيرها من العمليات التي تحتاج إلى التخصيص مع النص من قواعد بيانات مختلفة. الاتصالات بين وورد وإكسل معتمد بشكل كامل. ملف مثال على رمز من الممكن أن يجلب في نهاية هذا الموقع والاستمتاع! أو مجرد نسخ ولصق رمز مباشرة من هذه الصفحة.
رمز Sub Open_Close_Save_As_Word_File()
Dim Open_Close_Save_As_Word_File_APP As Word.Application
Dim Open_Close_Save_As_Word_File_DOC As Word.Document
Set Open_Close_Save_As_Word_File_APP = CreateObject("Word.Application")
Dim PlaceOfWordFile As String
Dim NameOfWordFile As String
Dim NewPlaceOfWordFile As String
Dim NewNameOfWordFile As String
PlaceOfWordFile = Range("B4").Value
NameOfWordFile = Range("B5").Value
NewPlaceOfWordFile = Range("B6").Value
NewNameOfWordFile = Range("B7").Value
NamePlace = PlaceOfWordFile + "\" + NameOfWordFile
NewNamePlace = NewPlaceOfWordFile + "\" + NewNameOfWordFile
Open_Close_Save_As_Word_File_APP.Visible = True
Set Open_Close_Save_As_Word_File_DOC = Open_Close_Save_As_Word_File_APP.Documents.Open(NamePlace, ReadOnly:=True)
Open_Close_Save_As_Word_File_DOC.SaveAs (NewNamePlace)
Open_Close_Save_As_Word_File_APP.Quit
Set Open_Close_Save_As_Word_File_DOC = Nothing
Set Open_Close_Save_As_Word_File_APP = Nothing
End Sub
تنزيل ملف اكسل!Open_Close_Save_As_Word_File.xls |
