Delete text

[eagleclaw]

I am trying to delete the text that has been inserted into a bookmark programatically.
I tried
With wordapp
.ActiveDocument.Bookmarks("FundContact&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("Official_Name&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("OffName&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("Fund_Address&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("Fund_City&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("Fund_State&quot.Select
.Selection.Text = " "
.ActiveDocument.Bookmarks("Fund_Zip&quot.Select
.Selection.Text = " "
End With

but that does not remove the inserted text

 

[TonyJollans]

Hi eagleclaw,

If the text was inserted into the bookmark then your code should work. If it was inserted at (i.e. after) the bookmark then the bookmark will not actually include the text - it will just represent the start point and you need to be able to identify the end of the text as well in order to delete it. Can you post the code which does the insertion.

Enjoy,
Tony

 

[eagleclaw]

Here is my insertion code
With wordapp
.Visible = True
.Documents.Open (strDocPath)
.ActiveDocument.Bookmarks("FundContact&quot.Select
.Selection.Text = rst![Client Contact]
.ActiveDocument.Bookmarks("Official_Name&quot.Select
.Selection.Text = rst![Official Name]
.ActiveDocument.Bookmarks("OffName&quot.Select
.Selection.Text = rst![Official Name]
.ActiveDocument.Bookmarks("Fund_Address&quot.Select
.Selection.Text = rst![Fund_City]
.ActiveDocument.Bookmarks("Fund_State&quot.Select
.Selection.Text = rst![Fund_State]
.ActiveDocument.Bookmarks("Fund_Zip&quot.Select
.Selection.Text = rst![Fund_Zip]
End With

basically the same

 

[TonyJollans]

Hi eagleclaw,

A bookmark may be a point or a block of text in a document.

If it is a point then your code will insert text after it in both your insert and your delete code.

If it is a block of text your insert will replace it and your delete will give an erro because it isn't there any more.

As you don't mention any errors, I assume what you have is the first case and your delete becomes a problem.

Depending on what else you do with the bookmarks you might consider re-assigning them to include the inserted text:

A sample insert:

        .ActiveDocument.Bookmarks("FundContact").Select
        .Selection.Text = rst![Client Contact]
        .ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="FundContact"

And a sample delete:

        .ActiveDocument.Bookmarks("FundContact").Select
        .Selection.Delete
        .ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="FundContact"

Enjoy,
Tony

 

[eagleclaw]

Now I keep getting the dreaded "Object Required" error at this line

.ActiveDocument.Bookmarks.Add Range:=Selection.Range, Name:="FundContact"

 

[eagleclaw]

Another variable that I haven't mentioned is that I am doing this from access.

 

[TonyJollans]

Very quickly because I'm about to go out. Try putting a dot in front of Selection.Range. Shouldn't make any difference frm Access but I will try it tonight when I return if you still ahve the problem.

Tony

 

[eagleclaw]

Putting the dot in front of selection solved the problem, thank you very much