Thema Datum  Von Nutzer Rating
Antwort
08.09.2017 13:59:05 cklein
NotSolved
Blau Word - Textfeld weg nach Makro
 08.09.2017 14:29:15 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
08.09.2017 14:29:15		 Views:
498		 Rating:
     
Antwort:
  Ja
Thema:
Word - Textfeld weg nach Makro

Hallo cklein,

wenn es beim "Textfeld" um kein Inhaltssteuerelement und auch kein Active-X-Steuerelement handelt, dann kann es man die Inhalte wie folgt setzen, ohne den Bookmark zu löschen:

' Beispiel 1
Sub FillTextfield1()
    Dim BookmarkName As String
    Dim fld As Field
    BookmarkName = "Textfeld1"
    
    Set fld = SearchTextField(BookmarkName)
    If Not fld Is Nothing Then
        fld.Result.Text = "Neuer Inhalt (" & Now & ")"
    Else
        MsgBox "Textfeld nicht vorhanden", vbCritical
    End If
End Sub

' Beispiel 2
Sub FillTextfield2()
    Dim BookmarkName As String
    Dim fld As Field
    BookmarkName = "Textfeld2"
    
    Set fld = SearchTextField(BookmarkName)
    If Not fld Is Nothing Then
        fld.Result.Text = "Neuer Inhalt (" & Now & ")"
    Else
        MsgBox "Textfeld nicht vorhanden", vbCritical
    End If
End Sub


Function SearchTextField(sName As String) As Field
    Dim fld As Field
    Dim bkm As Bookmark
    With ActiveDocument
        For Each fld In .Fields
            Set bkm = fld.Result.Bookmarks.Item(1)
            If bkm.Name = sName Then
                Set SearchTextField = fld
            End If
        Next
    End With
End Function

Im Beispiel wird nach zwei Textfeldern "Textfeld1" bzw. "Textfeld2" gesucht und jeweils mit einem Inhalt gefüllt.

Dieser Vorgang kann solange wiederholt werden, wie die Bookmark vorhanden ist.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
08.09.2017 13:59:05 cklein
NotSolved
Blau Word - Textfeld weg nach Makro
 08.09.2017 14:29:15 Ben
NotSolved