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 MS Word: erster Buchstabe fett

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

21.05.2014, aktualisiert 22.05.2014, 3209 Aufrufe, 10 Kommentare, 7 Danke

Hallo,

wie kann ich mit einem Makro den jeweils ersten Buchstaben der Wörter einer markierten Zeichenfolge fett formatieren?

01.
Sub ErsteBuchstabenGross() 
02.
Dim sTextIn As String 
03.
sTextIn = Application.Selection.Range.Text 
04.
...
(oder ist das schon Blödsinn???)

Sonnige Grüße,
Andreas
Mitglied: colinardo
LÖSUNG 21.05.2014, aktualisiert 22.05.2014
Hallo Andreas,
nichts leicher als das:
01.
Dim wd As Range 
02.
If Application.Selection.Range.Words.Count > 0 Then 
03.
    For Each wd In Application.Selection.Range.Words 
04.
      ActiveDocument.Range(wd.Start, wd.Start + 1).Bold = True 
05.
    Next 
06.
End If
Grüße Uwe
Bitte warten ..
Mitglied: ahstax
21.05.2014 um 15:35 Uhr
Herrlich...!!!
Gibt es was, was Dir nicht schon über den Weg gelaufen ist?

Ich bekomme nur leider eine Fehlermeldung, dass "Sub oder Function nicht definiert" sei und das Wort "Range" in der For-Schleife wird markiert.

Was müsste ich denn tun, wenn sich der der zu bearbeitende String in der letzten Tabelle in Zelle (1,2) [x,y] auf der letzten Seite eines Dokumentes befindet?

Grüße,
Andreas
Bitte warten ..
Mitglied: colinardo
LÖSUNG 21.05.2014, aktualisiert 22.05.2014
Zitat von ahstax:
Gibt es was, was Dir nicht schon über den Weg gelaufen ist?
doch, eine blaue Katze
Ich bekomme nur leider eine Fehlermeldung, dass "Sub oder Function nicht definiert" sei und das Wort "Range"
in der For-Schleife wird markiert.
habe es oben etwas angepasst. Du musst natürlich je nachdem in welcher Anwendung du den Code ausführst das entsprechende Word-Dokument referenzieren !
Was müsste ich denn tun, wenn sich der der zu bearbeitende String in der letzten Tabelle in Zelle (1,2) [x,y] auf der letzten Seite eines Dokumentes befindet?
ich dachte du markierst diesen, oder soll der durch den Code markiert werden ? etwas mehr Input

Grüße Uwe
Bitte warten ..
Mitglied: ahstax
21.05.2014 um 15:47 Uhr
Danke für die Änderung! Keine Fehlermeldung, aber der allererste Buchstabe der Markierung wird "ignoriert"...
Interessanterweise scheinen Sonderzeichen auch als Wort erkannt zu werden. So wird bei %ual sowohl das "%" als auch das "u" fett...

Mehr Input? Mehr Input:
Der Satz, den ich manuell markiere (und der bearbeitet werden soll), ist immer der Satz (Zeichenfolge), der in der letzten Tabelle auf der letzten Seite des Dokuments. Die Tabelle besteht aus einer Zeile und zwei Spalten, der Text ist in der rechten Spalte.


Bei der blauen Katze wünsche ich Dir viel Erfolg...!
Bitte warten ..
Mitglied: ahstax
21.05.2014 um 15:50 Uhr
Blaue Katze:
klick
Bitte warten ..
Mitglied: colinardo
LÖSUNG 21.05.2014, aktualisiert 22.05.2014
Zitat von ahstax:
Danke für die Änderung! Keine Fehlermeldung, aber der allererste Buchstabe der Markierung wird "ignoriert"...
Interessanterweise scheinen Sonderzeichen auch als Wort erkannt zu werden. So wird bei %ual sowohl das "%" als auch das
"u" fett...
ja woher soll ich das wissen wie der Text aussieht ? dann müsste man Ausnahmen definieren, oder nach den Leerzeichen gehen. Gib mal ein Beispiel.
Mehr Input? Mehr Input:
Der Satz, den ich manuell markiere (und der bearbeitet werden soll), ist immer der Satz (Zeichenfolge), der in der letzten Tabelle
auf der letzten Seite des Dokuments. Die Tabelle besteht aus einer Zeile und zwei Spalten, der Text ist in der rechten Spalte.
ok, werde das gleich mal nachgucken, sollte kein Problem darstellen.
Bitte warten ..
Mitglied: ahstax
21.05.2014 um 15:58 Uhr
Zitat von colinardo:
ja woher soll ich das wissen wie der Text aussieht ? dann müsste man Ausnahmen definieren, oder nach den Leerzeichen gehen.
Gib mal ein Beispiel.

OK, zugegeben, das war viel vorausgesetzt...
Ein Beispiel könnte sein (so eingegeben):

  • Der %uale Anteil liegt bei 3 4 .

