اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

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

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

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

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

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

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

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

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

قام بنشر

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

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

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

post-49409-0-87607200-1303698497_thumb.j

قام بنشر

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

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

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

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

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

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

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

قام بنشر

انظر المرفق :

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

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

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

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

قام بنشر

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

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

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

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") هذه الجملة تعبر عن استايل الترقيم المسجل في التمبلت عندي بهذا الرقم

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

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

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information