VBA - Find / Replace Excel Variable In Word
Apr 7, 2012
I have never used VBA in word before, so I am assuming I am making it more complicated than it needs to be. I have a macro that stores 20 excel values as variables, then opens up a word document. I want to replace values in word with my values in excel. I keep getting an error with the replace part. I do not want to use bookmarks or mail merge. MSWord is a reference in excel VBA.
Code that stores excel variables (Example: Var1=Data1 and Var2=Data2)...
'Opening up the correct word document
Dim WdApp As Object, WdDoc As Object
Set WdApp = CreateObject("Word.Application")
WdApp.documents.Open ThisWorkbook.Path & "" & Range("D1").Value & ".doc"
WdApp.Visible = True
[Code] ..........
View 9 Replies
ADVERTISEMENT
Dec 1, 2005
I'm looking to simply delete certain words that are in cells, without having to delete rows, columns or the entire cell. I can use 'find and replace' and replace the particular word with a space, but I really want to delete the word. I'm using both Excel 2003 and 2000.
View 4 Replies
View Related
Jan 4, 2012
I am trying to automate the below process:
1. I have a excel file with Japanese words in column A and their English equivalents in column B.
2. I am trying to create a Macro and assign it to a button. On pressing the button Macro should be able to:
3. open a form where I can enter location of a word file.
4. Macro should open the word file specified in (3).
5. Macro will pick up first Japanese word from excel file (Sheet 1 - A1)
6. Search for that word in Word file
7. Replace the Japanese words in Word file with their English equivalent from excel (B1)
8. Then it should search for second word (A2) and replace with its equivalent (B2) and so on till it reaches last filled cell in excel file column A.
After a lot of search I could find a code from net (Below), made a few changes, but it is not working.
========================================================
Private Sub OK_Click()
' Requires a reference to Microsoft Word xx.x Object Library
Dim sFile As String
[Code]....
View 1 Replies
View Related
May 1, 2009
I am in the middle of automating a process here at work, the program takes a word, "pencil" for example, from excel. It will then open up a word document with content already in it (premade template). The program will then find all instances of a string, "placepencilhere" for example, and will replace that instance with the string from excel.
Basically I want to be able to take a variable that has a stored string value from excel and use it to replace another variable in a word document.
I tried recording a replace (ctrl+f, replace tab) macro, copying the code, and inserting it into the excel vba code.. but I get a error message. Here is what I have:
---
View 11 Replies
View Related
Mar 31, 2014
Looking to build a simple find and replace with an added condition that it must match the whole word since some of my data appears as below:
abc.abc_no
I am trying to replace abc with alphabets and I need the result: alphabets.abc_no not alphabets.alphabets_no.
What do you think the best approach to this would be? All my data that I need converted is in one column (Column C) which are thousands of rows long and on another sheet I have a list of the conversions I need to do (about 150 - columns A and B) setup like:
A |B
abc|alphabets
View 1 Replies
View Related
Jul 22, 2009
The error is a Run-Time 450 (Too many arguments or invalid property assignment), when I click debug it highlights With Selection.Find
Sub TestTemplates()
Dim s1 As String
Dim s2 As String
Dim s3 As String
Dim appWD As Object
Set appWD = CreateObject("Word.Application")
Sheets("Sheet1").Activate
s1 = ActiveSheet.Range("Name")
s2 = ActiveSheet.Range("Add1")
s3 = ActiveSheet.Range("Add2")
appWD.Visible = True
appWD.Documents.Open Filename:="C:UsersRemy LabueDocumentsCareCore WorkTest Letter TemplatesTest Letter 1.DOCX"
Call DoFindReplace(FindText:="(1)", ReplaceText:=s1)...................
View 9 Replies
View Related
Feb 5, 2009
This problem has come up fairly frequently lately, and I'm not sure how to fix it, or if this is by design...but in Excel 2003 I can't seem to do a "Find and Replace" based on the value of a cell. I can do a find, based on cell value, but the moment I change to the replace tab, the "values" and "comments" are missing from the "look in" dropdown.
I've only noticed this when I'm trying to replace on a filtered list, so I'm not sure if that is part of the issue.
Perhaps an alternative way of arriving at the same goal. Basically I have a worksheet with a number of filtered columns. They are filtered just right, using custom filtering, and so I do not want to undo the filters. In some columns I have formulas that are returning #VALUE! errors. I'd like to replace all of these cells with NA.
View 6 Replies
View Related
Nov 2, 2009
I am attempting to use the Find and Replace code you assisted with me into another project, But I am missing something. I keep getting a Variable not define error when I go to search for a CMM # in the add a referral form.
Highlight in yellow is the code ...
View 14 Replies
View Related
Feb 9, 2013
I'm trying to work on a macro that will copy two cell ranges (name of current month and prvious month) from one location, store it as a variable and use that variable to find replace similar text string in another tab. Below is my code which is not changing the values in another tab...
Dim OldMonth As String
Dim NewMonth As String
Sheets("X1").Select
[Code]....
View 2 Replies
View Related
Apr 2, 2013
I'm trying to pass a variable from Word to Excel. Basically I have a Word document with a plain text content control in it. I'll have users populate this field. I know how to create a reference to that content contol in Word VBA that'll tell me what's in that content control (eg.
Code:
MyWordVar = ActiveDocument.ContentControls(1).Range.Text
).
What I can't figure out is how to pass the value of "MyWordVar" to a variable in Excel.
View 4 Replies
View Related
Jan 24, 2014
I need to replace A1*FX! with A1/FX! within thousands of formulas (and many variants of A1)
Unfortunately whenever I attempt this is deletes the A1 (or whatever cell is being referenced)
How to stop find replace doing this?
View 4 Replies
View Related
Feb 15, 2012
I have Excel 2010, and a dual monitor setup, with the left monitor being the main one. I have my spreadsheets on the right monitor.
When I open a Find and Replace, the dialog box always goes to monitor #1 (left); I want it on monitor #2.
Is there a way to default it to the "right" monitor?
View 3 Replies
View Related
Oct 16, 2013
I am looking to make an excel script that can find and replace data.
Situation:
A--------B-----------C
Cat------Dog------Banana
Dog------Fish------Apple
Fish------Cat-------Orange
So the macro would look at the data in a cell in column B, then look at the adjacent cell in column C, and replace all instances of that data in column A with what if found in C. So the results would be:
A------------B-----------C
Orange------Dog------Banana
Banana------Fish------Apple
Apple--------Cat-------Orange
But that's not all, I would like it to not change cells in A that already have been changed once! (I'm trying this with changing the background colour)
I am at a complete loss and need to find and replace over 3000 items.
View 4 Replies
View Related
Sep 13, 2013
What is the formula for Excel 2010 if I have a text in a cell:
CM/62 Charge MTS/7/5/2013 000
CM/72 Non-Cash Adj MSC/7/3/2013 A15
CM/1542 Charge ADM/6/24/2013 S28
CM/63610 Charge MIS/7/5/2013
CM/527 Non-Cash Adj MSC/7/8/2013 S
CM/1542 Charge ADM/6/24/2013 S2
CM/5623 Charge LTE/7/24/2013 000
CM/1610 Rentup MAF/7/1/2013 S21
I need to get the result for word: MTS, MSC, ADM, LTE, MAF
View 6 Replies
View Related
Aug 24, 2013
I have Excel MAC 2011 and my spreadsheet was created with multiple cell colors randomly throughout the spreadsheet.
I need to change all the royal blue colored cells to "no color" without changing the data contained in the cell. For example; Cells A5:A38 are blue, A39 is green, A40:A50 blue, A51:60 green, ... Cells B5:B15 are grey, B16:B20 are blue, B21 is yellow...
I can't find the "Advanced Options" for Find and Replace that might have allowed me to specify a color change.
View 4 Replies
View Related
Oct 1, 2012
I have an excel workbook where some sheets have a column called "Name" in Row 3. The column where "Name" appears shifts based upon other criteria so it's not set within 1 specific column.
The real data for the "Name" column starts in Row 5. Is it possible to create a macro that looks in Row 3 for "Name", then once it finds that column, it does a find and replace from Row 5 to the end of the data and replaces every space with a ^.
For example, if I have:
Row 3 Name
Row 4
Row 5 John Smith
Row 6 Jane Doe
Row 7 John Doe
Row 8 Jane Smith
I'd like the data to become:
Row 3 Name
Row 4
Row 5 John^Smith
Row 6 Jane^Doe
Row 7 John^Doe
Row 8 Jane^Smith
I'm using Excel 2010 if that impacts anything.
View 1 Replies
View Related
Apr 8, 2014
I have two sheets. One is named sheet1 where all my data is and sheet2 where all my values are. I want to do a find a replace on column N (sheet1) using the data in sheet2. Column A on Sheet2 has all the values that are found in column N and column B on Sheet2 has what the data should change to.
So for example:
Sheet1 says the following on column N:
cat
dog
lion
bear
Sheet2 says:
Column A
A1: Cat
A2: Dog
A3: Bear
Column B
B1: 2
B2: 8
B3:15
I want the values on column N to be replaced with 2, 8, 15 and so forth. I use excel 2010.
View 1 Replies
View Related
Jul 13, 2014
I have Excel 2013. I would like to use the code below but I need it to let me select the range instead of specifying it in the code, then pop up a form into which I can fill in what I want it to search and what I need it replaced with.
[Code] ......
View 3 Replies
View Related
May 19, 2014
See attached image.
So what I am looking for is to put a macro behind button 1 which will do the following
Enter A Default Value Of 123 In The Yellow Boxes (B7:K7)
If They Are Blank When The User Clicks The Button
Performs A Search And Replace To Replace The Values 01-01-1990 With B8, 02-01-1990 With C8 Etc Until K8
Output The Contents Of Sheet 2 To A Text File (In XAI Format) In The Following Order A1:A100, B1:B100, C1:C100
[Code] .........
View 1 Replies
View Related
Dec 19, 2013
I have a single work book with 8 sheets (I am using Excel 2010 BTW) and I am trying to find a total of times a word appears across all the sheets in column "C"
I found this formula on another thread. =SUM(COUNTIF(INDIRECT("Sheet"&{1,2,3}&"!C1:C1000"),"="&H3)) with an example. I made the changes that I needed for my purposes
This worked but only after I renamed the sheets to Sheet1, Sheet2, etc.
Is there a way get the same results from the above formula if all the sheets are named after our reps? Example: sheet1 is named Dan, Sheet2 is Nick, etc?
View 2 Replies
View Related
Feb 21, 2014
I'm creating a macro with several brands in a variant variable.
The only thing that isn't working, is the find function. I want to find "Brand" & variable. So when my variable is "medicijn1", then I want to find "Brand medicijn1". However, when I try, it gives me the following error:
"run-time error '91': Object variable or with block variable not set".
The macro basically looks like this
Sub Medicijnen()
Dim Medicijn As Variant
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Medicijn In Array("medicijn1", "medicijn2", "medicijn3", "medicijn4"")
[Code] ......
View 3 Replies
View Related
Jul 2, 2013
I recently became owner of a spreadsheet with some issues, and I am trying to make it useful. Each row has a URL of a blog post, and I want to extract the date from it (which is present in each URL) while getting rid of the rest of the URL. I was able to get rid of everything up to the year (which comes first), but then the URL continues, for example, 2013/05/16/the-rest-of-the-url/ and I would like to just have 2013/05/16 remain.
I am trying to use find and replace with the find box reading 2013/??/??/*/ and replacing it with 2013/??/?? which effectively erases everything else in the url, but leaves ?? instead of the numbers. Is there any way to have it so that it keeps whatever was in the original box?
View 4 Replies
View Related
Feb 5, 2014
[Code] .....
Trying to repeat a 550 or so character statement with a find/replace however I am getting type mismatch errors. When I use a smaller message in the "replace" it works.
I need it to post a message exactly as long as what I have in there. How do I get it to work?
View 6 Replies
View Related
Apr 20, 2006
Need assistance with the code for catching errors when using the find / replace function in excel? In particular, I am trying to write code to break to an error message when the value or string searched for isn't found in the find / replace. At the minute I have just copied the standard code using a macro and all this does is return a message box saying X entries replaced.
View 3 Replies
View Related
Jun 9, 2009
Have problems using find and the Dictionary
What Im trying to do is find a certain word in a string then return the number associated with that word
View 7 Replies
View Related
Mar 18, 2009
I am trying to create a macro where it finds a a certain word in a column for example C. What i want it to do is find anything that says FWD_EUR and then replace that cell (e.g C2) with CASH_EUR_FWD and after it has done that it replaces the adjacent cell (e.g. D2) with EUR_FWD. I then want this to do the same with FWD_USD to CASH_USD_FWD and adjacent cell to USD_FWD.
View 2 Replies
View Related
Mar 14, 2014
I would like to have a formula find a specific word in column L and return the sum from column E for the same fund from column C.
I tried using =SUMIF(L:L,"*annual*",E:E) but that gives me the sum of annual for the entire column. I need to be able to specify the fund.
word "annual" also appears in "semi annual" so I need to be able to separate the two.
View 5 Replies
View Related
Aug 10, 2009
Column A has cells showing either Y or N I want Column B to take a Y and convert it to a Yes and N to No. I tried an IF statement but it wont seem to work.
View 2 Replies
View Related
May 14, 2014
I use the following code. I want to make Replace only in the case which there is a whole word in a part of a cell, but not in part of specific characters.
Example: In the code i want to replace the word "to" but replaces all the words that contains "to". For example in the word together lets only the characters gether, and in the word tonight lets only the characters night etc.
[Code] .....
View 4 Replies
View Related
Feb 26, 2014
I found the below code and have tried adapting it without success.
Code:
Sub Colorize_Word()
Dim Found As Range, FirstFound As String
Dim FindWhat As String, MyColor As Long, Counter As Integer
MyColor = 3
FindWhat = LCase(InputBox("Find what word?", "Color word"))
[Code] ..........
This code finds any string in a cell of your choice and colors it red. I would really like to replace the string with my own string of text. I couldn't use the simple find and replace function as this replaces the WHOLE cell content not just one word.
I believe the line of code that needs editing most is this one
Do
Found.Characters(Counter, Len(FindWhat)).Font.ColorIndex = MyColor
Counter = InStr(Counter + 1, LCase(Found), FindWhat)
But I cannot figure out how to use the replace function with this.
View 7 Replies
View Related
