VBA in Word: Programmatically add content control with a style -


when programatically adding rich text content control word .docm using vba, there way set style contents?

as comparison, if create content control manually using word developer toolbar, can select "use style format contents" in properties dialog content control. result want same if did way, except need in code.

here's code have adds content control, it's triggered command button click few other things well:

private sub selconcept_click()      activedocument.inlineshapes(1).delete     activedocument.inlineshapes(3).delete     activedocument.inlineshapes(3).delete      dim occ contentcontrol     set occ = activedocument.contentcontrols.add(wdcontentcontrolrichtext, _               selection.range)     occ.setplaceholdertext , , "my placeholder text here."     occ.title = "concept" end sub

if created style, can assign this:

occ.defaulttextstyle = "style_name"

now, if not, you'll have add style first. like:

activedocument.styles.add name:="mystyle1", type:=wdstyletypecharacter activedocument.styles("mystyle1").font     .name = "arial"     .size = 12     .bold = true     .color = rgb(255, 0, 0) 'you can use rgb here end  occ.defaulttextstyle = "mystyle1"

Comments

Post a Comment

Popular posts from this blog

python - Installing PyDev in eclipse is failed -

unable read repository @ http://pydev.sf.net/updates/content.xml. sun.security.validator.validatorexception: pkix path building failed: sun.security.provider.certpath.suncertpathbuilderexception: unable find valid certification path requested target i installing pydev in eclipse using python, doesn't install successfully. gives above error. happened? how solve error? i had error when trying install on laptop behind corporate firewall. couldn't tell setup of firewall, not sure of root cause. i got passed error installing pydev eclipse when out behind firewall. another way got around have eclipse on non-firewalled machine, install pydev eclipse, , copy whole eclipse directory non-firewalled machine firewalled machine. there better way, , way fix properly, didn't have time work out firewall doing. this on windows 7 machine (yeah know) not work *nix versions installed through package manager yum or apt.
Read more

PHP OOP-based login system -

lets building oop-based user authentication system, , incorporate following principles: direct injection, inheritance, encapsulation, polymorphism , single responsibility principle. my background in programming has relied on procedural programming, , thus, finding difficult put these practices correct use. assume have these classes: class config { public function set($key, $value); public function get($key, $default = null); } class user { public function __construct(pdo $dbh, $id = null); public function setprofile(profile $profile); } class auth { public function __construct(config $config); public function login($username, $password, $keeploggedin = true); public function isloggedin(); public function getloggedinuser(); public function logout(); public function register(array $data); } class session { public function start($sessionname = null); public function write($key, $value); public function read($key, $default =...
Read more

c# - Nested Internal Class with Readonly Hashtable throws Null ref exception.. on assignment -

in internal game class , have both a) defined nested internal gamertags class , b) defined gamertags[] _array variable. in internal gamertags class (the nested class, simplicity left out) have readonly hashtable . after initialization, still null ref exception when try assign value. i'm not changing pointer value only , need add initialization hastable? internal class gamertags { private readonly hashtable _privatereadonlyhashtable; private string _json; private string _hash; internal idictionary privatereadonlyhashtable { { return this._privatereadonlyhashtable; } } internal string hash { { this.ensurehash(); return this._hash; } } internal object this[string key] { { return this._privatereadonlyhashtable[k...
Read more