Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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, 1491 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
Windows Netzwerk
GPO- Word Vorlagen (2)

Frage von Technology-L zum Thema Windows Netzwerk ...

Microsoft Office
Word Dokumente öffnen sich nicht (5)

Frage von xbast1x zum Thema Microsoft Office ...

VB for Applications
gelöst Suche in Word (2)

Frage von MarcoBorn zum Thema VB for Applications ...

Microsoft Office
Laufzeitfehler 13 in Word 2013 (5)

Frage von Wild-Wolf zum Thema Microsoft Office ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Server
Bilder aus dem Web mit CSV runterladen (30)

Frage von Yannosch zum Thema Server ...

Windows Update
WSUS 4 (Server 2012 R2) - Windows 10 Updates nicht möglich (12)

Frage von c0d3.r3d zum Thema Windows Update ...

Server-Hardware
Bestehendes Raid erweitern um 4 gleiche Platten! (Verständnis Fragen) (12)

Frage von Hendrik2586 zum Thema Server-Hardware ...