تقييم الموضوع :
  • 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]
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ما الحل ؟؟؟ alma_fandi 15 290 08-05-17, 05:21 AM
آخر رد: alma_fandi
  [سؤال] تمرير بيانات من TextBoxes الى DataGridView فارغة diab4diab 4 140 20-04-17, 05:54 AM
آخر رد: مالكـ
  موضوع مش لاقى ليه اجابة نهائى ارجو الحل؟ MOSTAFA.KAMEL 4 147 15-03-17, 07:52 PM
آخر رد: MOSTAFA.KAMEL
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,539 04-01-17, 12:48 PM
آخر رد: مساعدة
  لأساتذتي من أهل الخبرة هل يمكن فتح ملف برقم صفحة معينة kofa 11 587 16-12-16, 05:47 AM
آخر رد: zinom
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 326 05-12-16, 03:53 PM
آخر رد: sendbad100
  هل يمكن انشاء صفحة متصفح Mohamed20 2 247 20-11-16, 12:38 AM
آخر رد: myalsailamy
  كيف اربط ملف وورد الى قاعدة البيانات abanoub saeed nabil 4 313 08-11-16, 12:13 AM
آخر رد: ممدوح
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 298 21-10-16, 04:07 AM
آخر رد: أبو عمر
  هل يمكن عرض صفحة اكسل داخل نموذج فيجوال بيسيك 2010 walkady 4 320 18-10-16, 07:52 PM
آخر رد: sayedf1

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


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