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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] كيف جمع عمود به قيمة فارغة يوجد مثال aboslah4u22 8 1,334 04-01-17, 12:48 PM
آخر رد: مساعدة
  لأساتذتي من أهل الخبرة هل يمكن فتح ملف برقم صفحة معينة kofa 11 305 16-12-16, 05:47 AM
آخر رد: zinom
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 118 05-12-16, 03:53 PM
آخر رد: sendbad100
  هل يمكن انشاء صفحة متصفح Mohamed20 2 160 20-11-16, 12:38 AM
آخر رد: myalsailamy
  كيف اربط ملف وورد الى قاعدة البيانات abanoub saeed nabil 4 144 08-11-16, 12:13 AM
آخر رد: ممدوح
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 150 21-10-16, 04:07 AM
آخر رد: أبو عمر
  هل يمكن عرض صفحة اكسل داخل نموذج فيجوال بيسيك 2010 walkady 4 203 18-10-16, 07:52 PM
آخر رد: sayedf1
  مشكلة في هذا الكود كيف الحل abumuhannadzym 3 137 18-10-16, 12:45 AM
آخر رد: abumuhannadzym
  [VB.NET] هل فيه طريقة سهلة لإرسال البيانات من التكست بوكس لمستند وورد ؟ أبووسم 4 236 19-09-16, 01:41 PM
آخر رد: myalsailamy
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 151 17-08-16, 10:56 AM
آخر رد: السندبااد

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


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