VBA Word Range.Word zählt Punkt als Wort?

Hallo zusammen

wie schon der Titel sagt habe ich das Problem, dass VBA:

oDoc.Tables(1).Cell(zeile, spalte).Range.Words(Wortzaehler).Font.Italic = True

gewisse Zeichen als Wort interpretiert. Bspw. ".", "%", sind alles eigenständige Wörter

Wenn ich nun jedes Wort einzeln durchgehen möchte, muss ihc zu vor mittels split " ", den string teilen. ABER die anzahl an wörtern simmt dann nicht

bspw:

Das ist ein 100% Test --> das sind laut Split bei jedem leerzeichen 5 Wörter

ABER

Range.Words(Wortzaehler) zählt 6 Wörter, da das Prozentzeichen als extra Wort gezählt wird. Wie kann ich den "wirklich" alle Wörter abzählen (inkl. Prozentzeichen usw.)

2 Antworten

holgerholg

17.07.2021, 15:51

Du könntest erst den gewünschten Bereich per VBA markieren

oDoc.Tables(1).Cell(zeile, spalte).Select
Selection.MoveLeft Unit:=wdCharacter, Count:=1
'Vorher muss natürlich ANZAHLZEICHEN ermittelt werden.
Selection.MoveRight Unit:=wdCharacter, Count:=ANZAHLZEICHEN, Extend:=wdExtend

und dann

Selection.Font.Italic = True

verwenden (wenn du aus einer anderen Anwendung auf Word zugreifst, musst du noch die Referenz zur Word-Application voranstellen).

Dann brauchst du nur die Anzahl der Zeichen des gewünschten Textabschnittes und die bekommst du mit len().

jumbo125

Fragesteller

17.07.2021, 16:02

puh.... und wie soll ich den Text markieren, wenn ich nicht weiß aus wie vielen Wörter er besteht?

holgerholg

17.07.2021, 16:03

@jumbo125

Willst du einfach die gesamte Zelle kursiv machen oder wofür brauchst du den Wortzähler, wenn du den Text nicht kennst? Dann wäre es einfach

oDoc.Tables(1).Cell(zeile, spalte).Range.Font.Italic = True

jumbo125

Fragesteller

17.07.2021, 16:07

danke

jumbo125

Fragesteller

17.07.2021, 16:09

@jumbo125

habs nun so geschafft, alle zeichen zu zählen, wie word es auch wirklich tut, inkl. prozent usw. gesamter_string = oDoc.Tables(1).Cell(zeile, spalte).Range.Words.count

GutenTag2003

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

17.07.2021, 20:31

Zeichen als Wort interpretiert. Bspw. ".", "%", sind alles eigenständige Wörter

Kannst Du diese nicht zählen (lassen) ... und in Abzug bringen (lassen)?

Hi,

Ich möchte prüfen ob beispielsweise "Cell(x,y)" leer ist. Strings die nur aus Leerzeichen sollen auch als leer gelten. Wie mache ich sowas?

lg HiFriend :)

...zur Frage

VBA Powerpoint: Die Schriftart bei einer Shape nur für bestimmte Wörter ändern?

Hi, ich möchte durch VBA bei einer Shape den Text mit Shapes.TextFrame.TextRange.Text = "Text" ändern. Wie kann ich hinter den Text noch besipielsweise ein Wort in Fettbuchstaben einfügen?

...zur Frage

Excel Suchfunktion für Spalte

Hallo an alle,

ich arbeite zur Zeit an einer Excel-Tabelle und benötige etwas Hilfe bei einer integrierten Suchfunktion.

Die Tabelle ist recht groß - das einzige, das mich allerdings interessiert ist Spalte B, in der inzwischen mehrere hundert Wortkürzel stehen (z.B. ABS, TPP, KVP).

Um es benutzerfreundlicher zu machen möchte ich ein Suchfeld integrieren, mit dem ich die Spalte B nach Wörtern durchsuchen kann. Hier mal kurz die Eckdaten, wie ich mir das ganze Vorstelle:

Einzelnes Suchfeld, in das ein Wort eingegeben werden kann
Programm springt nach Eingabe zur Position des Kürzels
Suche soll genau das eingegebene Wort suchen und nicht alle Wörter, in denen diese Textkombination enthalten ist. Wenn ich nach PA suchen würde, würde er mir sonst wahrscheinlich 300 Wörter markieren!

