title image


Smiley Re: im select ein field finden und dazwichen ein feld einbauen
Hallo,



wenn Du mit Felder Textformularfelder meinst, kannst Du das Feld über seine Textmarke ansprechen. Das geht in etwa so:



Sub TestTextmarkeFind()

If ActiveDocument.ProtectionType wdNoProtection Then

ActiveDocument.Unprotect

End If

'

'hier den Namen der Textmarke anpassen

If ActiveDocument.Bookmarks.Exists("BookmarkName") = True Then

ActiveDocument.Bookmarks("BookmarkName").Select

Selection.Collapse Direction:=wdCollapseEnd

'evtl.Leerzeichen einfügen?

Selection.TypeText Text:=" "

Selection.FormFields.Add Range:=Selection.Range, _

Type:=wdFieldFormTextInput

Selection.TypeText Text:=" "

End If

'

If ActiveDocument.ProtectionType = wdNoProtection Then

ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True

End If

End Sub

      Hubert



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: