Macro to delete certain word in word document if marked as Yes in excel sheet

[siddo]

Hi, I'm trying to figure out a macro which can do the following.

Currently I'm using mail merge function to population fields from excel to word, however I have to pit stop now because for one filed in excel I have a list which has drop down values as (Yes/No). I want macro to delete specific paragraph in word if the value is Yes and if the value is No - I want the macro to do nothing.

Is it possible ?

 

[NdNoviceHlp]

Hi siddo. Your request is not very clear. It's hard to tell which paragraphs U want to delete? What does the yes/no represent in the Word doc... specific words/terms in the Word document, paragraph numbers or something else? Anyways, here's a basic outline for looping through a Word doc paragraphs, finding some word ("Lastword" in this eg.) and deleting the paragraph that contains the searched word. U will need to adjust the file path to suit and change the searched for term as needed. Please keep a copy of your Word document before running the code. HTH. Dave

Dim oPara As Object
Set WdApp = CreateObject("Word.Application")
WdApp.Documents.Open Filename:="C:\Foldername\FileNm.doc", ReadOnly:=False
WdApp.ActiveDocument.Select
'check each para
For Each oPara In WdApp.ActiveDocument.Paragraphs
'if not blank para
If oPara.Range.Text <> Chr(13) Then
'if not blank para, find "Lastword" in para
With oPara.Range.Find
    .Text = "Lastword"
    .Forward = True
    .Execute
    If .found = True Then
    oPara.Range.Delete
    End If
End With
End If
Next oPara
WdApp.ActiveDocument.Close savechanges:=True
WdApp.Quit
Set WdApp = Nothing