Wunschanforderung wäre, dass Excel mir einfach alle Wörter markiert (z.B. rot umrandet), da manche Kürzel auch mehrfach in der Tabelle stehen.

Ich habe zwar schon eine Formel aber die benötigt 2 Felder und das findet mein AG nicht genial genug :D

Bestens wäre natürlich ein VBA-Code, die kann ich aber leider nicht selbst programmieren und finde kein Tutorial dafür, noch einen geeigneten Code im Internet.

Falls jemand bereit wäre mir dabei zu helfen, schreibe ich natürlich gerne mehr Informationen zur Tabelle. Ansonsten Danke für alle (Verbesserungs-)Vorschläge und konstruktiven Kommentare ;)

...zur Frage

Excel Problem: Wie füge ich Anführungszeichen vor und hinter ein Wort für eine ganze Tabelle ein?

Ich habe eine Spalte mit 18.000 Einträgen mit jeweils einem einzigen Wort. Die Wörter sollen aber alle in Anführungszeichen stehen. Wie mache ich das?
Bspw. steht in einer Zelle Hallo, und ich möchte das Wort in der Zelle daneben als "Hallo" stehen haben.
DANKE!

...zur Frage

Wie kann ich in C aus einer normalen Textdatei mehrere Wörter auslesen?

Also ich gebe in meinem .c Programm einen String ein, der soll in der Text Datei gesucht werden. Dabei sind das jedoch leider eben nicht nur Wörter, sondern mehrere Wörter mit Leerzeichen (also meine Eingabe ist mit Leerzeichen). Kann ich das einfach mit strstr machen oder gibt es eine ähnlich einfache verständliche anfängerfreundliche Lösung dafür? Hier Code bis jetzt (noch sehr unsauber, ich wollte es aber nur testen):

Sry wegen der Formatierung, nur mit [Code]-Tags scheint das nicht zu klappen.

[CODE]

printf("Gesellschaft: ");

fgets(fluggesellschaft, 100, stdin);

datei1=fopen("Fluggesellschaft.txt", "r+b");

fgets(TextinDatei, sizeof(TextinDatei), datei1);

if((strstr(TextinDatei, fluggesellschaft))==NULL){

printf("\nkonnte wort nicht finden.\n\n");

}

[/CODE]

...zur Frage

Anagramme-Generator in VBA möglich?

Ich möchte ein VBA-Programm schreiben, dass mir aus einem eingegeben Wort alle möglichen Anagramme erzeugt und auflistet.

Ob die erzeugten Wörter einen Sinn ergeben oder nicht ist dabei irrelevant.

Was gibt es da für Möglichkeiten? Lässt sich das als Anfänger durch For/Next und Do/Loop schleifen mit simplen Befehlen lösen?

Ich würde iwie den Buchstaben Variablen zuordnen, sowie den möglichen Stellen (Anzahl der Buchstaben). Wie erzeuge ich einen Befehl, der mir die Buchstaben durcheinanderwürfelt?

MfG und Vien Dank!

...zur Frage

Wie kann ich eine Exceltabelle auf mehrere Arbeitsblätter verteilen?

Ich habe eine Tabelle die so aussieht:

ABC-Würfel 5237000

Abfallbehälter 5236000

Abfallbeseitigung 5231300

Abfallcontainer 5231300

Abfallsammler 5236000

Abfalltrenner 5236000

Abonnements 5532000

Absperrband 5213000

Acrylbausteine 5213000

Jetzt hätte ich gerne, dass alles nach den Zahlen sortiert in verschiedene Arbeitsblätter geschrieben wird. Das am Ende es so aussieht:

Arbeitsblatt 1: Gesamt (so wie oben)

Arbeitsblatt 2: alle mit 5237000

Arbeitsblatt 3: alle mit 5236000

Arbeitsblatt 4: alle mit 5231300

usw.

Außerdem sollte natürlich auch, wenn im Arbeitsblatt 1 gesamt etwas verändert wird, dies auch bei den anderen Arbeitsblättern passieren. Dazu ist noch vlt interessant zu wissen, dass die Wörter in Verbindung mit den Zahlen immer gleich bleiben. Es können am Ende der Tabelle nur neue Wort-Zahlenkombinationen hinzukommen. Neue Zahlen können auch nicht dazu kommen nur neue Wörter.

Gibt es hierfür eine Lösung ohne VBA? Wenn VBA dann schaff ich das nur mit genauer "klick da und dann dort"-Anleitung.

Office 2010

...zur Frage

