طلب تطبيق شهادة بحساب عميل من الوورد الي الاكسيل

[وليد عبدالغني]

طلب تطبيق  شهادة بحساب عميل   من الوورد الي الاكسيل

مرفق شهادة بحساب عميل يتم كتابتها علي الوورد فاردت تحويلة الى الى اكسيل  للتسهيل حيث ان لغتها الانجليزية

المشكلة ان حساب العميل قد يحتوي علي واحد او اكثر من الحسابات التالية 

The current account:
Saving Account:
Certificates & deposits:
Islamic Loan :
Diamond Certificates:
Cheques  under collection :
The current debit account :
The current debit account :
Bills under collection :

وقد تكون عملة الحساب جنية مصري فقط وقد يكون للعميل مصري ودولار لنفس البند

وقد يوجد حساب العميل علي اكثر من فرع 

برجاء المساعدة حاولت ولكني لم اوفق

مرفق الشهادة وورد والتي ترهقنا في محاولة الترجمة والنقل لها مرة اخري

مرفق محاولتي بورقة الاكسيل وبها دالتي تفقيط بالجنية والدولار

CERTIFICATE2.rar

المصنف1.rar

تم تعديل أغسطس 14, 2016 بواسطه waleed abdelghany
تعديل كلمة وورد

[وليد عبدالغني]

والله لم اتعود منكم دائما الي العون

واني منتظر ان شاء اللة

[وليد عبدالغني]

يا جماعة حد يديني بداية وانا اكمل 

[ياسر خليل أبو البراء]

أخي الكريم وليد

صراحة الموضوع مبهم بعض الشيء ولذا لا توجد استجابة جيدة ..

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

فخطرت لي فكرة .. وهي كالتالي :

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

 

الخطوة الأولى افتح المستند الموجود لديك (ملف الورد) ثم اضغط Ctrl + A لتحديد كافة البيانات في المستند

اذهب للتبويب Insert ثم Table ثم اختر الأمر Convert Text To Table

 

احفظ المستند وأغلق الورد

 

افتح المصنف وأدرج ورقة عمل جديدة ..

ادخل لمحرر الأكواد Alt + F11 .. ومن قائمة Insert اختر Module لإدراج موديول جديد ثم قم بلصق الكود التالي

Sub Import_Word_Table()
    Dim wdDoc As Object
    Dim wdFileName As Variant
    Dim TableNo As Integer
    Dim iRow As Long
    Dim iCol As Integer

    wdFileName = Application.GetOpenFilename("Word Files (*.docx),*.docx", , "Browse For File Containing Table To Be Imported")

    If wdFileName = False Then Exit Sub

    Set wdDoc = GetObject(wdFileName)

    With wdDoc
        TableNo = wdDoc.Tables.Count

        If TableNo = 0 Then
            MsgBox "This Document Contains No Tables", vbExclamation, "Import Word Table"
            Exit Sub
        ElseIf TableNo > 1 Then
            TableNo = InputBox("This Word Document Contains " & TableNo & " Tables." & vbCrLf & "Enter Table Number Of Table To Import", "Import Word Table", "1")
        End If

        With .Tables(TableNo)
            For iRow = 1 To .Rows.Count
                For iCol = 1 To .Columns.Count
                    Cells(iRow, iCol) = WorksheetFunction.Clean(.cell(iRow, iCol).Range.Text)
                Next iCol
            Next iRow
        End With
    End With

    Set wdDoc = Nothing
End Sub

ارجع ورقة العمل ثم اضغط Alt + F8 واختر الإجراء الفرعي Import_Word_Table ثم انقر زر الأمر Run لتنفيذ الكود

أرجو أن يكون الحل بداية الطريق لحل المشكلة بالإجمال

تقبل تحياتي