Replacing underscores with checkboxes

Ulodesk · #1 03-14-2014, 07:02 AM

My purpose is simply to replace each series of underscores in a would-be form document (between 3 and 6, for instance; I tried with 4 here) with a legacy checkbox. I have recorded two macros but don't know how to insert the relevant part of the first (inserting a checkbox) into the second.

In the code below, the replacement line with the $ is undoubtedly extraneous; I was trying to see the macro language in case it would help me in substituting the checkbox for the $.

Code:

Sub Box()
'
' Box Macro
'
'
    Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormCheckBox
    Selection.TypeText Text:=" "
End Sub

Sub BoxA()
'
' BoxA Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "____"
        .Replacement.Text = "$"
        .Forward = True
        .Wrap = wdFindContinue
        
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Thanks in advance.

macropod · #2 03-14-2014, 11:08 AM

Try:

Code:

Sub AddChkBox()
With ActiveDocument
  .FormFields.Add Range:=.Range.Characters.Last, Type:=wdFieldFormCheckBox
  .Characters.Last.Previous.Cut
  With .Content.Find
    .ClearFormatting
    .Text = "[_]{1,}"
    With .Replacement
      .ClearFormatting
      .Text = "^c"
    End With
    .Format = False
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Execute Replace:=wdReplaceAll
  End With
End With
End Sub

Depending on your regional settings, you may need to change '1,' to '1;'.

Ulodesk · #3 03-14-2014, 11:31 AM

If I discern correctly, you inserted the checkbox, cut it to the clipboard, launched Find for "at least one" underscore, replaced these with the clipboard contents, and then replaced all. Looks like a great model for any such operation. Much appreciated.

Ulodesk

macropod · #4 03-14-2014, 11:43 AM

Quote:

Originally Posted by Ulodesk

If I discern correctly, you inserted the checkbox, cut it to the clipboard, launched Find for "at least one" underscore, replaced these with the clipboard contents, and then replaced all.

Precisely!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Find & Replace: substitute red-coloured words with underscores	tinfanide	Word	2	10-06-2012 11:04 PM
checkboxes	smohap	Word	1	06-19-2011 09:24 PM
Excel Checkboxes	theresamille699	Excel	3	04-12-2011 08:08 PM
Ticking Checkboxes	screid	Word	1	06-08-2010 02:04 AM
Manipulating checkboxes in XML	Ivo	Word	0	12-06-2005 09:04 AM