Problem with my script to keep all the paragraphs starting by a certain word

puff · #1 07-12-2017, 07:44 PM

My goal is to save all the paragraphs starting with the word "transcript" and after that, delete all those "transcript" at the beginning of all the remaining paragraphs since they all have it.

Here's my code so far:

Code:

Sub Para()
    Dim oPara As Paragraph
    For Each oPara In ActiveDocument.Paragraphs
        If InStr(1, oPara.Range.Words(1).Text, "transcript") = False Then
            oPara.Range.Delete
            oPara.Range.Delete
        ElseIf InStr(1, oPara.Range.Words(1).Text, "transcript") = True Then
            oPara.Range.Words(1).Text = Replace(oPara.Range.Words(1).Text, "Keep ", "")
        End If
    Next
End Sub

The problem is that this code will delete all of the paragraphs. Could someone help me out on this issue? Thank you very much!

gmayor · #2 07-12-2017, 08:41 PM

The following should work

Code:

Sub Macro1()
'Graham Mayor - http://www.gmayor.com - Last updated - 13 Jul 2017
Dim oPara As Paragraph
Dim oRng As Range
Dim i As Integer
    For Each oPara In ActiveDocument.Paragraphs
        Set oRng = oPara.Range.Words(1)
        If LCase(Trim(oRng.Text)) = "transcript" Then
            oRng.Text = "Keep "
        Else
            oPara.Range.Delete
        End If
    Next oPara
End Sub

puff · #3 08-14-2017, 06:07 AM

Thank you very much! That works really well. Another problem is that what if the word "transcript" is located at the end of the paragraph (no period after it)?
Like:

XXXXX XXXXX transcript

How do you express the concept of "the last word" in the code?　

gmayor · #4 08-14-2017, 06:57 AM

Perhaps like

Code:

Sub Macro2()
'Graham Mayor - http://www.gmayor.com - Last updated - 14 Aug 2017
Dim oPara As Paragraph
Dim oRng As Range
    For Each oPara In ActiveDocument.Paragraphs
        'set a range to the paragraph
        Set oRng = oPara.Range
        'remove the paragraph break from the end of the range
        oRng.End = oRng.End - 1
        'Clear any spaces from the end of the range
        Do While oRng.Characters.Last = Chr(32)
            oRng.End = oRng.End - 1
        Loop
        'see if the last word is '[transcript'
        If LCase(Trim(oRng.Words.Last)) = "transcript" Then
            'and if it is delete the paragraph
            oPara.Range.Delete
        End If
    Next oPara
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Problem starting Microsoft Office Apps	Ladi	Word	1	03-06-2017 01:59 PM
Starting page layout problem in Word 2010 - top of page cut off	paik1002	Word	2	01-21-2016 03:59 AM
Problem with bold numbers in multi-level list styles when having numbered headings AND paragraphs	bwofficer	Word	2	12-12-2014 12:21 AM
How to unite paragraphs starting with small capital letters with large case paragraph	csongi12xme	Word	1	04-12-2014 02:25 PM
Starting Word Problem	GeorgeVoudouris	Word	4	09-07-2011 03:39 AM