Readdy Write  
0,00 €
Your View Money
Views: Count
Self 20% 0
Your Content 60% 0

Users by Links 0
u1*(Content+Views) 10% 0
Follow-Follower 0
s2*(Income) 5% 0

Count
Followers 0
Login Register as User

Vba Code: Platzhalter finden und ersetzen

04.11.2020 (๐Ÿ‘4593)

Vba Code: Platzhalter finden und ersetzen

Der vba Code sucht einen Platzhalter Text im Word Document und ersetzt diesen durch einen anderen Text.

Gezeigt wird:

Durchlaufen aller Words in einem Word Dokument

Den gefundendenen Text als Paragraph auswรคhlen

Range Object aus dem Satz bilden

Ersetzten des Text im Range Object

Vba Code Beispiel

Option Explicit On

'----< Setup Parameters >----

Const const_Path_Photos_Default As String = "B:\2020"

Const const_int_maxLength_Photos As String = 17

Const Nr_Table_with_Fotos As Integer = 1

Const Show_Filenames As Boolean = True

Const Show_ImageNr As Boolean = True

Const Add_Empty_Textline As Boolean = True

'----</ Setup Parameters >----

'=====< BUTTONS >=========

Private Sub btnMarkieren_Click()

    Find_Placeholder()

End Sub

'=====</ BUTTONS >=========

Private Sub Find_Placeholder()

    '-----------------< Find_Placeholder() >-----------------

    '< init >

    Dim sPlatzhalter As String

    sPlatzhalter = "Platzhalter"

    Dim lenPlaceholder As Integer

    lenPlaceholder = Len(sPlatzhalter)

    Dim doc As Document

    Set doc = Application.ActiveDocument

    Selection.MoveStart

    '</ init >

    '----< @Loop: Controls >----

    '*loop all Phrases

    'For Each var In doc.Words

    Dim i As Long

    For i = 1 To doc.Words.Count - 2

        Dim var As Variant

        Set var = doc.Words(i)

        If var.Text = "[" Then

            Dim varPlatzhalter As Variant

            Set varPlatzhalter = doc.Words(i + 1)

            If varPlatzhalter = sPlatzhalter Then

                '--< Platzhalter gefunden >--

                Dim range_Platzhalter As Range

                Set range_Platzhalter = var.Paragraphs(1).Range 'satz auswaehlen

                range_Platzhalter.SetRange 1, lenPlaceholder   'markieren

                range_Platzhalter.Text = "ERSETZT"  'ersetzen

                '--</ Platzhalter gefunden >--

            End If

        End If

    Next

    '----</ @Loop: Controls >----

    '-----------------</ Find_Placeholder() >-----------------

End Sub