Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and replace in Word from Excel
From Excel, I need to open a Word document, find "aaaa" in the Word
document, and then replace "aaaa" with the contents in A1 in Excel. The code I have doesn't like .Selection.Find Please help. Thanks in advance. Sub FindReplace() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker\Testing\testdoc.doc") With wrdDoc With .Selection.Find .Text = "aaaa" .Replacement.Text = Cells("A1") .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With If Dir("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker \Testing\MyNewWordDoc.doc") < "" Then Kill "Z:\COMMON FILES\Encroachment Permits\Permit.Tracker \Testing\MyNewWordDoc.doc" End If End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and replace in Word from Excel
On Oct 5, 4:05*pm, gab1972 wrote:
From Excel, I need to open a Word document, find "aaaa" in the Word document, and then replace "aaaa" with the contents in A1 in Excel. The code I have doesn't like .Selection.Find Please help. *Thanks in advance. Sub FindReplace() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document * * Set wrdApp = CreateObject("Word.Application") * * wrdApp.Visible = True * * Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker\Testing\testdoc.doc") * * With wrdDoc * * * * With .Selection.Find * * * * * * * * * * .Text = "aaaa" * * * * * * * * * * .Replacement.Text = Cells("A1") * * * * * * * * * * .Wrap = wdFindContinue * * * * * * * * * * .Execute Replace:=wdReplaceAll * * * * * * * * End With * * * *If Dir("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker \Testing\MyNewWordDoc.doc") < "" Then * * * * * * Kill "Z:\COMMON FILES\Encroachment Permits\Permit..Tracker \Testing\MyNewWordDoc.doc" * * * * End If * * End With End Sub I got it... Sub CreateNewWordDoc() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = GetObject(, "Word.Application") wrdApp.Visible = True wrdApp.Activate Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker\Testing\testdoc.doc") With wrdDoc.Range.Find .Text = "aaaa" .Replacement.Text = "Insufficient plans." .Execute Replace:=wdReplaceAll End With 'wrdApp.Quit ' close the Word application 'Set wrdDoc = Nothing 'Set wrdApp = Nothing End Sub ....in case anyone was wondering. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find and replace in Word from Excel
Thanks for the courtesy of posting back with your solution. It could help
someone else. "gab1972" wrote in message ... On Oct 5, 4:05 pm, gab1972 wrote: From Excel, I need to open a Word document, find "aaaa" in the Word document, and then replace "aaaa" with the contents in A1 in Excel. The code I have doesn't like .Selection.Find Please help. Thanks in advance. Sub FindReplace() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = CreateObject("Word.Application") wrdApp.Visible = True Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker\Testing\testdoc.doc") With wrdDoc With .Selection.Find .Text = "aaaa" .Replacement.Text = Cells("A1") .Wrap = wdFindContinue .Execute Replace:=wdReplaceAll End With If Dir("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker \Testing\MyNewWordDoc.doc") < "" Then Kill "Z:\COMMON FILES\Encroachment Permits\Permit.Tracker \Testing\MyNewWordDoc.doc" End If End With End Sub I got it... Sub CreateNewWordDoc() Dim wrdApp As Word.Application Dim wrdDoc As Word.Document Set wrdApp = GetObject(, "Word.Application") wrdApp.Visible = True wrdApp.Activate Set wrdDoc = wrdApp.Documents.Open("Z:\COMMON FILES\Encroachment Permits\Permit.Tracker\Testing\testdoc.doc") With wrdDoc.Range.Find .Text = "aaaa" .Replacement.Text = "Insufficient plans." .Execute Replace:=wdReplaceAll End With 'wrdApp.Quit ' close the Word application 'Set wrdDoc = Nothing 'Set wrdApp = Nothing End Sub ....in case anyone was wondering. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Find and Replace that contains some word | Excel Programming | |||
Find/Replace macro from excel to word | Excel Programming | |||
Find/Replace macro from excel into Word | Excel Programming | |||
How can I use find and replace to delete a word in Excel? | Excel Discussion (Misc queries) | |||
Ability for Excel to find and replace graphic objects (like Word) | Excel Worksheet Functions |