تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟
#1
السلام عليكم
المبرمجين الافاضل عندي ملف وورد فيه صفحة فارغة
اريد حذفها برمجيا لو سمحتم بحيث يكتشفها البرنامج
بمعنى ليس لها رقم محدد
الرد }}}}
تم الشكر بواسطة:
#2
ارجو من السادة المبرمجين مساعدتي
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#3
وعليكم السلام ورحمة الله وبركاته

أضيفي أولا مكتبة Microsoft.Office.Interop.Word

Project >> Add Reference >> .NET >> Microsoft.Office.Interop.Word

ثم إستخدمي الأمر التالي :
كود :
Dim app As New Microsoft.Office.Interop.Word.Application
        app.Documents.Open("[color=#ff0000]C:\Users\OsamaGhareeb\Desktop\MyDoc.docx[/color]")
        Dim Doc = app.ActiveDocument
        Dim Pages = Doc.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages)
        Dim PEnd As Integer = 0
        For I = Pages To 1 Step -1
            Dim Range = Doc.Range.GoTo(What:=Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Which:=Microsoft.Office.Interop.Word.WdGoToDirection.wdGoToAbsolute, Count:=I)
            Range.EndOf(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdStory, Extend:=Microsoft.Office.Interop.Word.WdMovementType.wdExtend)
            If PEnd <> 0 Then Range.End = PEnd
            If Range.Text.Trim = "" Then
                If I = Pages Then Range.Start -= 1
                Range.Delete(Unit:=Microsoft.Office.Interop.Word.WdUnits.wdCharacter, Count:=1)
            End If
            If I = Pages Then Range.Start += 1
            PEnd = Range.Start
        Next
        Doc.Save()
        Doc.Close()

بالتوفيق
الرد }}}}
تم الشكر بواسطة:
#4
جزاكم الله خيرا و جعله في ميزان حسناتكم
الرد }}}}
تم الشكر بواسطة:
#5
السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
الرد }}}}
تم الشكر بواسطة:
#7
samira20 كتب :السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
وعليكم السلام ورحمة الله وبركاته

هي طريقة التعامل مع الـ Footers والـ Headers
http://msdn.microsoft.com/en-us/library/...S.80).aspx
[SIZE=6]لا إله إلا أنت سبحانك إني كنت من [/SIZE][SIZE=6]الظالمين[/SIZE][SIZE=6]
[/SIZE]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] لكل خبير ارجو الحل Engmtamous 8 156 21-09-17, 07:52 PM
آخر رد: alsouf
  [سؤال] كيف استدعي ملف وورد بالفجوال بيسك وإضافة تاريخ وبيانات عليه عبقرينو 1 57 20-09-17, 06:08 PM
آخر رد: Rabeea Qbaha
  جلب سطر من صفحة انترنت bidaya 2 74 12-09-17, 01:08 AM
آخر رد: bidaya
  [VB.NET] طلب كود تصدير بيانات داتا جريد فيو إلى وورد waelalmsry75 4 201 27-08-17, 11:58 PM
آخر رد: waelalmsry75
  التأكد من عدم ترك خانة فارغة بالداتا جريد Abdh111 2 185 13-06-17, 01:05 AM
آخر رد: Abdh111
Question [VB.NET] احتاج كود انتقال الى صفحة انترنت (داخل الفيجوال بيسك) The Light Fire 1 144 11-06-17, 12:56 AM
آخر رد: qadar elzaman
  هل يمكن عرض جزأ معين من صفحة اكسيل او وورد في الفورم khaled12345 2 192 10-06-17, 08:18 PM
آخر رد: khaled12345
  ما الحل ؟؟؟ alma_fandi 15 491 08-05-17, 05:21 AM
آخر رد: alma_fandi
  [سؤال] تمرير بيانات من TextBoxes الى DataGridView فارغة diab4diab 4 251 20-04-17, 05:54 AM
آخر رد: مالكـ
  موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ MOSTAFA.KAMEL 4 251 15-03-17, 07:52 PM
آخر رد: MOSTAFA.KAMEL

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم