How to remove text from Word Document

gmayor · #3 11-27-2014, 11:43 PM

With due deference to Paul, who is a whizz with find and replacement strings, I don't think this one does what you intend. Nor is it entirely clear what you want to remove and what you want to keep.

From your description I assumed you wanted to keep the IMEI line and the NCK line and remove the other two lines
OR
Keep the IMEI line and the NSCK and SPCK lines and remove the NCK line,

so in the following macro I have provided code options to do either - http://www.gmayor.com/installing_macro.htm

Code:

Sub RemoveParas()
Dim oPara As Paragraph
Dim oRng As Range
    Set oRng = ActiveDocument.Range
    With oRng.Find
        Do While .Execute(FindText:=Chr(11))
            oRng.Text = Chr(13)
            oRng.Collapse wdCollapseEnd
        Loop
    End With
    For Each oPara In ActiveDocument.Paragraphs
        oPara.Range.ParagraphFormat.SpaceAfter = 0
        
        'Option 1 ________________________
        'If Trim(oPara.Range.Words(1).Text) = "NCK" Or _
         Trim(oPara.Range.Words(1).Text) = "SPCK" Then oPara.Range.Delete
         '-------------------
         
         'Option 2
        If Trim(oPara.Range.Words(1).Text) = "NSCK" Then oPara.Range.Delete
        '--------------------
    Next oPara
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Is there a way remove periods at the end of every bullet in a document?	ravl13	Word	3	06-12-2014 04:55 PM
hard lines across document - can't remove	joanieS	Word	3	07-30-2013 11:29 AM
Remove all images from a Mac OS X Word 2008 Document?	qcom	Drawing and Graphics	0	04-23-2011 06:48 PM
Need help on Macro 03- Find text - if text is blank then remove line	simpleonline1234	Word VBA	1	02-25-2011 02:28 AM
Remove text in start up document	Sheila	Word	1	09-30-2010 03:33 PM