Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find/Replace macro from excel to word
Hi all:
I am trying to run a macro from excel to open up a word document called doc1.doc on C:\doc1.doc and do a find and replace in the word document. I have the code written below and it does the search but it does not do the replace. Please help as I have been pulling my hair out. Thanks in advance. Sub Find_and_Replace() Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.documents.Open("C:\Doc1.doc").Application.Vi sible = True With appWD.Visible = True With appWD.Application.Selection.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = wdFindContinue End With Do While appWD.Application.Selection.Find.Execute appWD.Application.Selection.Find.Execute Replace:=wdReplaceAll Loop End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find/Replace macro from excel to word
Since you are using selection, do you have anything selected. I would guess
not. -- Regards, Tom Ogilvy "Matt" wrote in message oups.com... Hi all: I am trying to run a macro from excel to open up a word document called doc1.doc on C:\doc1.doc and do a find and replace in the word document. I have the code written below and it does the search but it does not do the replace. Please help as I have been pulling my hair out. Thanks in advance. Sub Find_and_Replace() Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.documents.Open("C:\Doc1.doc").Application.Vi sible = True With appWD.Visible = True With appWD.Application.Selection.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = wdFindContinue End With Do While appWD.Application.Selection.Find.Execute appWD.Application.Selection.Find.Execute Replace:=wdReplaceAll Loop End With End Sub |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find/Replace macro from excel to word
This seems to work fine on my box. In addition to Tom's point, I think you
will have problems using word constants (wdfindcontinue and wdreplaceall) since you are using late binding. Sub Find_and_Replace() Dim appWD As Object Dim docWD As Object Set appWD = CreateObject("Word.Application") Set docWD = appWD.documents.Open("C:\Doc1.doc") appWD.Visible = True With docWD.Content.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = 1 .Execute Replace:=2 End With End Sub "Matt" wrote: Hi all: I am trying to run a macro from excel to open up a word document called doc1.doc on C:\doc1.doc and do a find and replace in the word document. I have the code written below and it does the search but it does not do the replace. Please help as I have been pulling my hair out. Thanks in advance. Sub Find_and_Replace() Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.documents.Open("C:\Doc1.doc").Application.Vi sible = True With appWD.Visible = True With appWD.Application.Selection.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = wdFindContinue End With Do While appWD.Application.Selection.Find.Execute appWD.Application.Selection.Find.Execute Replace:=wdReplaceAll Loop End With End Sub |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find/Replace macro from excel to word
Thanks. I appreciate the help. It finally works!
~Matt JMB wrote: This seems to work fine on my box. In addition to Tom's point, I think you will have problems using word constants (wdfindcontinue and wdreplaceall) since you are using late binding. Sub Find_and_Replace() Dim appWD As Object Dim docWD As Object Set appWD = CreateObject("Word.Application") Set docWD = appWD.documents.Open("C:\Doc1.doc") appWD.Visible = True With docWD.Content.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = 1 .Execute Replace:=2 End With End Sub "Matt" wrote: Hi all: I am trying to run a macro from excel to open up a word document called doc1.doc on C:\doc1.doc and do a find and replace in the word document. I have the code written below and it does the search but it does not do the replace. Please help as I have been pulling my hair out. Thanks in advance. Sub Find_and_Replace() Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.documents.Open("C:\Doc1.doc").Application.Vi sible = True With appWD.Visible = True With appWD.Application.Selection.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = wdFindContinue End With Do While appWD.Application.Selection.Find.Execute appWD.Application.Selection.Find.Execute Replace:=wdReplaceAll Loop End With End Sub |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Find/Replace macro from excel to word
Glad to hear it.
"Matt" wrote: Thanks. I appreciate the help. It finally works! ~Matt JMB wrote: This seems to work fine on my box. In addition to Tom's point, I think you will have problems using word constants (wdfindcontinue and wdreplaceall) since you are using late binding. Sub Find_and_Replace() Dim appWD As Object Dim docWD As Object Set appWD = CreateObject("Word.Application") Set docWD = appWD.documents.Open("C:\Doc1.doc") appWD.Visible = True With docWD.Content.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = 1 .Execute Replace:=2 End With End Sub "Matt" wrote: Hi all: I am trying to run a macro from excel to open up a word document called doc1.doc on C:\doc1.doc and do a find and replace in the word document. I have the code written below and it does the search but it does not do the replace. Please help as I have been pulling my hair out. Thanks in advance. Sub Find_and_Replace() Dim appWD As Object Set appWD = CreateObject("Word.Application") appWD.documents.Open("C:\Doc1.doc").Application.Vi sible = True With appWD.Visible = True With appWD.Application.Selection.Find .Text = "Date" .Replacement.Text = "Time" .Forward = True .Wrap = wdFindContinue End With Do While appWD.Application.Selection.Find.Execute appWD.Application.Selection.Find.Execute Replace:=wdReplaceAll Loop End With End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
find and replace \n wildcards like word | Excel Discussion (Misc queries) | |||
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 | |||
macro to Find Replace in Excel | Excel Discussion (Misc queries) |