Macro to help turn text in square brackets into dropdown content controls

jmf_techs · #1 10-15-2022, 07:50 PM

Hello!

I am new here so I apologize in advance if I break any rules. I work with technical fields and choices are often indicated with square brackets e.g. [option 1][option 2]. I am trying to write a macro to turn a selection of square backets into a dropdown content control. Is this something that is feasible?
Below is my attempt. I am not a programmer, so it might not make sense. It is patchwork from different snippets I have found over various forums. I have also attached a picture to illustrate what I am trying to do.

Thanks so much!

Code:

Sub Macro ()

Application.ScreenUpdating = False
Dim objCC As ContentControl
Dim Strtext As String

  
  With Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "\[*\]"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchWildcards = True
    .Execute
  End With
  Do While Selection.Find.Found
    StrTxt = Selection.Find.Text
    Set objCC = Selection.ContentControls _
        .Add(wdContentControlComboBox)
    objCC.Title = "Selection"
         objCC.SetPlaceholderText _
        Text:="Please make a selection"
    For Each Strttext In Selection.Find.Text
    objCC.DropdownListEntries.Add StrTxt
    Loop
End With
Application.ScreenUpdating = True
End Sub

macropod · #2 10-16-2022, 05:29 AM

For example, assuming you first select all the options:

Code:

Sub AddComboBox()
Application.ScreenUpdating = False
Dim objCC As ContentControl, StrTxt As String, i As Long
With Selection.Range
  If InStr(.Text, "[") = 0 Then Exit Sub
  If InStr(.Text, "]") = 0 Then Exit Sub
  If .Characters.Last <> "]" Then .MoveEndUntil "]", wdBackward
  StrTxt = .Text
  StrTxt = Replace(StrTxt, "]", "")
  .Text = vbNullString
  Set objCC = .ContentControls.Add(wdContentControlComboBox)
  With objCC
    .SetPlaceholderText Text:="Please make a selection"
    For i = 1 To UBound(Split(StrTxt, "["))
      .DropdownListEntries.Add Split(StrTxt, "[")(i)
    Next
  End With
End With
Application.ScreenUpdating = True
End Sub

jmf_techs · #3 10-16-2022, 06:24 AM

Thank you! It worked! Amazing!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Content Controls - Dependent Dropdown	someazguy	Word VBA	14	02-05-2023 08:01 PM
Clear all content controls (Text, dropdown) AND change option button values to FALSE in MS Word Form	Janet D	Word VBA	7	01-14-2023 02:36 AM
Content Controls - Dependent Dropdown & Text	Mightymegs	Word VBA	6	05-18-2020 05:34 AM
Add a return between two square brackets	jeffreybrown	Word VBA	15	02-20-2017 05:35 PM
Macro to save docx to doc that checks compatibility and converts content controls to static content.	staicumihai	Word VBA	4	10-12-2016 08:23 PM