العودة   منتديات داماس > انظمة التشغيل والاوفيس > اسئلة ونقاشات واستفسارات ودروس وشروحات الاوفيس

  مواضيع مميزة  

  آخر عشرة مواضيع   المواضيع النشطة



إضافة رد
  #1  
10-11-2016, 11:22 PM
عضو جديد
رقم العضوية: 649930
تاريخ التسجيل: Aug 2015
المشاركات: 7
تلقى دعوات الى: 0 موضوع
إعجاب: 1
تلقى إعجاب 1 على مشاركة واحدة
 

كيفية فصل صفحات الورد من بعضها

مساعدة بسيطة من الاخوة الافاضل
لدي استفسار بسيط جدا بخصوص ورد 2013
لو عندى ملف ورد فى تلت صفحات وعايز افصل كل صفحة من التلاته دول فى ملف ورد لوحده بعيدا عن اخواتهم كيف



الاستفسار الثانى بخصوص الرسالة دى الشريط الاصفر اللى تحت قوائم التبويبات اول مره اسطب اوفيس عندى ويظهرلى الرسالة دى


كيفية فصل صفحات الورد من بعضها

التسجيل في بوابة داماس يمنحك روابط مباشرة لتحميل الملفات




  #2  
03-12-2016, 11:08 PM
عضو محترف
رقم العضوية: 769170
تاريخ التسجيل: Apr 2016
المشاركات: 511
تلقى دعوات الى: 1 موضوع
إعجاب: 85
تلقى 138 إعجاب على 63 مشاركة
 
اخى الكريم
اذا كان عندك ملف يحتوى على 3 صفحات من الوورد يمكنك تقسيمه الى 3 ملفات كل صفحه على ملف منفصل :
فتح الملف الموجود به 3 صفحات ثم الضغط على file ومنها اختار Save as ( أو اضغط على ذر F12 من الكيبورد ) ثم اكتب اسم للملف (اسم مختلف عن الاسم الاصلى للملف الموجود) ثم اضغط حفظ .. كرر هذه العمليه مرتين ليصبح لديك 3 ملفات موجوده فيهم نفس 3 صفحات ثم بعد ذلك افتح الملف الاول وامسح الكتابه اللى فى الصفحتين الاخيرتين ثم اضغط حفظ ثم اغلاق الملف .. ثم افتح الملف الثانى واحذف منه الكتابه اللى فى الصفحه الاولى وايضا اللى فى الصفحه الاخيره واضغط حفظ ثم اغلاق الملف .. ثم فتح الملف الثالث وامسح الكتابه اللى فى الصفحه الاولى والثانيه ثم اضغط حفظ ثم غلق الملف بذلك يكون لديك 3 ملفات كل ملف يحتوى على صفحة واحده .

بالنسبه للرساله
missing proofing tools this document text in arabic which isnt being proofed you may be able to get proofing tools for this language
هذا يعنى ان الاوفس لديك محتاج تثبيت حزمة اللغه العربيه كامله (ادوات اللغه العربيه) لكن هذه الرساله ليس مشكله يمكنك الضغط على Download لتحميل حزمة اللغه العربيه للأوفس .
اتمنى لك التوفيق

  #3  
04-12-2016, 02:09 AM
عضو محترف
رقم العضوية: 396132
تاريخ التسجيل: Jan 2012
الإقامة: Darnah, Libya
المشاركات: 548
تلقى دعوات الى: 4 موضوع
إعجاب: 308
تلقى 475 إعجاب على 229 مشاركة
 
الله يعطيك العافية، بس لو 50 صفحة، بهذه الطريقة لن يصبح كمبيوتر !
استخدم المكرو اسرع وافضل لانجاز العمليات المتكرره
انسخ السكربت التالي والصقه في صفحة المكرو بالاوفيس وورد
ثم run وتحصل على ملفات في كل ملف صفحة ومرقمة بالتسلسل
Sub SplitIntoPages() 
Dim docMultiple As Document 
Dim docSingle As Document 
Dim rngPage As Range 
Dim iCurrentPage As Integer 
Dim iPageCount As Integer 
Dim strNewFileName As String 
Application.ScreenUpdating = False 'Makes the code run faster and reduces screen _
 flicker a bit. 
Set docMultiple = ActiveDocument 'Work on the active document _
(the one currently containing the Selection) 
Set rngPage = docMultiple.Range 'instantiate the range object
iCurrentPage = 1 
'get the document's page count
iPageCount = docMultiple.Content.ComputeStatistics(wdStatisticPages) 
Do Until iCurrentPage > iPageCount 
If iCurrentPage = iPageCount Then 
rngPage.End = ActiveDocument.Range.End 'last page (there won't be a next page) 
Else
'Find the beginning of the next page
'Must use the Selection object. The Range.Goto method will not work on a page
Selection.GoTo wdGoToPage, wdGoToAbsolute, iCurrentPage + 1 
'Set the end of the range to the point between the pages
rngPage.End = Selection.Start 
End If 
rngPage.Copy 'copy the page into the Windows clipboard
Set docSingle = Documents.Add 'create a new document
docSingle.Range.Paste 'paste the clipboard contents to the new document
'remove any manual page break to prevent a second blank
docSingle.Range.Find.Execute Findtext:="^m", ReplaceWith:="" 
'build a new sequentially-numbered file name based on the original multi-paged file name and path
strNewFileName = Replace(docMultiple.FullName, ".doc", "_" & Right$("000" & iCurrentPage, 4) & ".doc") 
docSingle.SaveAs strNewFileName 'save the new single-paged document
 iCurrentPage = iCurrentPage + 1 'move to the next page
docSingle.Close 'close the new document
rngPage.Collapse wdCollapseEnd 'go to the next page
Loop 'go to the top of the do loop
Application.ScreenUpdating = True 'restore the screen updating 
'Destroy the objects.
Set docMultiple = Nothing 
Set docSingle = Nothing 
Set rngPage = Nothing 
End Sub 
تقبل تحياتي

إضافة رد



الساعة الآن 12:05 PM.


Powered by vBulletin® Version
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
The owner and operator of the site is not responsible for the availability of, or any content provided.
Topics that are written in the site reflect the opinion of the author.
جميع ما يُطرح من مواضيع ومشاركات تعبر عن رأي كاتبها ولا تعبر عن رأي مالك الموقع أو الإدارة بأي حال من الأحوال.