بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع عالم لاوفيس
درس جديد ومهم جدا جدا جدا جدا
الاكسيل الترحيل من الاكسيل الى الورد بدون دمج المراسلات
لكل الناس اللى تعامل مع الاكسيل وتقوم بتصدير تقارير الاكسيل الى الورد Excel To Word Easy Way للطباعة او التعديل عليها او ما شابه ذلك Mail Merge
كل دة هيكون من خلال كود VBA سهل جدا هنعملة مع بعض
فى البداية لابد هندخل من داخل محرر الاكواد على التاب Toolsونختار Reference ونختار مكتبة معينة للعمل عليها
ودى اهم خطوة قبل كتابة الكود لان دى اللى هتفتح معانا كائن الورد
ثم نقوم بكتابة الكود التالى
Sub tarheel()
Dim rng As Range
Dim app As New Word.Application
Dim doc As New Document
Dim s As Word.Range
Set app =
CreateObject("word.application")
Set doc = app.Documents.Add
Set rng = Range("a1").CurrentRegion
Set s = doc.Content
rng.Copy
s.Paste
app.Visible = True
doc.Activate
Application.CutCopyMode = False
End Sub