replacing text within a selection

Howdy Experts,

I already have code that selects text in template word doc based on querys in access that correspond to bookmarks in the word doc.  Once the selection is highlighed, I would like to, replace certain words with the values of text fields from access.  

Setting up a recordset, pulling the values in, etc, is all stuff I have enough working knowledge to do... what I need help with is the simple find/replace within a selection command... how can I do this?  Do I have to define a range object?  or if the selection is always going to be a bookmark, could i find/replace within the bookmark object pretty easily?

Who is Participating?
realraelConnect With a Mentor Commented:

hey, have you looked at the VB "Replace" function? - rael

Replace(expression, find, replace[, start[, count[, compare]]])
meuedynAuthor Commented:
Points raised, maybe this is harder than I thought it would be?
meuedynAuthor Commented:
Im sure its something like that;)... how would I replace within a selection?  Can you give an example or point me to one?

7 new features that'll make your work life better

It’s our mission to create a product that solves the huge challenges you face at work every day. In case you missed it, here are 7 delightful things we've added recently to monday to make it even more awesome.

TylerTheWimpConnect With a Mentor Commented:
I suggest reading the template in on one text stream and writing out to another text stream.  Read each line in from the incoming text stream into a string variable.  Now that you have a line of text in a variable, scan that variable for your template indicator.  If the indicator exists, lookup the value from your database that should replace that template indicator.

sLineVariable = templatefile.readline

sLineVariable = Replace(sLineVariable, sTemplateInidcator, sPulledFromDatabase)

outputfile.writeline sLineVariable

realraelConnect With a Mentor Commented:

hi meue, post some code where i'll insert the Replace call and i'll get back to you :) - rael
meuedynAuthor Commented:
Well, I kind of answered this on myself by running a macro in word and then trying to figure out the code that it created.. so here is my replace subroutine.. it goes through all the fields in a recordset except for the first one uses the fieldname as the search string (encased in "<" and ">") and then replaces it with the value of the field.  I guess what I Was really looking for was the oWord.Selection.Find section...  This code assumes that the selection was selected before it sent the recordset to the subroutine.  oh yeah, oWord is the word instance and oDoc is the document instance.  I think thats all thats needed to understand the code.

Public Sub FieldReplace(repRS as recordset)
Dim strFind As String
Dim i As Integer
For i = 2 To repRS.Fields.Count
    strFind = "<" & repRS.Fields.Item(i - 1).Name & ">"
    With oWord.Selection.Find
        .Text = strFind
        .Replacement.Text = repRS.Fields.Item(i - 1)
        .Wrap = wdFindStop
    End With
    oWord.Selection.Find.Execute Replace:=wdReplaceAll

Set oWord = Nothing
Set oDoc = Nothing

End Sub
meuedynAuthor Commented:

Actually, I think that my own answer is the correct one.  I could get a refund, but since the answer is valid, I thought it would be better to have it around in the database.  I dont think there is any reason to give me negative feedback for this!  I was just waiting to see how it could be handled.  Since it seems that you dont have any way of handling this, Ill just split the points and offer everyone a freebie;).

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.