Zeilenumbruch/Spaltenumbruch

[Alexander Hamann]

Hallo Zusammen

Ich möchte per VBA alle Zeileumbrüche und/oder Spaltenumbrüche innerhalb
eines Dokumentes löschen.

Danke für die Hilfe
Alex

[Christian Freßdorf]

Hallo Alexander,

Post by Alexander Hamann
Ich möchte per VBA alle Zeileumbrüche und/oder Spaltenumbrüche innerhalb
eines Dokumentes löschen.

und die Frage lautet? ;-)

Meinst Du manuelle Umbrüche?

Lässt sich hervorragend mit dem Makrorekorder aufzeichnen

[Alexander Hamann]

Hallo

Ja ich meine manuelle Umbrüche (Sorry, keine Zeilenumbrüche sonder
Seitenumbrüche bzw. Spaltenumbrüche!).
Mir wäre es wichtig zu wissen, wie ich in VBA auf diese Objekte zugreifen
kann.

Danke
Alex

Post by Christian Freßdorf
Hallo Alexander,

Post by Alexander Hamann
Ich möchte per VBA alle Zeileumbrüche und/oder Spaltenumbrüche innerhalb
eines Dokumentes löschen.

und die Frage lautet? ;-)
Meinst Du manuelle Umbrüche?
Lässt sich hervorragend mit dem Makrorekorder aufzeichnen
--
Gruß Christian
~~~~~~~~~~~~
=> http://www.fruiture.de/perl/questions.html#intro
=> http://word.mvps.org

[Helmut Weber]

Hallo Alex,

Zeilenumbruch einfügen, markieren:
MsgBox Asc(Selection.Text) ' und merken

Spaltenumbruch einfügen, markieren:
MsgBox Asc(Selection.Text) ' und merken

Sub test8697()
Dim rngDcm As Range
Set rngDcm = ActiveDocument.Range
ResetSearch
With rngDcm.Find
.Text = Chr$(11)
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = Chr$(14)
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
ResetSearch
End Sub
' ---
Public Sub ResetSearch()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
' plus some more if needed
.Execute
End With
End Sub


Viel Spass noch.

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003

[Alexander Hamann]

Hallo

Ist genau meine gesuchte Lösung :-)

Vielen Dank
Alex

Post by Helmut Weber
Hallo Alex,
MsgBox Asc(Selection.Text) ' und merken
MsgBox Asc(Selection.Text) ' und merken
Sub test8697()
Dim rngDcm As Range
Set rngDcm = ActiveDocument.Range
ResetSearch
With rngDcm.Find
.Text = Chr$(11)
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
.Text = Chr$(14)
.Replacement.Text = ""
.Execute Replace:=wdReplaceAll
End With
ResetSearch
End Sub
' ---
Public Sub ResetSearch()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
' plus some more if needed
.Execute
End With
End Sub
Viel Spass noch.
Helmut Weber, MVP WordVBA
"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003