Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Word Seitenumbruch löschen

Frage Entwicklung VB for Applications

Mitglied: MarcoBorn

MarcoBorn (Level 1) - Jetzt verbinden

09.02.2015, aktualisiert 11.02.2015, 1542 Aufrufe, 3 Kommentare

Hallo Forum,
mit folgenden Code versuche ich, alle Seitenumbrüche in Word zu löschen:

01.
  Selection.HomeKey Unit:=wdStory 
02.
  Selection.EndKey Unit:=wdStory, Extend:=wdExtend 
03.
  Selection.Find.ClearFormatting 
04.
  Selection.Find.Replacement.ClearFormatting 
05.
  With Selection.Find 
06.
    .Text = "^m" 
07.
    .Replacement.Text = "" 
08.
    .Forward = True 
09.
    .Wrap = wdFindStop 
10.
    .Format = False 
11.
    .MatchCase = False 
12.
    .MatchWholeWord = False 
13.
    .MatchWildcards = False 
14.
    .MatchSoundsLike = False 
15.
    .MatchAllWordForms = False 
16.
  End With 
17.
  Selection.Find.Execute Replace:=wdReplaceAll
Den Code habe ich direkt vom Makrorecorder übernommen, aber leider funktioniert das Ganze nicht. Hat Word beim Löschen von Steuerzeichen per VBA ein Problem, oder muss ich dabei anders vorgehen?

Vielen Dank für Eure Hilfe,
M. Born
Mitglied: colinardo
LÖSUNG 09.02.2015, aktualisiert 11.02.2015
Hi Marco,
probiers mal hiermit, das macht hier testweise das gewünschte:
01.
Sub RemoveAllManualPageBreaks() 
02.
    With ThisDocument.Content.Find 
03.
        .Text = "^m" 
04.
        .Replacement.Text = "" 
05.
        .Execute Replace:=wdReplaceAll 
06.
    End With 
07.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: MarcoBorn
09.02.2015 um 13:45 Uhr
Hallo Uwe,
vielen Dank für Deinen Code. Ich muss gleich auf Dienstreise, werde es aber am Mittowch testen.

Viele Grüße,
Marco
Bitte warten ..
Mitglied: MarcoBorn
11.02.2015 um 11:58 Uhr
Hallo Uwe,
ich habe Deinen Code probiert und er funktioniert.

Vielen Dank,
Marco
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
In Word System.Windows.Forms Dropdownliste löschen
gelöst Frage von Ragnar.StefanssonMicrosoft Office5 Kommentare

Hallo zusammen, brauche bei einem derzeitigen problem eure Hilfe. Ich arbeite an einem Worddokument welches später beim Kunden als ...

Microsoft Office
Seitenumbruch in Excel soll neue Tabelle sein
gelöst Frage von killtecMicrosoft Office10 Kommentare

Hallo zusammen, ein Kollege trat gerade an mich ran und hatte gefragt, ob es möglich ist, eine Exceltabelle die ...

Microsoft Office
Excel 2010 via Makro bedingten Seitenumbruch einfügen
Frage von arduinoMicrosoft Office1 Kommentar

Hallo Ich hab ein ExcelMakro, das ein formatiertes Textfile importiert Jetzt ist der Wunsch, dass nach den Eintritten von ...

Microsoft Office
Word 2013 - Textbausteine, Schnellbausteine lassen sich nicht speichern oder löschen.
Frage von MyApps2GO.deMicrosoft Office2 Kommentare

Morgen Zusammen, ich hab hier Probleme mit einem (eigentlich) trivialen Thema. Wenn ich versuche Schnellbausteine hinzuzufügen oder zu löschen, ...

Neue Wissensbeiträge
Microsoft Office

Office 2010 Starter erneut auf einer frischen Windows-Version installieren

Tipp von Lochkartenstanzer vor 1 TagMicrosoft Office8 Kommentare

Moin, vor ein paar Tagen schlug bei mir ein Kunde auf, der sein Widnows 7 geschrottet und es inklusive ...

Datenbanken

Upgrade MongoDB 3.4 auf 3.6

Erfahrungsbericht von Frank vor 1 TagDatenbanken

Seit kurzem gibt es das 3.6 Update für die MongoDB: Sicherheit, das Sortieren, Aggregation und auch die Performance wurde ...

SAN, NAS, DAS

Backdoor Zugang und Upload-Bug in vielen Western Digital MyCloud Geräten

Information von Frank vor 1 TagSAN, NAS, DAS2 Kommentare

James Bercegay von der Firma Gulftech hat die Fehler an Western Digital gemeldet und das Unternehmen stellt bereits ein ...

Microsoft Office

Outlook 2016 - Beim Weiterleiten keine PDF Anhänge mehr - KB4011626 entfernen

Erfahrungsbericht von Deepsys vor 1 TagMicrosoft Office3 Kommentare

Wenn ihr feststellt das ihr beim Weiterleiten von E-Mails keine PDF Anhänge mehr versendent, dann dankt Microsoft. Diese tolle ...

Heiß diskutierte Inhalte
Netzwerke
NTFS-Berechtigung
Frage von Daoudi1973Netzwerke23 Kommentare

Hallo zusammen und frohes neues Jahr (Sorry, ich bin spät dran) Meine Frage: 1- Ich habe einen Ordner im ...

iOS
Einladung vom iphone kalender
Frage von jensgebkeniOS15 Kommentare

Hallo Gemeinschaft, folgendes Problem - immer wenn ich von meinem Iphone einen Termin einztrage und diesem Termin Teilnehmer zuweise, ...

Windows Netzwerk
Drucker isolieren in Windows Domäne
gelöst Frage von lcer00Windows Netzwerk14 Kommentare

Hallo zusammen, habe eine Windows-AD (2012R2) in der es einen Druckerserver gibt. Mittlerweile verliere ich das Vertrauen in die ...

Drucker und Scanner
Gesucht DIN A3 Drucker
Frage von NebellichtDrucker und Scanner14 Kommentare

Hallo, ich möchte einen neuen DIN A3 Drucker kaufen. Um ab und zu, ca. 1 mal die Woche Farbausdrucke ...