Textbox Changes

[Benz]

Hello,

This is only my second time posting here and I'm pretty new with this so
bare with me.

I have a userform which a user opens that contains different text boxes
linked back to bookmarked - cells in a table. It works fine except when I
track changes it highlights the whole entire bookmarked area and says it was
deleted. When I "accept all changes" only deletes the words/characters I
originaly deleted. The problems is when other users go in to review it looks
like very thing is going to be deleted. The code im using for the textboxes
is below and I've tried the that turns track changes on or off but it still
does the same thing.



Private Sub Summary1()
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
ROBP_Sum.Text = BMRange.Text
End Sub

Private Sub ROBP_Sum_Change()
Dim BMRange As Range
Set BMRange = ActiveDocument.Bookmarks("SummaryOfBP").Range
BMRange.Text = ROBP_Sum.Text
ActiveDocument.Bookmarks.Add "SummaryOfBP", BMRange
ActiveDocument.TrackRevisions = True
End Sub


Thank you for your help,

Ben Z.

 

[old man]

If you want to accept all revisions through VBA try this (after moving text
from bookmarks to textbox or back

activedocument.Revisions.AcceptAll

old man