Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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, 1167 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(3)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Microsoft Office
Microsoftaccount löschen (2)

Frage von Kroni99 zum Thema Microsoft Office ...

Windows 7
Microsoft Word - Anzeigefehler bei Scrollen

Frage von heisenberg4 zum Thema Windows 7 ...

Exchange Server
Exchange 2010 Akzeptierte Domäne löschen (4)

Frage von Rob1982 zum Thema Exchange Server ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...