keep only sentences beginning with: Wind

Michael007 · #1 01-16-2011, 09:13 PM

Hi everyone,

I am a beginner with VBA. I wonder if it is possible with a VBA to keep in a long text, only the sentences beginning with the words: "Wind" or "Donaway" or "Sagway". If yes, could you write a piece of VBA, pls.

For instance, in the following text:
=====

Donaway to Isle-Icer - eastern half.
Winds southwest 15 to 25 knots diminishing to light this evening. Wind increasing to northeast 20 to 30 near noon saturday. Periods of drizzle and occasional fog turning to snow tonight. Low tonight minus 1. High Saturday plus 2.

Sagway to Tadouvik.
Gale warning in effect.
Wind light becoming east 10 to 15 knots early this evening then diminishing to light near midnight.Wind increasing to east 15 to 25 near noon Saturday and to 25 to 35 Saturday evening. Risk of freezing drizzle late this afternoon.
====

I wish to keep only
====
Donaway to Isle-Icer - eastern half.
Wind southwest 15 to 25 knots diminishing to light early this evening and to light near midnight. Wind increasing to northeast 15 to 25 near noon Saturday.

Sagway to Tadouvik.
Wind light becoming east 10 to 15 knots early this evening thendiminishing to light near midnight. Wind increasing to east 15 to25 near noon Saturday and to 25 to 35 Saturday evening.
=========

Thanks for your help
Michael

macropod · #2 01-16-2011, 11:32 PM

Hi Michael,

Try:

Code:

Sub Demo()
Application.ScreenUpdating = False
Dim RngSnt As Range, RngTmp As Range, strWrd As String
Dim i As Integer, bWrd As Boolean, ArrWrds As String
ArrWrds = "Wind,Winds,Donaway,Sagway"
With ActiveDocument
  For Each RngSnt In .Sentences
    bWrd = False
    With RngSnt
      strWrd = Trim(.Words.First.Text)
      For i = 0 To UBound(Split(ArrWrds, ","))
        If Split(ArrWrds, ",")(i) = strWrd Then bWrd = True: Exit For
      Next
      If bWrd = False Then
        Set RngTmp = RngSnt
        RngTmp.End = RngTmp.End - 1
        RngTmp.Delete
      End If
    End With
  Next
End With
Application.ScreenUpdating = True
End Sub

Michael007 · #3 01-17-2011, 03:15 PM

Hi Paul,

it is very close but there are still a few details to fix.
1. The VBA keeps only the text of the current line (until the next paragraph and the rest of the sentence is lost). Infact, I want to keep the text until the next "." .
2. It keeps the blank lines from one region to the other. How can I get rid of them.

I joined an example of a marine forecast. I did make the appropriate changes "Wind,Northerly,Southerly,Easterly,Westerly"

Thanks for your help
Michael

macropod · #4 01-17-2011, 04:11 PM

Hi Michael,

The problem is due to your data having paragraph breaks at the end of every line. That means that every line is regarded as a paragraph of however many sentences it may contain, in its own right. ISTR I gave you a macro before for cleaning up such documents. If you do that first, the latest macro should do its job.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Sentences and paragraphs keep disappearing in Word XP (2002) at bottom of page	urobolus	Word	3	08-26-2011 10:02 AM
Dash in the beginning of a new line	Wakinyan	Word	0	07-11-2010 07:10 AM
Add text to the beginning/ending of each line in word	ballmoney	Word	1	01-17-2010 02:19 AM
Looping macros to add text to beginning and end of a paragraph	pachmarhi	Word VBA	0	02-16-2009 06:57 AM
capitalize first letter of sentences	norco1	Word	0	06-25-2006 12:37 PM