Programmieren - alles kontrollieren 4.941 Themen, 20.708 Beiträge

Verfolgung starten Optionen

VBA - Word

PingOfDeath / 1 Antworten / Baumansicht Nickles

Ich schon wieder ;-)

Ich möchte per VBA eine Textmarke erstellen und dort dann einen Seitenumbruch realisieren.
Dannach folgt anderer Code....
Wenn alles abgeschlossen ist soll die Textmarke mit dem Seitenumbruch wieder gelöscht werden.

In den letzten 10min. ist mir das dazu eingefallen:

Private Function SeitenumbruchErsteSeite(erzeugen As Boolean)
If erzeugen Then
' Textmarke Seitenumbruch_temp setzen
With ActiveDocument.Bookmarks
Selection.Font.Size = 1
.Add Range:=Selection.Range, name:="Seitenumbruch_temp"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With

Selection.InsertBreak (wdPageBreak)

Else
' Textmarke Seitenumbruch_temp löschen
End If
End Function

Das ist natürlich überhaupt noch nicht fertig - aber wenn ich ehrlich bin hab ich nicht soviel Ahnung von VBA - kann mir da jemand ein wenig helfen?
Kann ich überhaupt einen Seitenumbruch IN eine Textmarke schreiben und diese dann zusammen mit dem Seitenumbruch löschen?

MfG. PingOfDeath

bei Antwort benachrichtigen
Data Junkey PingOfDeath „VBA - Word“
Optionen

Uuuhfff, also, ehrlich gesagt, .. es ist schon eine ganze Zeit lang her, dass ich mich mit VAB beschäftigt habe; da bin ich leider nicht mehr so am laufenden. .. :(

..Und, ich weiß auch ehrlich gesagt nicht genau, worauf du hinaus willst; was genau du bezwecken willst..?

Aber ich habe da mal einen anderen Ansatz getestet, der bei mir soweit funktioniert. Da wirst aber sicherlich noch einiges Basteln müssen. .. :-)

Aber einen Allgemeinen Tipp hätte ich da noch:

Wenn du im VBA-Code die Anweisung Stop eingibst, bleibt das Skript an dieser Stelle stehen, und schaltet zum VBA-Editor um. Hier kannst du im Menü Ansicht --> Lokal-Fenster sehen, wie der momentane Status deiner Variablen ist. Es ist immer zu empfehlen, mit Variablen zu arbeiten.

Mein Code:
-------------------------------------------------------
Sub SeitenumbruchErsteSeite()
'
' SeitenumbruchErsteSeite Makro
' Makro aufgezeichnet am 09.07.2008 von Thomas
'
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="Textmarke1"
.DefaultSorting = wdSortByName
.ShowHidden = False
Selection.InsertBreak Type:=wdPageBreak
End With
End Sub
---------------------------------------------------------
Sub SeitenumbruchErsteSeiteLoschen()
'
' SeitenumbruchErsteSeiteLoschen Makro
' Makro aufgezeichnet am 09.07.2008 von Thomas
'
Selection.TypeBackspace
ActiveDocument.Bookmarks("Textmarke1").Delete
' With ActiveDocument.Bookmarks
' .DefaultSorting = wdSortByName
' .ShowHidden = False
' End With
End Sub
----------------------------------------------------------

Viel Spaß, Thomas :-)

bei Antwort benachrichtigen