![]() ![]() See: Install/Employ VBA Procedures (Macros)įor instructions to employ the VBA code provided above. ORng.Start = Selection.Tables(1).Range.End We don’t want to change any of the default properties for. Doing so will insert a check box in edit mode. If MsgBox("Do you want to loop to the first control?", vbQuestion + vbYesNo, "Router") = vbYes Thenįor Each oCell In Selection.Tables(1).Range.Cells In the Controls group, click the Check Box Content Control icon. (1).Range.Selectĭo Until Selection.Cells(1). > 0 The focus does not advance to the next control. Using the tab key in one of these controls enters a physical tab in the control as expected. The following example shows three rich text content controls grouped (nested) in a restricted content rich text control container. Rich text controlsįirst let's look at problems associated with rich text controls. Unfortunately navigating between content controls in documents containing rich text or picture content controls is more problematic. Note: If there are one or more content controls in the document after your assigned "Last" content control then the focus will be set automatically to the content control tagged "First" when you tab out of the "Last" control. Then when you finish in the last content control simply click anywhere in the document and the to exit the content control and the focus will be returned to the content control tagged "First." Microsoft Word provides Content Controls that help to automate the document creation as well as organize the content in a structured format. '"First" = tag property applied to the first control.ĪctiveDocument.SelectContentControlsByTag("First").Item(1).Range.Select '"Last" = tag property applied to the last control. ![]() Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean) ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |