کمک فوری ؟؟؟؟؟؟کپیheader/footer از یک فایل Word در فایل Word دیگر

[navidkhalilian]

سلام دوستان.من می خوام header footer یک فایل Word را بخونم و توی header footer یک فایل Word دیگه کپی کنم.ممنون میشم دوستان کمک کنند.

[hakim22]

از راهنمای ورد در قسمت developers میتونی کدهای نمونه برای VBA بدست بیاری که روش کار با header و footer چیه.
برای انتقال همون دستورات در دات نت باید reference ورد رو به برنامه اضافه کنی تا همون دستورات فعال بشن. اما در این روش حتما باید ورد در رایانه ی کاربر نصب باشه. اون هم از همین نسخه.

[navidkhalilian]

دوست عزیز جستجو کردم اما اکثر تاپیک ها بدون جواب بود و راهنمای WORD هم چیزی نداشت که به من کمک کنه.ممنون میشم اگر کسی لینک داره بزاره.تشکر

[hakim22]

پس چطور من پیدا کردم :

With ActiveDocument.Sections(1)

    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"

    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"

End With



یا این کد : 



ActiveDocument.PageSetup.DifferentFirstPageHeaderF  ooter = True

With ActiveDocument.Sections(1).Headers(wdHeaderFooterF  irstPage)

    .Range.InsertAfter("First Page Text")

    .Range.Paragraphs.Alignment = wdAlignParagraphRight

End With



این هم آدرس مسیر کامل : 



Word 2007 Developer Reference > Word Object Model Reference > Section Object > Properties

[navidkhalilian]

پس چطور من پیدا کردم :

With ActiveDocument.Sections(1)

    .Headers(wdHeaderFooterPrimary).Range.Text = "Header text"

    .Footers(wdHeaderFooterPrimary).Range.Text = "Footer text"

End With



یا این کد : 



ActiveDocument.PageSetup.DifferentFirstPageHeaderF  ooter = True

With ActiveDocument.Sections(1).Headers(wdHeaderFooterF  irstPage)

    .Range.InsertAfter("First Page Text")

    .Range.Paragraphs.Alignment = wdAlignParagraphRight

End With



این هم آدرس مسیر کامل : 



Word 2007 Developer Reference > Word Object Model Reference > Section Object > Properties

دوست عزیز این دستوری که شما پیدا کردی کاری که من می خوام رو انجام نمیده.لطفاً دقت کنید به پست اول.دوستان کمک کنید لطفاً.تشکر