|
منتدى البرمجة كل ما يتعلق بلغات البرمجة، فيجوال بيسيك , سي ++ , دلفي , أكسيس , جافا , هتمل... |
في حال وجود أي مواضيع أو ردود مُخالفة من قبل الأعضاء، يُرجى الإبلاغ عنها فورًا باستخدام أيقونة ( تقرير عن مشاركة سيئة )، و الموجودة أسفل كل مشاركة .
آخر المواضيع |
|
مشكله مع code macro يمسح الاسطر ذات المحتوى في جدول في الوورد
|
أدوات الموضوع | انواع عرض الموضوع |
2017-08-17, 20:16 | رقم المشاركة : 1 | ||||
|
مشكله مع code macro يمسح الاسطر ذات المحتوى في جدول في الوورد
لدي مشكله مع code macro MS word file كود:
Sub DeleteBlankTableRows() Dim deleted As Boolean Dim oRow As Row deleted = False On Error Resume Next ActiveDocument.Tables(1).Select If Selection.Information(wdWithInTable) = False Then MsgBox "No table exists in the document!", vbCritical, "Error" Exit Sub End If For Each oRow In Selection.Tables(1).Rows If oRow Is Nothing Then MsgBox "The tool cannot work in this table. This might be because one or more rows have merged cells. If these merged cells are removed, it will probably work.", _ vbCritical, "Error" End End If If Len(oRow.Cells(2).Range.Text) = 2 Then 'Or If InStr(oRow.Range.Text, "") > 0 Then oRow.Delete deleted = True End If Next oRow If deleted Then MsgBox "All Blank lines have been deleted.", vbOKOnly, "Success!" Else MsgBox "No Blank lines containing *To Be Deleted* text can be found.", vbOKOnly, "Failure!" End If End Sub
|
||||
|
|
المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى
المنتدى غير مسؤول عن أي إتفاق تجاري بين الأعضاء... فعلى الجميع تحمّل المسؤولية
Powered by vBulletin .Copyright آ© 2018 vBulletin Solutions, Inc