المشاركات : 58
المواضيع 19
الإنتساب : Nov 2014
السمعة :
3
الشكر: 217
تم شكره 253 مرات في 21 مشاركات
08-12-14, 02:38 PM
(آخر تعديل لهذه المشاركة : 08-12-14, 03:30 PM {2} بواسطة Ksa004 .)
اعزائي لو تكرمتم اريد طريقة كتابة الكود
حيث يقوم بحفظ ملف نصي وتكون القيمة الموجوده في Text اسم للملف
مثلا :
text1.text=" سبحان الله"
ActiveDocument.SaveAs2 FileName:=D:\vb\(Text1.Text).DOC
شاكر ومقدر لكل أعضاء المنتدى الكرام
شاكر لكم اعزائي وجدت الحل
Dim strFilename As String
strFilename = Text1.Text
MyWord.ActiveDocument.SaveAs FileName:="D:\good programs\" + strFilename, FileFormat:= _
wdFormatDocument
لمن يريد ان يستفيد منه
المشاركات : 459
المواضيع 3
الإنتساب : Jan 2014
السمعة :
70
الشكر: 4548
تم شكره 3084 مرات في 332 مشاركات
السلام عليكم
تم عمل مثال بسيط في المرفق حيث يوجد ملف yy.txt في مجلد المشروع وعند الضغط على زر حفظ الملف يتم حفظه في (d)
وياخذ اسمه من text1
ارجو ان يكون هذا هو المطلوب
تحياتي لك
الملفات المرفقة
حفظ ملف.rar (الحجم : 1.39 ك ب / التحميلات : 45)
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم
المشاركات : 58
المواضيع 19
الإنتساب : Nov 2014
السمعة :
3
الشكر: 217
تم شكره 253 مرات في 21 مشاركات
شاكر لك عزيزي السيد الغالي على تجاوبك معي
لدي استفسار بسيط اخر
وهو قبل ان أقوم بحفظ الملف اريد التأكد من ان الملف غير مجود
واذا كان موجود يقوم البرنامج بحذفه
با اعتبار ان القيمه التي في text ستكون اسم الملف
انا اعمل حاليا على هذا الكود الا انه يحدث خطا بان الملف غير موجود
If Dir("D:\my programs" & Text1.Text) <> "" Then
Kill ("D:\my programs\" & Text1.Text)
End If
شاكر ومقدر لك
المشاركات : 459
المواضيع 3
الإنتساب : Jan 2014
السمعة :
70
الشكر: 4548
تم شكره 3084 مرات في 332 مشاركات
السلام عليكم
في المرفق تجد ما طلبته ارجو ان يكون هو المطلوب
تحياتي لك
الملفات المرفقة
حفظ ملف2.rar (الحجم : 1.66 ك ب / التحميلات : 57)
تحيــــــــــــــــــــــــــــاتي لكـــــــــــــــــــم