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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Heart [C#.NET] حول خطأ في فرز عامود التاريخ عندما تكون إحدى الخانات فارغة بلال بلال 3 338 16-11-23, 12:02 AM
آخر رد: بلال بلال
  البرنامج لدي يعمل على ويندوز 11 والان لا يعمل على ويندوز 10 ماهو الحل moh61 1 279 01-09-23, 04:38 AM
آخر رد: اسامه الهرماوي
  ممكن الحل masport tv 0 295 07-04-23, 11:36 AM
آخر رد: masport tv
  كيف افتح مستند وورد داخل الفورم ؟ أبووسم 11 1,208 29-03-23, 09:54 PM
آخر رد: أبووسم
  [سؤال] كيف اقوم بسحب معلومات من صفحة ويكيبديا zxz5432 12 7,121 20-01-23, 01:27 AM
آخر رد: lysalh65@gmail.com
  ارجو ان لا تبخلو علينا با الحل ahmedbezia 3 466 06-12-22, 01:29 PM
آخر رد: ahmedbezia
  [VB.NET] طلب تعديل كود لتصدير بيانات داتاجريدفيو الي ملف وورد moftah70 2 693 03-10-22, 01:36 AM
آخر رد: أبووسم
Exclamation [VB.NET] التعامل مع عناصر صفحة html من خلال WebView2 paypalet 2 845 26-09-22, 05:00 PM
آخر رد: Basil Abdallah
  [سؤال] [تم الحل] انشاء المسارات وتمرير البارامترات لها وقت التشغيل سعود 7 1,220 03-09-22, 09:44 AM
آخر رد: Taha Okla
  مشكلة واجهتني كتير وزهقت منها فاللي عنده الحل ياريت يفيدني بيه ميدو الفنان 7 1,023 03-09-22, 03:33 AM
آخر رد: ميدو الفنان

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


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