تحويل ملف وورد إلي إكسل

[Yasmin wageh]

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

[Yasmin wageh]

@ali mohamed ali

[Ali Mohamed Ali]

وعليكم السلام -اهلا بك فى المنتدى

طالما انك لم تقم برفع ملف فهناك العديد من الطرق منها :

يمكنك مشاهدة هذا الفيديو

https://www.youtube.com/watch?v=nF1VNTGzN3c

https://www.youtube.com/watch?v=qU1z3jdUZ_g

وهذا ايضا رابط  للتحويل مباشرة من الوورد الى الإكسيل

https://convertio.co/ar/doc-xls/

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

1-  إفتح ملف الورد المراد تحويله لإكسيل word .doc

2- قم بحفظة على صورة ملف بصيغة اتش تي ام ال أو صفحة إنترنت  باسم الملف المراد تحويلة  file / save as / web page format

3 – قم بفتح ملف اكسيل جديد open new xls

4- اضغط على فتح في قائمة ملف  open /brwos/ select file

5- إختار الملف بصيغة الاتش تي ام ال السابق تحويله  file html.

6- قم بحفظ الملف ذاته بأختيار صيغة اكسيل ورقة عمل باختيار احد صيغ الأكسيل باصداراته المراد انشاؤها file/ save as/ xls 97/2033

وهذا رابط اخر من داخل المنتدى ناقش نفس الموضوع

https://www.officena.net/ib/topic/33342-المطلوب-ملف-وورد-به-جداول-طولية-تحويله-الى-ملف-اكسل/

وهذه فيديوهات كمان لنقل البيانات من الوورد الى الإكسيل بأكواد VBA :

https://www.youtube.com/watch?v=9QJXmsczaP8

https://www.youtube.com/watch?v=5IRWMSBmw1w

وهذا كود تحويل ايضا

Sub importTableDataWord()
‘We declare object variables for Word Application and document
Dim WdApp As Object, wddoc As Object
‘Declare a string variable to access our Word document
Dim strDocName As String
‘Error handling
On Error Resume Next
‘Activate Word it is already open
Set WdApp = GetObject(, “Word.Application”)
If Err.Number = 429 Then
Err.Clear
‘Create a Word application if Word is not already open
Set WdApp = CreateObject(“Word.Application”)
End If
WdApp.Visible = True

strDocName = “C:\our-inventory\inventory.docx”
‘Check relevant directory for relevant document
‘If not found then inform the user and close program
If Dir(strDocName) = “” Then
MsgBox “The file ” & strDocName & vbCrLf & _
“was not found in the folder path” & vbCrLf & _
“C:\our-inventory\.”, _
vbExclamation, _
“Sorry, that document name does not exist.”
Exit Sub
End If

WdApp.Activate

Set wddoc = WdApp.Documents(strDocName)

If wddoc Is Nothing Then Set wddoc = WdApp.Documents.Open(strDocName)
wddoc.Activate
‘define variables to access the tables in the word document
Dim Tble As Integer
Dim rowWd As Long
Dim colWd As Integer
Dim x As Long, y As Long
x = 1
y = 1
With wddoc
Tble = wddoc.tables.Count
If Tble = 0 Then

MsgBox “No Tables found in the Word document”, vbExclamation, “No Tables to Import”
Exit Sub
End If
‘start the looping process to access tables and their rows, columns
For i = 1 To Tble
With .tables(i)
For rowWd = 1 To .Rows.Count
For colWd = 1 To .Columns.Count
Cells(x, y) = WorksheetFunction.Clean(.cell(rowWd, colWd).Range.Text)
‘Access next column
y = y + 1

Next colWd
‘go to next row and start from column 1
y = 1
x = x + 1

Next rowWd
End With

Next
End With
‘we don’t need to save the word document
wddoc.Close Savechanges:=False
‘we quit Word
WdApp.Quit
‘We finally release system memory allocated to the 2 object variables
Set wddoc = Nothing
Set WdApp = Nothing
End Sub

 

 

 

تم تعديل فبراير 4, 2019 بواسطه ali mohamed ali

[mooon984]

وعليكم السلام 

يتم حفظ ملف الورد بصيغه web page ثم بعد ذلك قومى بسحب الملف و ادراجه فى اكسيل