Projekt-Anfragen: Tel: 07022/9319004 info@CodeDocu.de Software Entwicklung in C# WPF Asp.Net Core Vba Excel Word SQL-Server EF Linq, UWP Net
#

Download:

Datei 1: x01.dotm

 

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 gefunden 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

 

 

 

 

 

Mobile
vba
»
Vba Code: Vorlage Bereich kopieren
»
Vba Code: Platzhalter finden und ersetzen
»
Word: Am Ende einer Zeile einen Zeilenumbruch einfügen und Text einfügen
»
Word Makro: Zeichen am Ende einer Zeile einfügen
»
Text Eingabefelder in Word mit vba c# formfields TextInput
»
Eingabefelder in Word erstellen. C#
»
Word Schutz programmieren in vba .protect
»
Word aktuellen Dokumentpfad bei Document1 Vorlage
»
Word vba: aktuellen Satz finden
»
Word vba: Dokument-Eigenschaft Titel dynamisch ändern mit Textbox Control

.

Jobs, Projekte, Angebote für Freiberufler, Selbstständig an Info@CodeDocu.de