Multimedia-is-any | Thomas' Work Space

VBA script to more easily examine the properties of your Content Control-based forms

2014/10/09 plagwitz Leave a comment

The routine loops through the Content Controls and outputs properties as text into the VBA-Editor immediate window,
from where it can be easily converted into an Excel-table which makes it easy t o spot and mark inconsistencies and outright oversights, like so:

Sub ccPropertiesPrint()
On Error Resume Next
Dim strHeadings, strProps As String
Dim count As Integer
Dim response

strHeadings = strHeadings & "~" & "count"
strHeadings = strHeadings & "~" & "Tag"
strHeadings = strHeadings & "~" & "Title"
strHeadings = strHeadings & "~" & "Type"
strHeadings = strHeadings & "~" & "DefaultTextStyle"
strHeadings = strHeadings & "~" & "Application"
strHeadings = strHeadings & "~" & "BuildingBlockCategory"
strHeadings = strHeadings & "~" & "BuildingBlockType"
'strHeadings = strHeadings & "~" & "Checked"
'strHeadings = strHeadings & "~" & "Creator"
'strHeadings = strHeadings & "~" & "DateCalendarType"
'strHeadings = strHeadings & "~" & "DateDisplayFormat"
'strHeadings = strHeadings & "~" & "DateDisplayLocale"
'strHeadings = strHeadings & "~" & "DateStorageFormat"
'strHeadings = strHeadings & "~" & "DropdownListEntries"
strHeadings = strHeadings & "~" & "ID"
strHeadings = strHeadings & "~" & "LockContentControl"
strHeadings = strHeadings & "~" & "LockContents"
strHeadings = strHeadings & "~" & "MultiLine"
'strHeadings = strHeadings & "~" & "Parent"
strHeadings = strHeadings & "~" & "ParentContentControl"
strHeadings = strHeadings & "~" & "PlaceholderText"
strHeadings = strHeadings & "~" & "Range"
strHeadings = strHeadings & "~" & "ShowingPlaceholderText"
strHeadings = strHeadings & "~" & "Temporary"
'strHeadings = strHeadings & "~" & "XMLMapping"
Debug.Print strHeadings
  If ActiveDocument.ContentControls.count > 0 Then
    For Each oCC In ActiveDocument.ContentControls
    'debug
    'If oCC.Type = 9 Then 'debug: repeating
count = count + 1
If count = 50 Then
'dim response = vbmsgboxresponse
    Exit For
End If
    
' useless cannot access immediate window If count = 15 Then response = MsgBox("paused", vbOKOnly) End If
strProps = "" 'start over
strProps = strProps & "~"
strProps = strProps & count 'CStr(count)
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Tag, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Title, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Type, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.DefaultTextStyle, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Application, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.BuildingBlockCategory, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.BuildingBlockType, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.Checked, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.Creator, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.DateCalendarType, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.DateDisplayFormat, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.DateDisplayLocale, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.DateStorageFormat, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.DropdownListEntries.count, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.ID, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.LockContentControl, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.LockContents, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.MultiLine, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.Parent, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.ParentContentControl, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.PlaceholderText, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Range, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.ShowingPlaceholderText, Chr(13), "#"), Chr(10), "#"))
strProps = strProps & "~"
strProps = strProps & CStr(Replace(Replace(oCC.Temporary, Chr(13), "#"), Chr(10), "#"))
'strProps = strProps & "~"
'strProps = strProps & CStr(Replace(Replace(oCC.XMLMapping, Chr(13), "#"), Chr(10), "#"))
Debug.Print vbCrLf & strProps & vbCrLf
'End If 'oCC.Type=9  then 'debug: repeating
 Next
 End If
End Sub

Categories: office-software, service-is-programming, service-is-testing-troubleshooting-debugging, sourcecode Tags: content-controls, forms, MS-Excel, MS-Word, VBA

We can nest controls in repeating content controls, including repeating content controls

2014/10/06 plagwitz Leave a comment

Just saying, since it seems not easy to find within web search results the ones that nest nesting….
Have not tried accessing the results in OpenXML yet which will have to be done via the control ID
1. since repeating:
2. does not autoincrement the titles and tags.

Categories: animated-GIFs, e-infrastructure, service-is-documenting Tags: 2013, content-controls, MS-Word

Request to download the digital audio lab classroom audio configuration on the fly, program and source for Windows XP

2014/08/22 plagwitz Leave a comment

UPDATE: A Windows7 (and Vista) version is in the works, check back for a new post here.

Go back

Your message has been sent

Name

Occupation

Institution

How do you plan to use this software?

Questions or comments?

sanakoaudioconfigonthefly(=THE SOFTWARE) - even though it has been extensively both tested (strongly suggested you do the same first) and run in production by THE AUTHOR - is provided "AS IS" and "WITH ALL FAULTS," without warranty of any kind, including without limitation the warranties of merchantability, fitness for a particular purpose and non-infringement. Although THE AUTHOR has attempted to find and correct any bugs in THE SOFTWARE programs, THE AUTHOR makes no warranty that THE SOFTWARE is free of defects or is suitable for any particular purpose. In no event shall THE AUTHOR be responsible for loss or damages arising from the installation or use of THE SOFTWARE, including but not limited to any indirect, punitive, special, incidental or consequential damages of any character including, without limitation, damages for loss of goodwill, work stoppage, computer failure or malfunction, or any and all other commercial damages or losses. The entire risk as to the quality and performance of THE SOFTWARE is borne by you. Should THE SOFTWARE prove defective, you and not THE AUTHOR assume the entire cost of any service and repair. THE AUTHOR is under no obligation to provide support, service, corrections, or upgrades to THE SOFTWARE programs. For more information, please send an email to THE AUTHOR (trpsoft@outlook.com).

Receive news about updates?

Back to description of reset of classroom audio configuration on the fly program

Categories: audience-is-language-learning-center-manager, compiledcode, digital-audio-lab, e-infrastructure, forms, service-is-programming, sourcecode Tags: audio, autoit, ms-windows, sanako-study-1200, sanakoaudioconfigonthefly, xp

Windowing system infinite loop on windows 8.1

2014/08/05 plagwitz Leave a comment

Rather annoying, no getting out of this loop, endless window foreground switching, but also unclear about the screen resolution, it seems. Ha
Oh, wait, I changed the dpi scaling, but chose to not log off, has that got something to do with this? Well, I have seen this loop behavior before, and I also frequent get terrible slowdowns which I have not been able to do root cause analysis for (also video-related? or network? )
Either way, likely related frequent explorer crashes which downgrade from aero. Sometimes I lose Aero’s advanced task scheduler completely, here I have a screenshot of it just coming back:
Have not been able to find other similar problem / but reports – something wrong with my setup then? (never mind that my camera has its own infinite loop auto focus bug.