[samira20]

السلام عليكم
المبرمجين الافاضل عندي ملف وورد فيه صفحة فارغة
اريد حذفها برمجيا لو سمحتم بحيث يكتشفها البرنامج
بمعنى ليس لها رقم محدد

[samira20]

ارجو من السادة المبرمجين مساعدتي
جزاكم الله خيرا

[Osama_Ghareeb]

وعليكم السلام ورحمة الله وبركاته

أضيفي أولا مكتبة 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()

بالتوفيق

[samira20]

جزاكم الله خيرا و جعله في ميزان حسناتكم

[samira20]

السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا

[samira20]

السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا

[Osama_Ghareeb]

samira20 كتب :السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا

وعليكم السلام ورحمة الله وبركاته

هي طريقة التعامل مع الـ Footers والـ Headers
http://msdn.microsoft.com/en-us/library/...S.80).aspx