+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : (تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ (/showthread.php?tid=7212)
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - samira20 - 02-12-12
السلام عليكم
المبرمجين الافاضل عندي ملف وورد فيه صفحة فارغة
اريد حذفها برمجيا لو سمحتم بحيث يكتشفها البرنامج
بمعنى ليس لها رقم محدد
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - samira20 - 03-12-12
ارجو من السادة المبرمجين مساعدتي
جزاكم الله خيرا
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - Osama_Ghareeb - 03-12-12
وعليكم السلام ورحمة الله وبركاته
أضيفي أولا مكتبة 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 - 03-12-12
جزاكم الله خيرا و جعله في ميزان حسناتكم
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - samira20 - 04-12-12
السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - samira20 - 04-12-12
السلام عليكم
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
(تم الحل) كيف احذف صفحة فارغة في ملف وورد؟ - Osama_Ghareeb - 04-12-12
samira20 كتب :السلام عليكموعليكم السلام ورحمة الله وبركاته
الكود يحذف الصفحة الفارغة تماما
هل يمكن التعديل عليه ليحذف صفحة لاتحتوي سوى تذييل (عبارة اسفل الصفحة لكل الصفحات)؟
جزاكم الله خيرا
هي طريقة التعامل مع الـ Footers والـ Headers
http://msdn.microsoft.com/en-us/library/ms178795(VS.80).aspx