Loop through controls, make certain controls invisible

MacroWizard · #1 11-10-2015, 10:41 AM

New challenge guys,

I can't seem to make any of my controls invisible programmatically. I am using the following code, which works to identify the controls and successfully loops through the controls; however, I can't seem to find the ".visible" property. Any help?

Code:

Sub ParticipantGuide()
Dim ctl As ContentControl
For Each ctl In ActiveDocument.ContentControls
  If ctl.Type = wdContentControlRichText Then
    If ctl.Tag = "FacilitatorBlock" Then
      ctl.Visible = False
      Else
      ' DO NOTHING
      End If
  End If
Next
End Sub

I may be missing something, overlooking something. Hopefully someone here can help.

Thanks in advance for the creative notions.

p.s. I am not set on using these controls. If I need to change to something else, I can do that. Also, the controls are on the document itself, not on a form.

MacroWizard · #2 11-10-2015, 11:37 AM

Alright so I've made some progress. I can embed the controls within a shape; however, I need the shape to adjust its size as I type. Right now, the richtextbox conforms to the shape. I need the shape to conform to the rest of the document, otherwise users are going to have to resize the shape before they type. That's just annoying.

Why there isn't a .visible property on word developer controls is beyond me.

Any ideas on where to go from here, or suggestions as to what might work?

gmaxey · #3 11-10-2015, 02:36 PM

You also run the risk of wasting peoples time which will quickly get you ignored by posting in multiple forums without notification and cross links. See reply at:
http://www.vbaexpress.com/forum/show...eria-invisible

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop and Update Content Controls with value	vss712	Word VBA	7	08-27-2015 08:56 PM
VBA for content controls	ciresuark	Word VBA	1	03-10-2015 03:14 PM
Content Controls	Sammie0Sue	Word	6	11-06-2013 10:56 PM
which controls should i set to make the pasted screen shot fits the boundaries of the	Jamal NUMAN	Word	2	06-30-2011 05:40 PM
Can't Download Controls	BillTheAdmin	Project	2	12-05-2005 10:20 AM