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
#

Word Makro: Einfügen von neuen Zeilen nach einer Textmarke
 
Wie fügt man im einem Word Makro neue Zeilen nach einer Textmarke ein?
Mit einem Word Makro kann man automatisch zur Textmarke springen und anschliessend neue Zeilen nach der Textmarke einfügen und den Cursor dort hin bewegen.

 
Was macht das Makro:
  1. Es springt zur Textmarke [Fotos] und markiert diese
  2. Dann setzt es den Cursor auf das Ende der Textmarke
  3. Dann fügt es neue Zeilen nach dem Ende ein
  4. Und springt zur neuen Zeile

 
Hier im vba Code (Makro): Springen, markieren, Zeile anfügen

doc.Bookmarks(sBookmark_Name).Select        'select the bookmark
doc.range(Selection.End, Selection.End).Select
Selection.TypeParagraph                     'Insert new Line
 

 
 
Hier ein komplettes Makro als vba Code

Sub word_Insert_Line_after_Bookmark()
    '-----------------< word_Insert_Line_after_Bookmark() >-----------------
    '*Insert new Lines after a bookmark
    Dim doc As Document
    Set doc = Application.ActiveDocument
   
    '----< Jump to Bookmark >----
    '< Init >
    Dim sBookmark_Name As String
    sBookmark_Name = "Fotos"
    '</ Init >
 
    '< check Bookmark >
    If Not doc.Bookmarks.Exists("Fotos") Then
        MsgBox "Ich kann die Textmarke Fotos nicht finden", vbCritical, "Textmarke Fotos fehlt"
        Exit Sub
    End If
    '</ check Bookmark >
 
    '< Jump >
    'Selection.GoTo What:=wdGoToBookmark, Name:=sBookmark_Name
    doc.Bookmarks(sBookmark_Name).Select        'select the bookmark
    doc.range(Selection.End, Selection.End).Select
    Selection.TypeParagraph                     'Insert new Line
    Selection.TypeParagraph                     'Insert new Line
 
    Selection.GoToNext wdGoToLine                        'jump to line after the Bookmark
    '</ Jump >
    '-----------------< word_Insert_Line_after_Bookmark() >-----------------
End Sub

 
 
Video Tutorial
Mobile
»
Zwischenspeicher als Bild mit 19 Zentimeter Breite einfügen
»
MS Word: Einfügen Paste Ereignis in Word einbauen
»
Word Code: Word Find
»
Word Makro: Alle Sätze markieren und Markierungen wieder löschen
»
Word Makro: Word automatischer Zoom auf 100% beim Dokument öffnen
»
Word Makro: Tabellen durchlaufen und Inhalt kopieren und Einfügen
»
Word Makro: Automatische Korrektur von falschen Übersetzungslinks
»
Word Makro: Einfügen von neuen Zeilen nach einer Textmarke

.

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