Darin sollten dann die Zeichen
D % A l b 3 4 .[Punkt]
fett werden.
Bitte warten ..
Mitglied: colinardo
LÖSUNG 21.05.2014, aktualisiert 22.05.2014
So dies solltest du hiermit machen können:
01.
Dim doc As Document, rngCell As Range, c As Range, app As Application 
02.
 
03.
Set app = Application 
04.
Set doc = app.ActiveDocument 
05.
 
06.
'Range der Zelle in der letzten Tabelle auf der letzten Seite 
07.
Set rngCell = doc.Tables(doc.Tables.Count).Cell(1, 2).Range 
08.
 
09.
If rngCell.Characters.Count > 0 Then 
10.
    'Ersten Buchstaben fett machen 
11.
    rngCell.Characters(1).Bold = True 
12.
    'Jeden Buchstaben der einem Leerzeichen folgt fett formatieren 
13.
    For Each c In rngCell.Characters 
14.
        If c.Text = " " Then 
15.
            c.Next(wdCharacter, 1).Bold = True 
16.
        End If 
17.
    Next 
18.
End If
Bitte warten ..
Mitglied: ahstax
22.05.2014 um 08:56 Uhr
PERFEKT!!!
Herzlichsten Dank!!!

Einen schönen, sonnigen Tag wünsche ich
Bitte warten ..
Ähnliche Inhalte
Exchange Server

Ersten Buchstaben einer Mail werden abgeschnitten

Frage von Philipp.SExchange Server2 Kommentare

Hallo Admins, vereinzelnd kommt es immer wieder vor, dass bei Mitarbeitern die ersten Buchstaben einer Mail abeschnitten werden. z.B. ...

Microsoft Office

MS Word Online - Tabulatoren

Frage von greatmgmMicrosoft Office

Hallo zusammen, mach ich was falsch, oder kann Word Online tatsächlich nicht mit TabStops umgehen ? Auch wenn ich ...

Windows 7

Fette schrift

Frage von j.mueller101Windows 73 Kommentare

hallo, ich habe da ein kleines problem und hoffe das ihr mir helfen könnt. seit langer zeit habe ich ...

Microsoft Office

MS Word - Änderung von Tabelleneigenschaften nicht wiederholbar

gelöst Frage von keine-ahnungMicrosoft Office4 Kommentare

Moin, ich arbeite eigentlich nur sporadisch mit Word, was mich aber seit Jahren nervt ist der Umstand, dass in ...

Neue Wissensbeiträge
Humor (lol)
IoT-Gefahr: Smartes Aquarium leckt!
Information von Lochkartenstanzer vor 18 StundenHumor (lol)3 Kommentare

Moin, Die IoT-Manie hat weitere Opfer gefunden. Ein Casino-Leck durch ein smartes Aquarium: Allerdings haben sie kein Wasser, sondern ...

Router & Routing

Alte Fritzbox 7270 mit VPN und SIP-Telefonie hinter O2 Homebox 6641 als "Modem"

Erfahrungsbericht von the-buccaneer vor 1 TagRouter & Routing3 Kommentare

Nun war es soweit: Auch O2 hat mich mit VOIP zwangsbeglückt. Heute am Privatanschluss, in 2 Wochen ist das ...

Sicherheit

Ungepatchte Remote Code Execution-Lücke in LG NAS

Information von kgborn vor 1 TagSicherheit

Nutzt wer LG NAS-Einheiten? In den NAS-Einheiten der LG Network Storage-Einheiten gibt es eine sehr unschöne Schwachstelle, die einen ...

Windows Update

Neue Version KB4099950 NIC Einstellungen gehen verloren

Information von sabines vor 1 TagWindows Update2 Kommentare

Es ist eine neue Version des KB4099950 verfügbar, die das Problem mit den verlorenen Netzwerkeinstellungen lösen soll. Das Datum ...

Heiß diskutierte Inhalte
Sicherheit
Verbindliche Zustellung per E-Mail?
Frage von ahussainSicherheit18 Kommentare

Hallo allerseits, ein Kunde von mir nutzt intensiv Fax. Hauptgrund: zusammen mit einer Empfangsbestätigung ist eine verbindliche Zustellung gewährleistet. ...

Sonstige Systeme
Wie Normenkataloge im Unternehmen bereit stellen?
Frage von MuzzepuckelSonstige Systeme14 Kommentare

Hallo Kollegen, ich lese schon lange hier mit, nun mein ersrer Beitrag, bzw. Frage. :-) Wir benötigen für unsere ...

Linux Netzwerk
Raspberry Pi 3: WLAN Power save deaktivieren
Frage von nordie92Linux Netzwerk13 Kommentare

Moin moin, mein Raspberry Pi 3 Model B benötigt eine dauerhaft aktive WLAN-Verbindung. Leider bricht die WLAN-Verbindung nach einigen ...

SAN, NAS, DAS
Entscheidung SAN Dell oder HP
Frage von VincorSAN, NAS, DAS13 Kommentare

Hallo, wir wollen uns für unsere Hyper V Umgebung eine neue SAN Anschaffen. Es laufen 30 VM's darunter, DC; ...