tnnax.blogg.se

Set objContentControl = (Type:=wdContentControlDate) Set objContentControl = (Type:=wdContentControlComboBox)Įnd Sub Output Date Control Public Sub DateAddContentControl() Set objContentControl = (Type:=wdContentControlRichText)Įnd Sub Output ComboBox Control Public Sub ComboBoxAddContentControl() Selection.Collapse Direction:=WdCollapseDirection.wdCollapseStart RichTextBox Control Public Sub AddRichTextContentControl() Note to arrange multiple controls I have used a special symbol to avoid overlapping of the control on the page which I seek through MoveUntil method by passing it in Cset parameter.

Microsoft Word VBA object offers ten Content Controls listed below which can be short hand the programming and provide various user input methods: SyntaxĮ(Type) List Content Controlsįollowing code will create three labels and three controls to take user input on a blank document. In-line user controls which can be embedded in the document withing a range or selection.