

To accept the proposed change, click the Accept button. The cursor will advance to the first proposed correction. The next step is to place your cursor at the top of the document and click Next in the Changes panel.


In the following screen shot, we have disabled the Track Changes feature. If you continue with the Track Changes feature on, your changes will be recorded. If Track Changes is switched on, as in the screen shot below, make sure you click on the ON icon to turn this feature off. Locate the Track Changes icon in the Tracking panel be sure that the Track Changes is switched off. The following code allows you to delete all CC if you need for any initial tests: Sub Remove_All_CC()įor Each CC In ActiveDocument.Open your Microsoft Word document, and locate the Review tab. Set CC = (wdContentControlRichText, bookM.Range)įinal! As you can see there are some more possible combination of steps 1 and 2. In this situation you only need 1st step and the following sub: Sub Add_Bookmark_CC_Protected() If you don't want to use CC event you could add CC to each bookmarks with CC content protection. 'optionam selection change right after CC areaĪctiveDocument.Range(newPos, newPos).SelectĪlternative for step 1st and 2nd. VbNewLine & "You will be moved out of this range" MsgBox "There is bookmark inside this area which you should not change. Go to ThisDocument module in your Document VBAProject and create the following event (see some comments inside the code): Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)ĭebug.Print Now, We will control one event: Document_ContentControlOnEnter. ( Important assumption! there are not any other ContentControls in your document!) Sub Add_Bookmark_CC()įor Each bookM In ActiveDocument.BookmarksĪ wdContentControlRichText, bookM.RangeĢnd step. You could do it manually for selected bookmarks or you can run the following simple code to do it for all bookmarks inside your active document. Each of your bookmarks should be enclosed inside RichText ContentControl. If so, we will show the message and/or move selection outside protected area. Next, you will need to control one event which will check if user is selecting inside any of the ContentControl. I would suggest to use ContentControls (called CC further in the text) together with Bookmarks. It should work for 20 as well but not for 2003. The following idea is tested for Word 2010.
