Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Seitenumbruch nach einer Textbox einfügen
zurück: Command Button Excel 03 weiter: Inhalt einer Textmarke farbig Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
stefanbla81
Gast


Verfasst am:
28. Apr 2009, 15:41
Rufname:

Seitenumbruch nach einer Textbox einfügen - Seitenumbruch nach einer Textbox einfügen

Nach oben
       Version: Office XP (2002)

Hallo zusammen,

ich würde gerne einen Seitenumbruch nach einer Textmarke einfügen.

Mit den Codes von Lisa komme ich super zurecht und deswegen auch wieder diesen weiteren Wunsch.

Code zum einfügen eines Bildes in eine geschlossene Textmarke:
Code:

Sub BildEinfuegen(ByVal doc As Word.Document, ByVal strBild As String, strTMName As String)
' fügt ein Bild an einer geschlossenen Textmarke ein

    Dim rngTM As Word.Range
    Dim rng As Word.Range
       
    If doc.Bookmarks.Exists(strTMName) Then
        Set rngTM = doc.Bookmarks(strTMName).Range
        Set rng = doc.Bookmarks(strTMName).Range.Duplicate
        rng.MoveEnd wdCharacter, 1
        If rng.InlineShapes.Count > 0 Then
            rng.InlineShapes(1).Delete
        End If
        With rngTM
            .Collapse wdCollapseEnd
            .InlineShapes.AddPicture FileName:=strBild, _
                LinkToFile:=False, SaveWithDocument:=True, _
                Range:=rngTM
        End With
    End If
    Set rngTM = Nothing
    Set rng = Nothing

End Sub
Lisa
Moderator; Word seit Word 5.0 (für DOS)


Verfasst am:
28. Apr 2009, 19:35
Rufname:
Wohnort: Leipzig


AW: Seitenumbruch nach einer Textbox einfügen - AW: Seitenumbruch nach einer Textbox einfügen

Nach oben
       Version: Office XP (2002)

Hallo Stefan,

mach es mal so:
Code:
Sub SeitenwechselEinfuegen(ByVal doc As Word.Document, ByVal strTMName As String)
' fügt nach einer geschlossenen Textmarke einen Seitenwechsel ein

    Dim rng As Word.Range

    If doc.Bookmarks.Exists(strTMName) Then
        Set rng = doc.Bookmarks(strTMName).Range.Duplicate
        rng.Collapse wdCollapseEnd
        rng.InsertBreak wdPageBreak
    End If
    Set rng = Nothing
   
End Sub

Sub Aufrufen()

    Call SeitenwechselEinfuegen(ActiveDocument, "Test")

End Sub

_________________
Sei doch so nett und gib eine Rückmeldung, ob es klappt!
Gruß, Lisa

Guter Rat ist teuer!
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Word Serienbrief über Bedingungsfeld Tabellenzeile einfügen 6 Scheff 4493 08. Nov 2010, 13:33
Scheff Word Serienbrief über Bedingungsfeld Tabellenzeile einfügen
Keine neuen Beiträge Word Serienbriefe: Namensfelder einfügen 7 Rusdyn 1727 15. Jul 2010, 14:28
charlybrown Namensfelder einfügen
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Datenquelle in Word Spalte einfügen 1 GastB 2212 15. Mai 2010, 14:10
charlybrown Serienbrief mit Datenquelle in Word Spalte einfügen
Keine neuen Beiträge Word Serienbriefe: Adressen aus Office tabellen dokument in dokument einfügen 1 Anna-L. 1218 15. Nov 2009, 21:42
charlybrown Adressen aus Office tabellen dokument in dokument einfügen
Keine neuen Beiträge Word Serienbriefe: In Word fertige Textbausteine von extern einfügen 8 Windmechaniker 4263 01. Nov 2009, 01:33
charlybrown In Word fertige Textbausteine von extern einfügen
Keine neuen Beiträge Word Serienbriefe: Textmarken per Includetext einfügen in Abhängigkeit von ASK 0 Robotixx 1805 13. Jul 2009, 19:45
Robotixx Textmarken per Includetext einfügen in Abhängigkeit von ASK
Keine neuen Beiträge Word Serienbriefe: Checkbox in Word einfügen, Abfrage Bedingung aus Excel 10 1cyber 23707 05. Jun 2009, 13:17
Gast Checkbox in Word einfügen, Abfrage Bedingung aus Excel
Keine neuen Beiträge Word Serienbriefe: Einfügen von Texten mit Feldfunktionen in einem Formular 14 azse 1524 26. Feb 2009, 11:54
azse Einfügen von Texten mit Feldfunktionen in einem Formular
Keine neuen Beiträge Word Serienbriefe: Anrede einfügen 0 ArianeH 910 27. Aug 2008, 11:47
ArianeH Anrede einfügen
Keine neuen Beiträge Word Serienbriefe: mit Wenn/Dann-Bedingungsfeld Tabelle einfügen? 10 Bärbel G. 3136 17. Jul 2008, 20:00
Maulende Myrte mit Wenn/Dann-Bedingungsfeld Tabelle einfügen?
Keine neuen Beiträge Word Serienbriefe: Manuellen Seitenumbruch einfügen 1 BWolf 1400 16. Mai 2007, 21:05
Hübi Manuellen Seitenumbruch einfügen
Keine neuen Beiträge Word Serienbriefe: In einem Serienbrieg Daten aus Access einfügen 2 Dorian 980 19. Apr 2007, 10:21
Betty2004 In einem Serienbrieg Daten aus Access einfügen
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps