اريد نقل جدول الى وورد

[زهرة122]

هل يمكن نقل جدول بالاكسل الى وورد بنفس التنسيقات بدون نسخ ولصق

d.rar

[أبو حنــــين]

جرب هذا الكود

قم بوضع زر ثم انسخ الكود التالي

Private Sub CommandButton2_Click()

With Range("A2:L35")

.Select

    Selection.Copy

	    Set Newdoc = CreateObject("Word.Application")

	    On Error Resume Next

    With Newdoc

		 .Documents.Add

		    .Visible = True

		    .Selection.Paste

		 Application.CutCopyMode = False

    End With

End With

End Sub

[أبو محمد عباس]

السلام عليكم

الاستاذ العزيز ابو حنين زادك الله علما لتنفع به العباد وجعله الله سبحانه وتعالى في ميزان حسناتك

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

[أبو حنــــين]

العفو أخي الحبيب : / عباس