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

[فردان]

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

[AQOUA]

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

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

با تشكر

[blackrose2196]

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