ترحيل من الاكسيل الى الوورد vba

[أبو محمد أشرف]

السلامعليكم ورحمة الله وبركاته

هذا الملف به كود للترحيل من الاكسيل للورد ما فيه اسهل من كده 

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

تصدير بيانات الى وورد.rar

[أسامة البراوى]

السلام عليكم

ضيف السطر ده فى نهاية الكود

 doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = True 

لكى يصبح الكود النهائى كالتالى

Sub Ashraf()
    Dim rng As Range
    Dim app As New Word.Application
    Dim doc As New Document
    Dim t As Word.Range

    Set app = CreateObject("word.application")
    Set doc = app.Documents.Add
    Set rng = Range("A1").CurrentRegion

    Set t = doc.Content
    rng.Copy
    t.Paste
    app.Visible = True
    doc.Activate
     
    doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = True 
  
End Sub

على فكرة.... قبل مانسى

انا اسمى اسامة البراوى ...... مش البرماوى  

تم تعديل سبتمبر 8, 2015 بواسطه أسامة البراوى

[أبو محمد أشرف]

وعليكم السلام ورحمة الله وبركاته

شكرا لك وجزاك الله خيرا هل هناك حل كلما زت المدى يطلع في الوورد كلام غير مفهوم وغير واضح

وعذرا على الخطأ في الاسم

[أسامة البراوى]

مش واضح بالنسبة لى يعنى ايه زدت المدى

عدل ثم ضع مثال لما تريد

[أبو محمد أشرف]

أقصد عندي 56000 خليه فيها بيانات عاوز ارحلها للورد مرة واحدة بدلا من تقسيمها على مراحل

doc.ActiveWindow.Selection.Tables(1).Rows(1).HeadingFormat = Trueعدلت rows(2) مكنش بيظهر رأس الجدول في كل صحة لأني دامج خليتين في الأول شاكر لك حسن تعاونكم

[أسامة البراوى]

السلام عليكم

بالنسبة لرأس الجدول انا حاولت برمجيا ادخل الصفين ولم يجدى .... اكتفى بسطر واحد

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

[أبو محمد أشرف]

جزاك الله خيرا على تعاونك انا بوضع  ( 2 ) row 

بدلا من (1) row وأصبح  رأس الجدول تمام ينتقل 

تم تعديل سبتمبر 9, 2015 بواسطه أبو محمد أشرف

[أسامة البراوى]

كدة جميل

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