Hi everyone I am trying to send data from excel sheet to word document. The data is going perfectly, the only problem is when I send the data to word the aliment in word document gets messed. Please help with my main problem of alignment. Thanks Shozib This is the code which I am using. Private Sub CommandButton2_Click() Dim objWord As Object Set objWord = CreateObject("Word.Application") Sheet1.Range("F1:Q72").Copy With objWord .Documents.Add .Selection.Paste .Visible = True End With Set objWord = Nothing End Sub

جديد

نقل البيانات من Excel إلى مشكلة محاذاة Word

Excel

شوزيب

الأحد، يونيو 03 2018

0 الردود

3.3 ألف زيارة

الأصوات

فك

مرحبا الجميع
أحاول إرسال البيانات من ورقة Excel إلى مستند Word.
تسير البيانات بشكل مثالي، والمشكلة الوحيدة هي عندما أقوم بإرسال البيانات إلى Word، يتم إفساد العنصر الموجود في مستند Word.
الرجاء المساعدة في مشكلتي الرئيسية في المحاذاة.

شكر
شوزيب

هذا هو الرمز الذي أستخدمه.

أمر فرعي خاص
خافت objWord ككائن
تعيين objWord = CreateObject("Word.Application")

ورقة1.نطاق("F1:Q72").نسخ
مع objWord
.المستندات.إضافة
.التحديد.لصق
. المرئي = صحيح
انتهت ب

تعيين objWord = لا شيء

نهاية الفرعية

لا توجد ردود لهذا المنصب حتى الآن.

يرجى تسجيل الدخول إلى مرحلة ما بعد الرد

ستحتاج إلى تسجيل الدخول لتتمكن من نشر الرد. تسجيل الدخول باستخدام النموذج على اليمين أو تسجيل حساب إذا كنت جديدا هنا. سجل هنا "