ذخيره كلمه انتخاب شده در word

ضمن تشكر با توجه به اين كه در اين بحث ماهر مي باشيد سوال ديگري كه بي ربط هم نيست دارم
چطور مي توانم در Word به منوي فونتهاي word دسترسي داشته باشم و آنها در در يك‌ آرايه كپي كنم.
با تشكر فراوان

با سلام
بهتره بيشتر توضيح بدين!
ولي:

Private Sub Document_New()

Dim myarr() As String

cnt = Application.FontNames.Count

ReDim myarr(1 To cnt)

For i = 1 To cnt

myarr(i) = Application.FontNames(i)

Next


End Sub

با تشكر

سلام
آیا میشه تو ورد یه نوع ماکرو تعریف کرد به صورتیکه بشه با اون اطلاعات خاصی رو از توی فایل ورد استخراج کرد و توی یک فایل دیگه ریخت.
مثلا فرض کنید فایل ورد ما 50 صفحه است که شامل 50 تا نامه است و اطلاعاتی که ما نیاز داریم بین دو کلمه "باستحضار می رساند" و "مبذول فرمایید" است. میشه یه کدی نوشت که تمام ناحیه های بین این دو کلمه انتخاب بشه و کپی بشه توی یه فایل دیگه؟