جزاك الله خيرا
هو لم يعمل معي جيدا فهو يعمل فقط على الترقيم ولكن لم يحذف الترقيم القديم
والحمد لله قمت بالتسجيل وهذه المرة نجحت وهذا هو الكود
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") هذه الجملة تعبر عن استايل الترقيم المسجل في التمبلت عندي بهذا الرقم
يعني اذا لم يكن عندك هذا الترقيم اعتقد انه لن يعمل جيدا
والاهم قبل البدء في الماكرو يجب ان تقف في اول الصفحة الثانية
ولكم جزيل الشكر
