تقييم الموضوع :
  • 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,391 04-01-17, 12:48 PM
آخر رد: مساعدة
  لأساتذتي من أهل الخبرة هل يمكن فتح ملف برقم صفحة معينة kofa 11 363 16-12-16, 05:47 AM
آخر رد: zinom
  [سؤال] مثال عن نسخ جدول من مستند وورد لمستند وورد آخر omran.a 3 146 05-12-16, 03:53 PM
آخر رد: sendbad100
  هل يمكن انشاء صفحة متصفح Mohamed20 2 181 20-11-16, 12:38 AM
آخر رد: myalsailamy
  كيف اربط ملف وورد الى قاعدة البيانات abanoub saeed nabil 4 188 08-11-16, 12:13 AM
آخر رد: ممدوح
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 191 21-10-16, 04:07 AM
آخر رد: أبو عمر
  هل يمكن عرض صفحة اكسل داخل نموذج فيجوال بيسيك 2010 walkady 4 232 18-10-16, 07:52 PM
آخر رد: sayedf1
  مشكلة في هذا الكود كيف الحل abumuhannadzym 3 157 18-10-16, 12:45 AM
آخر رد: abumuhannadzym
  [VB.NET] هل فيه طريقة سهلة لإرسال البيانات من التكست بوكس لمستند وورد ؟ أبووسم 4 263 19-09-16, 01:41 PM
آخر رد: myalsailamy
  [سؤال] كيف يتم استبدال إشارة مرجعية موجودة في ملف وورد من خلال برنامجي ؟ السندبااد 2 171 17-08-16, 10:56 AM
آخر رد: السندبااد

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


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