مطلوب إضافة شرط التحديد إلى كود التصدير

[عربي عالمي]

السلام عليكم ..

مطلوب لو تكرمتوا إضافة شرط التحديد إلى كود التصدير لملف وورد في المرفق .

مع الشكر .

مثال تصدير إلى ملف وورد 05-07-1443 --15-17.rar

[Moosak]

تفضل أخي ..

قمت بنقل الكود لحدث عند النقر بدل عند التركيز .. ثم قمت بإضافة الشرط والرسالة ليصبح هكذا :

Private Sub comm_ex_Click()
On Error Resume Next
Dim X As Object
Dim objWord As Object
Set X = CreateObject("Word.Application")
Me.Refresh
If Me.تدقيق7 = -1 Then
    'Continue
Else
    MsgBox "يجب التحديد للقيام بعملية التصدير", vbOKOnly, "تنبيه !"
    Exit Sub
End If

X.Documents.Open CurrentProject.Path & "\word_ex.docx"
X.Visible = True
X.ActiveDocument.Bookmarks("G").Select
X.Selection.InsertAfter G
End Sub

الملف :

مثال تصدير إلى ملف وورد 05-07-1443 --15-17.rar

تم تعديل فبراير 6, 2022 بواسطه Moosak

[عربي عالمي]

مشكور أخي Moosak

وفقك الله ،،

وللفائدة ما هو السبب المتوقع الذي جعل المستخدم السابق الذي تم نقل الكود منه الذي جعله يضع الأمر في خاصية عند التركيز وليس عند النقر ؟!

وهل يوجد اختلاف بين أداء أو عمل الزرين وما هو الأصح بينهما وكما يظهر لي بأنه عند النقر هو الأنسب ؟ ولكنني قلت ربما أن له سبب أو أهمية في تنفيذ الأمر !!

تم تعديل فبراير 6, 2022 بواسطه عربي عالمي

[Moosak]

16 دقائق مضت, عربي عالمي said:

مشكور أخي Moosak

وفقك الله ،،

وللفائدة ما هو السبب المتوقع الذي جعل المستخدم السابق الذي تم نقل المثال منه الذي جعله يضع الأمر في خاصية عند التركيز وليس عند النقر ؟!

وهل يوجد اختلاف بين أداء أو عمل الزرين وما هو الأصح بينهما وكما يظهر لي بأنه عند النقر هو الأنسب ؟ ولكنني قلت ربما أن له سبب أو أهمية في تنفيذ الأمر !!

العفو أخي العزيز ،،

لا أعلم ما سبب جعله سابقا في حدث عند التركيز ( لربما لسبب لا نعلمه في بطن الشاعر ) 😅

ولكل حدث استخدامه الخاص .. 

ولكن أنا نقلت الكود لسبب أنه عندما يكون التركيز بالفعل على الزر وتريد أن تكرر العملية فإنه لا يستجيب حتى تقوم بنقل التركيز لعنصر آخر ثم تعود للزر من جديد .. وهذا بطبيعة الحال غير عملي ..