title image


Smiley Re: Forumartextfelder per VBA hinzufügen und benennen!
Hallo,



versuchs in etwa so:

Sub TestFF()

Selection.FormFields.Add Range:=Selection.Range, Type:=wdFieldFormTextInput

x = ActiveDocument.FormFields.Count

'

With ActiveDocument.FormFields(x)

.Name = "Textfeld" & CStr(x)

.EntryMacro = ""

.ExitMacro = ""

.Enabled = True

.OwnHelp = False

.HelpText = ""

.OwnStatus = False

.StatusText = ""

.CalculateOnExit = True

With .TextInput

'Zahl = wdNumberText

.EditType Type:=wdRegularText, Default:="", Format:=""

.Width = 0

End With

End With

End Sub

      Hubert





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: