Guten Tag
In der Firma nutzen wir seit langer Zeit folgendes Makro (damit lässt sich mit einer Tastenkombination ein Platzhalter erstellen):
Sub Platzhalter()
Selection.FormFields.Add Range:=Selection.Range, Type:= _
wdFieldFormTextInput
Selection.PreviousField.Select
With Selection.FormFields(1)
.Name = "CTRLBullet"
.EntryMacro = ""
.ExitMacro = ""
.Enabled = False
.OwnHelp = True
.HelpText = "Dies ist ein Platzhalter."
.OwnStatus = False
.StatusText = ""
With .TextInput
.EditType Type:=wdRegularText, Default:="[" & ChrW(9679) & "]", _
Format:=""
.Width = 0
End With
End With
Selection.MoveRight Unit:=wdCharacter, Count:=3
End Sub
Leider hat F11 nie funktioniert, um in das nächste Formularfeld zu springen. Sobald man dies aus der Normal.dotm entfernt hat, ging es jedoch auch bei bereits bestehenden Formularfeldern.
Gerne möchten wir dieses Problem nun lösen. Leider sehe ich in diesem Code jedoch kein Problem, welches F11 unterbindet.
Habt ihr da eine Idee?
Danke und Liebe Grüsse
Florin
|