مطلوب ماكرو لترقيم الصفحات

[apomosap]

السلام عليكم ورحمة الله وبركاته

جزى الله خيرا كل القائمين على هذا الصرح الشامخ

من فضلكم أريد ماكرو لعمل ترقيم الصفحات بحيث لا يظهر الترقيم في الصفحة الأولى

وقد حاولت مرارا تسجيله ولكنه يفشل في اخفاء الترقيم من الصفحة الأولى

ملحوظة: بعض الملفات التي افتحها واعمل بها يكون بها ترقيم

فياليت الماكرو يكون فيه حذف الترقيم الموجود وعمل ترقيم جديد

ويكون بالانجليزي وليس به اي اقواس (رقم فقط)

وجزاكم الله خيرا وبارك فيكم

[ابوخليل]

كل الذي تفكر فيه وتريده موجود ضمن الوورد وخصائصه

تستطيع حذف ارقام الصفحات ياضافة ارقام جديدة او انقر على تذييل الصفخة ( او عرض راس وتذييل الصفحة ) واعبث بالرقم كما تشاء من تعديل ووضع اقواس او غيرها او حذف

بالنسبة لنرقيم أول صفحة من عدمه أو تنسيق الارقام انظر الى الصورة المرفقة

[apomosap]

جزاك الله خيرا اخي الكريم

بفضل الله استطيع التعامل معه جيدا

ولكن كم الملفات التي اتعامل معها يوميا كبير واقوم باكثر من عمل في الملف الواحد

فقمت بعمل اكثر من ماكرو لبعض الاعمال وهذا ما وقفت عنده

وانا احتاجه فقط لسرعة العمل

وجزاك الله خيرا على اهتمامك

ومازال الطلب قيد الطلب

[ابوخليل]

انظر المرفق :

يحتوي على ماكروا يقوم بحذف ارقام الصفحات السابقة ويرقم الصفحات ابتداء من الصفحة الثانية

انظر الايقونة على شريط المهام "ترقيم الصفحات"

آمل أن يحقق مطلوبك

ماكرو ترقيم صفحات.rar

[apomosap]

جزاك الله خيرا

هو لم يعمل معي جيدا فهو يعمل فقط على الترقيم ولكن لم يحذف الترقيم القديم

والحمد لله قمت بالتسجيل وهذه المرة نجحت وهذا هو الكود

Sub PageNumbers()

'

' PageNumbers Macro

'

'

WordBasic.ViewFooterOnly

Selection.WholeStory

Selection.Delete Unit:=wdCharacter, Count:=1

Selection.MoveDown Unit:=wdLine, Count:=2

With ActiveDocument.Styles(wdStyleNormal).font

If .NameFarEast = .NameAscii Then

.NameAscii = ""

End If

.NameFarEast = ""

End With

With ActiveDocument.PageSetup

.LineNumbering.Active = False

.Orientation = wdOrientPortrait

.Gutter = CentimetersToPoints(0)

.FirstPageTray = wdPrinterDefaultBin

.OtherPagesTray = wdPrinterDefaultBin

.SectionStart = wdSectionNewPage

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = True

.VerticalAlignment = wdAlignVerticalTop

.SuppressEndnotes = False

.MirrorMargins = False

.TwoPagesOnOne = False

.BookFoldPrinting = False

.BookFoldRevPrinting = False

.BookFoldPrintingSheets = 1

.GutterPos = wdGutterPosRight

.SectionDirection = wdSectionDirectionRtl

End With

WordBasic.ViewFooterOnly

NormalTemplate.BuildingBlockEntries("2").Insert Where:=Selection.Range, _

RichText:=True

With Selection.HeaderFooter.PageNumbers

.NumberStyle = wdPageNumberStyleArabic

.HeadingLevelForChapter = 0

.IncludeChapterNumber = False

.ChapterPageSeparator = wdSeparatorHyphen

.RestartNumberingAtSection = False

.StartingNumber = 0

End With

ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument

End Sub

ملحوظة:

NormalTemplate.BuildingBlockEntries("2") هذه الجملة تعبر عن استايل الترقيم المسجل في التمبلت عندي بهذا الرقم

يعني اذا لم يكن عندك هذا الترقيم اعتقد انه لن يعمل جيدا

والاهم قبل البدء في الماكرو يجب ان تقف في اول الصفحة الثانية

ولكم جزيل الشكر