haalogic.blogg.se

Word (and all other software) doesn't do infinite. Like your request to add "an infinite number of sections". There's lots of information that you've left out about how you're using this code and what it's for. Then, in code use something like this: ("Section Break with Numbered Heading").Insert Where:=Selection.Range, RichText:=True

Then select both the break and the numbered heading and save it as AutoText ( Insert>Quick Parts>AutoText>Save selection to AutoText Gallery) in the template on which your document is based (most often Normal.dotm). In your case, you can create a section break that is followed by your preferred numbering style. I'm a big fan of using the program features wherever possible. Sometimes that takes some serious study, but the result is a faster and more reliable macro. To turn it into a generalized macro that can be applied to different documents, you almost always want to substitute the Range object for Selection. When you use the macro recorder, Word uses the Selection object. Set cc = ActiveDocument.SelectContentControlsByTitle("General").Item(1)Ī wdAllowOnlyFormFields, Password:="green" SetPlaceholderText, , "The CONTRACTOR shall " Selection.TypeText Text:="The CONTRACTOR shall " ListGalleries(wdNumberGallery).ListTemplates(1), ContinuePreviousList:= _įalse, ApplyTo:=wdListApplyToWholeList, DefaultListBehavior:= _ ListGalleries(wdNumberGallery).ListTemplates(1).Name = ""

NumberStyle = wdListNumberStyleUppercaseLetter With ListGalleries(wdNumberGallery).ListTemplates(1).ListLevels(1) I want any user to be able to add as many sections as they need to articulate themselves. This will streamline the process, format and presentation of this template to prevent any number of different users in my organization from inputting several different forms of information and styles of formatting. What I am trying to do is make it simple for any user to add bullets of information in this template I am creating that is protected to prevent tampering.