|
|
#4
06-18-2015, 02:21 AM
|
||||
|
||||
There is no line in the document that contains 'this computer' and comment symbol. Can I assume you mean the line that contains 'Change Notification: Initial Screen' ? In which case
Code:
Sub DeleteRow()
Dim oRng As Range
Set oRng = ActiveDocument.Range
With oRng.Find
Do While .Execute("Change Notification: Initial Screen")
oRng.Rows(1).Delete
Exit Do
Loop
End With
End Sub
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com 
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 How to write Text above the Shape Line in Ms Word 2010
|
tahakirmani | Word | 2 | 11-28-2013 05:33 PM |
| Adapting a line shape | NikkiB | Word | 4 | 03-18-2013 08:45 AM |
| Find/Delete inline Page #'s | alderfall | Word | 6 | 11-06-2012 11:51 AM |
| How do i get my text in columns straight and inline in word 2007? | terrasaw | Word | 0 | 09-03-2008 06:00 AM |
| Delete excel files by code in Access | Barry Richardson | Office | 0 | 06-13-2005 06:26 AM |
Windows 7 64bit 
Office 2010 32bit
Threaded Mode