Wörter Zählen in Google Tabellen?

Hi, Ich würde gerne die Google Tabellen App zählen lassen, wie oft ich in eine bestimmte Zelle ein Bestimmtes Wort eingebe. So dass ich für Magic Karten sozusagen für jede Karte einen Eintrag habe, wo dann gezählt wird, wie oft ich diese Karte habe und immer wenn ich in eine bestimmte Zelle den Namen der Karte eingebe, zählt das Programm eins dazu. Gibt es dazu eine Funktion?

...zur Frage

VBA: 2 Excel Tabellen vergleichen und markieren?

Hallo,

ich habe gesehen, dass es zwar ähnliche Fragen gibt, aber mein Problem konnte ich mit den Antworten bisher nicht lösen. Ich muss dazu sagen, dass ich noch ziemlicher VBA-Neuling bin.

Ich habe 2 Excel Dateien. Diese sind identisch aufgebaut. Das Ergebnis soll in einer dritten Datei geschrieben werden. In Spalte A steht eine eindeutige ID und Spalte B ist ein Erklärungstext hierzu.

Bsp.: Alt:

BS04 Lisa ist 18 Jahre alt.

BS07 Lisa ist einen Apfel.

Neu:

BS07 Lisa isst einen Apfel.

BS08 Lisa wohnt in einem Haus.

Im neuen Dokument wurde BS04 entfernt. BS07 wurde der Schreibfehler korrigiert. BS08 wurde hinzugefügt.

Mein Ziel ist, dass nicht Zeile für Zeile verglichen wird, sondern anhand der ID der Text verglichen wird. Dann sollen Änderungen rot markiert werden. Entfernte Wörter oder entfernte Spalten sollen rot durchgestrichen werden.

Ergebnis:

BS04 Lisa ist 18 Jahre alt. [rot und durchgestrichen]

BS07 Lisa isst einen Apfel. [BS07 rot, das Wort "isst" rot]

BS08 Lisa wohnt in einem Haus. [rot]

Ich habe mir ein Makro bauen können, was ganze Zeilen rot markiert bei Abweichung, leider wird dann alles rot markiert, sobald eine Zeile hinzugefügt bzw. entfernt wurde. Ist ein solches Makro mit VBA überhaupt zu programmieren?

Ich danke euch für eure Mühe!

Gruß Steffen

...zur Frage

Gibt es Wörter die ihr schreibt aber nicht sagt?

Bspw. Habe ich festgestellt, dass 2 Kolleginnen von mir beim Schreiben das Wort "nun" benutzen, aber in einem Gespräch benutzen sie das Wort gar nicht.

...zur Frage

das schönste englische wort?

Es gibt ja so viele schöne englische wörter.. aber welches ist euer lieblingswort ? :D

wir wollen die anderen wörter jetzt nicht benachteiligen.. also zählt einfach euer ABSULUTES lieblingswort und einige andere schöne wörter auf. liebe grüße susann

...zur Frage

Leerzeichen bei ... als Sprachpause?

Hallo!

Wenn man ... verwendet als Pause zum Sprechen in einem Text, wie wird dann das Leerzeichen gesetzt?

Ich war…nicht schnell genug.

oder

Ich war … nicht schnell genug.

Bin unschlüssig, als was das gilt, schließlich lasse ich weder ganze Wörter weg, unterbreche den Satz, aber ich lass auch keine Buchstaben weg, unterbreche ein Wort.

Grüße

...zur Frage

Python wörter zählen aus importierten Text?

Hey, wie zähle ich in Python in einem Text die vorhandenen wörter?

Die Datei beispiel.txt besteht aus einem großen englischen Text, allerdings zählt der mit diesem Code nicht die wörter.. wo liegt genau der Fehler?

Bin noch anfänger, also verstehe noch keine komplizierten Codes :P

with open('beispiel.txt', 'r') as file:
    for line in file:
        woerter= line.split()
        
count = 0
for wort in woerter:
    if wort == 'a':
        wort = wort.lower()
        count += 1
        
    
print("Anzahl des Wortes 'a' sind", count)

...zur Frage

Zu große Wort abstände in Libre office?

Ich mache hier eine Hausauf gabe für die schule habe den Text in 3 Spalten geteilt und in einen blocksatz umgewandelt jetzt habe ich sehr große Leerzeichen zwischen den Worten wie bekomme ich diese weg ? Wenn ich sie lösche gehen die wörter ganz aneinander?

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen