Thread: [Solved] VBA Code to Insert Legacy Text Field
View Single Post
 
Old 06-07-2016, 04:09 PM
PSSMargaret PSSMargaret is offline Windows 10 Office 2010 64bit
Novice
  
Join Date: May 2016
Posts: 28
PSSMargaret is on a distinguished road
Default VBA Code to Insert Legacy Text Field
Need help with VBA code that will insert a Legacy text field without a bookmark ID and with the Text Format: First Capital. I already have the code to un-protect the form and then turn protection back on after the field has been added so I can add that.

I created a macro (below) but it's not working. It didn't record the steps I clicked to remove the bookmark and change the format to first capital and seems to have added some spaces.

Any help would be greatly appreciated.

Margaret

HTML Code:
Sub test()
'
' test Macro

Selection.EndKey Unit:=wdLine
    Selection.TypeParagraph
    Selection.FormFields.Add Range:=Selection.Range, Type:= _
        wdFieldFormTextInput
    Selection.Font.Bold = wdToggle
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeText Text:=":"
    Selection.Font.Bold = wdToggle
    Selection.TypeText Text:="  "
    Selection.FormFields.Add Range:=Selection.Range, Type:= _
        wdFieldFormTextInput
    Selection.HomeKey Unit:=wdLine
End Sub
Reply With Quote