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 VBA - Bestimmte Ebene einer Nummerierung markieren

Mitglied: BaseBubble

BaseBubble (Level 1) - Jetzt verbinden

13.11.2019 um 19:14 Uhr, 176 Aufrufe, 3 Kommentare

Hallo!

In einer Word-Datei mit Nummerierungen möchte ich via VBA die zweite Ebene der Nummerierungen markieren (und dann weiterbearbeiten aber das ist hier nicht das Problem)
Die Datei sieht ungefähr so aus wie die angehängte Bilddatei.

Ich habe mir ein kleines Skript gebastelt, mit dem ich die komplette Nummerierung markieren kann aber bekomme es nicht hin, nur eine Ebene zu erwischen (z. B. die mit den Kleinbuchstaben vorneweg). Vermutlich fehlt mir nur ein kleiner Parameter, den ich noch in das Skript basteln muss (ich nehme an, in der "for"-Zeile), aber ich stehe total auf dem Schlauch.

01.
Sub NummerierungMarkieren()
02.

03.
Dim varlstAufzaehlung As Word.List
04.

05.
For Each varlstAufzaehlung In ActiveDocument.Lists
06.
    varlstAufzaehlung.Range.Select
07.
Next varlstAufzaehlung
08.

09.
End Sub
Ich habe auch schon mit Google und in den Microsoft-Docs gesucht aber komme hier jetzt nicht weiter.
Vermutlich ist es ganz leicht und mir fehlt nur ein Tritt in die richtige Richtung.

Danke schon mal und schönen Abend
B.
worddatei - Klicke auf das Bild, um es zu vergrößern
Mitglied: colinardo
LÖSUNG 14.11.2019, aktualisiert um 10:13 Uhr
Servus @BaseBubble,
kein Problem:
01.
Sub FormatSecondLevel()
02.
    Dim lst As List, pg As Paragraph
03.
    ' Mit diesem Dokument arbeiten
04.
    With ThisDocument
05.
        ' Für jede Liste im Dokument
06.
        For Each lst In .Lists
07.
            ' für jeden Absatz der Listen-Absätze
08.
            For Each pg In lst.ListParagraphs
09.
                ' Wenn List-Level = 2 formatiere entsprechend
10.
                If pg.Range.ListFormat.ListLevelNumber = 2 Then
11.
                    pg.Range.Font.TextColor = vbRed
12.
                End If
13.
            Next
14.
        Next
15.
    End With
16.
End Sub
Grüße Uwe
Bitte warten ..
Mitglied: BaseBubble
14.11.2019 um 11:29 Uhr
Grandios! Genau, was ich gebraucht habe... Und dann noch mit Kommentaren!

Ganz großes Danke!
Boris
Bitte warten ..
Mitglied: colinardo
14.11.2019 um 11:49 Uhr
You're welcome.
Bitte warten ..
Ähnliche Inhalte
Microsoft Office
Word bestimmt Sprache selbst
gelöst Frage von honeybeeMicrosoft Office1 Kommentar

Hallo, habe in Word 2016 ein nerviges Problem: Auf meinem Computer (Windows 10) sind zwei Sprachen installiert: Deutsch und ...

Microsoft Office
VBA Word IBAN zerschneiden
gelöst Frage von InSpeeMicrosoft Office8 Kommentare

Hallo, wie kann ich mit VBA eine IBAN in 4er Schritten zerschneiden, sodass die IBAN so aussieht: DExx xxxx ...

Windows 10
Datenträger Nummerierung
gelöst Frage von AushilfsarnieWindows 109 Kommentare

Hallo, ich habe eine neue Festplatte (m.2 nvme) gekauft. jetzt möchte ich diese gerne als erste Festplatte (mit Windows ...

VB for Applications

Excel-VBA nach Word-VBA übersetzen (V. 2010)

gelöst Frage von spinnifexVB for Applications2 Kommentare

Hallo Admins, wie kann ich folgendes XL-Makro nach Word übersetzen, wobei die Zelladresse "A1" als Textmarke "Anzahl" angesprochen werden ...

Neue Wissensbeiträge
Viren und Trojaner
Trend Micro WFBS 10 SP1 Patch 2185
Tipp von Abramelin vor 8 StundenViren und Trojaner

Hi, Hab gerade gesehen das Patch 2185 für TM WFBS 10 SP1 erschienen ist! Werde mal Morgen den Patch ...

Viren und Trojaner

Neuer Virus lässt Windows im abgesicherten Modus starten

Tipp von transocean vor 12 StundenViren und Trojaner3 Kommentare

Moin, lest selbst. Grüße Uwe

Sicherheit
Böser Bug in Domänenkennwortrichtlinie!
Information von DerWoWusste vor 17 StundenSicherheit1 Kommentar

Ich spiegele mal Borncity: In Kürze: Nutzt Ihr eine Domänen-Kennwortrichtlinie der herkömmlichen Art (keine PSO-Richtlinie)? Ja? Und plant Ihr, ...

Windows Tools
7-Zip v19.0 MSI silent uninstall
Tipp von Dirmhirn vor 1 TagWindows Tools5 Kommentare

Hi, ich versuchte grade 7-Zip v19.0 MSI silent zu deinstallieren. mit msiexec /x stürzt mir immer der Explorer ab. ...

Heiß diskutierte Inhalte
Sicherheitsgrundlagen
Sperrung der IMAP Aktivierung: GMail für Apple Mail - in einer Schul-Google-Suite
Frage von lazylandSicherheitsgrundlagen15 Kommentare

Hallo, ich würde mich sehr über Eure Einschätzung und Rat freuen: Der Administrator einer Google Suite (Schule) löscht aus ...

Windows 10
Win10 Remote Desktop User anders
Frage von ludibubiWindows 1014 Kommentare

Folgende Situation: Auf meinem Rechner (Win10) in der Firma (Domänen-Netzwerk) starte ich abends bevor ich gehe einen Newsletterversand. Damit ...

Windows 8
Snipping Tool Alternative für bzw ab Windows 8.1
gelöst Frage von schmitziWindows 814 Kommentare

Hallo, ich suche für Windows 8.1 eine Alternative für das bordeigene Snipping Tool von MS, vielleicht weiss ja jemand ...

Server-Hardware
Anschaffung neuer Server
Frage von tschip1801Server-Hardware14 Kommentare

unsere Firma bekommt einen neuen Server, ich bin schon sehr lange nicht mehr so tief im geschehen um hier ...