Gorafisation générale

[Nefertum]

Message précédent :
Word ne sait pas faire. Excel doit pouvoir.
Mais ça doit pas être très lisible.
Comme un dico sans définitions

[fanche]

Pourquoi ne pas plutôt faire subir tel traitement à Musso ou autres ?

Vu le nombre de mots utilisés chez Musso tu pourrais quasi le faire de tête, nan là ce qui fascine c'est le côté algorithmique de l'exercice

[nexus4]

Il me semble bien qu'il y a une macro pour compter les occurrences des mots dans Word.

[nexus4]

Ah ben j'ai demandé à ChatGPT, il a répondu en 2s :

Sub CompterOccurrencesDesMots()
Dim docText As String
Dim wordArray() As String
Dim wordDict As Object
Dim word As String
Dim i As Long
Dim cleanedWord As String
Dim result As String

' Créer un dictionnaire
Set wordDict = CreateObject("Scripting.Dictionary")

' Extraire le texte du document
docText = ActiveDocument.Content.Text

' Nettoyer le texte (remplacer ponctuation par espace)
docText = Replace(docText, ".", " ")
docText = Replace(docText, ",", " ")
docText = Replace(docText, ";", " ")
docText = Replace(docText, ":", " ")
docText = Replace(docText, "!", " ")
docText = Replace(docText, "?", " ")
docText = Replace(docText, vbCr, " ")
docText = Replace(docText, vbLf, " ")

' Séparer en mots
wordArray = Split(docText)

' Compter les mots
For i = LBound(wordArray) To UBound(wordArray)
cleanedWord = Trim(LCase(wordArray(i)))
If cleanedWord <> "" Then
If wordDict.exists(cleanedWord) Then
wordDict(cleanedWord) = wordDict(cleanedWord) + 1
Else
wordDict.Add cleanedWord, 1
End If
End If
Next i

' Afficher les résultats
result = "Occurrences des mots dans le document:" & vbCrLf & vbCrLf
For Each word In wordDict.Keys
result = result & word & ": " & wordDict(word) & vbCrLf
Next word

MsgBox result, vbInformation, "Analyse des mots"
End Sub

RESULTAT :
Une boîte de dialogue s’affichera avec la liste des mots et leur nombre d’occurrences dans le document.

Tu veux que je t’aide à adapter cette macro pour ignorer certains mots (comme les articles ou prépositions), ou pour exporter les résultats dans un tableau Word ou Excel ?

Mais bien avant ChatGPT elle existait. Celle-ci ou une similaire.
Ce dont je ne me souviens pas c'est pourquoi j'en ai eu besoin un jour.

[BDbilos]

Règle nº1 : ne jamais confier la photocopieuse à Gaston !

"Un oubli fâcheux permet d'apprendre de nouveaux détails sur le sommet en Alaska organisé entre Donald Trump et Vladimir Poutine a été revu et allégé au dernier moment. Ce document de huit pages a été découvert fortuitement par des clients de l'hôtel quatre étoiles Captain Cook, dans l'une des imprimantes publiques de l'établissement. La radio publique NPR a ensuite publié des photographies du dossier. "
https://www.franceinfo.fr/monde/europe/ ... or=CS2-765

[Funkyyy]

Pourquoi ne pas plutôt faire subir tel traitement à Musso ou autres ?

Vu le nombre de mots utilisés chez Musso tu pourrais quasi le faire de tête, nan là ce qui fascine c'est le côté algorithmique de l'exercice

[Julien Despreux]

Ah ben j'ai demandé à ChatGPT, il a répondu en 2s :

Sub CompterOccurrencesDesMots()
Dim docText As String
Dim wordArray() As String
Dim wordDict As Object
Dim word As String
Dim i As Long
Dim cleanedWord As String
Dim result As String

' Créer un dictionnaire
Set wordDict = CreateObject("Scripting.Dictionary")

' Extraire le texte du document
docText = ActiveDocument.Content.Text

' Nettoyer le texte (remplacer ponctuation par espace)
docText = Replace(docText, ".", " ")
docText = Replace(docText, ",", " ")
docText = Replace(docText, ";", " ")
docText = Replace(docText, ":", " ")
docText = Replace(docText, "!", " ")
docText = Replace(docText, "?", " ")
docText = Replace(docText, vbCr, " ")
docText = Replace(docText, vbLf, " ")

' Séparer en mots
wordArray = Split(docText)

' Compter les mots
For i = LBound(wordArray) To UBound(wordArray)
cleanedWord = Trim(LCase(wordArray(i)))
If cleanedWord <> "" Then
If wordDict.exists(cleanedWord) Then
wordDict(cleanedWord) = wordDict(cleanedWord) + 1
Else
wordDict.Add cleanedWord, 1
End If
End If
Next i

' Afficher les résultats
result = "Occurrences des mots dans le document:" & vbCrLf & vbCrLf
For Each word In wordDict.Keys
result = result & word & ": " & wordDict(word) & vbCrLf
Next word

MsgBox result, vbInformation, "Analyse des mots"
End Sub

RESULTAT :
Une boîte de dialogue s’affichera avec la liste des mots et leur nombre d’occurrences dans le document.

Tu veux que je t’aide à adapter cette macro pour ignorer certains mots (comme les articles ou prépositions), ou pour exporter les résultats dans un tableau Word ou Excel ?

Mais bien avant ChatGPT elle existait. Celle-ci ou une similaire.
Ce dont je ne me souviens pas c'est pourquoi j'en ai eu besoin un jour.

Par exemple, si tu veux créer un glossaire des termes élaborés ou techniques utilisés dans un article ou rapport professionnel de longueur standard, tu les visualises et sélectionnes rapidement pour créer l'annexe correspondante.

Du coup, tu n'as plus qu'à rédiger ensuite les définitions. Voilà ...

[han_solo]

Le titre absurde du jour --- >
Alors que l’Europe l’a imposé, l’USB-C pourrait disparaître de nos smartphones
https://www.lesnumeriques.com/hub-usb-c ... 41226.html

En lisant l'article, on comprend qu'il est question de la recharge sans fil qui ne pourra pas remplacer la recharge classique en l'état des connaissances actuelles.
Et ce n'est pas la rumeur d'un futur iPhone sans connectique qui permet d'appuyer réellement le titre de l'article...

[nexus4]

Gabriel Attal

Dans une publication sur X, il met aussi sur la table "le passage en noir et blanc" des vidéos au-delà de 30 minutes de visionnage. "Moins de couleurs, moins de dopamine, moins d'addictions", justifie le député EPR des Hauts-de-Seine

France info : https://www.franceinfo.fr/internet/rese ... 47255.html
Le tweet : https://x.com/GabrielAttal

[sergent latrique]

N'oublions pas la création d'une taxe sur les plateformes, il faut toujours penser à une taxe. Je suggère un nouveau numéro vert aussi.

[nexus4]

Y a Libération qui râle...
Vraie sauce, en vente, mais Libé dit que ca nuit à leur image.
https://x.com/EnlyseeBoutique/status/19 ... 0761245854

[fanche]

[darkbreizh]

N'oublions pas la création d'une taxe sur les plateformes, il faut toujours penser à une taxe. Je suggère un nouveau numéro vert aussi.

Je préconise la tenue d’un grenelle sur le sujet avant toute chose

[fanche]

N'oublions pas la création d'une taxe sur les plateformes, il faut toujours penser à une taxe. Je suggère un nouveau numéro vert aussi.

Je préconise la tenue d’un grenelle sur le sujet avant toute chose

Après le séminaire pour renforcer la cohésion d'équipe

[Thierry_2]

Gabriel Attal

Dans une publication sur X, il met aussi sur la table "le passage en noir et blanc" des vidéos au-delà de 30 minutes de visionnage. "Moins de couleurs, moins de dopamine, moins d'addictions", justifie le député EPR des Hauts-de-Seine

France info : https://www.franceinfo.fr/internet/rese ... 47255.html
Le tweet : https://x.com/GabrielAttal

et pourquoi ne pas s'inspirer de Trump et créer un téléphone intelligent: le macrophone, ça en jette, non ?

[rahoul]

et pourquoi ne pas s'inspirer de Trump et créer un téléphone intelligent: le macrophone, ça en jette, non ?

N'en jetez plus.

[Anianka]

Gabriel Attal

Dans une publication sur X, il met aussi sur la table "le passage en noir et blanc" des vidéos au-delà de 30 minutes de visionnage. "Moins de couleurs, moins de dopamine, moins d'addictions", justifie le député EPR des Hauts-de-Seine

France info : https://www.franceinfo.fr/internet/rese ... 47255.html
Le tweet : https://x.com/GabrielAttal

et pourquoi ne pas s'inspirer de Trump et créer un téléphone intelligent: le macrophone, ça en jette, non ?

ils feraient mieux de lutter contre la cocaïne à l'assemblée et au sénat mais ils ont refusé les dépistages

[Mirdhynn]

ils feraient mieux de lutter contre la cocaïne à l'assemblée et au sénat mais ils ont refusé les dépistages

Tu m'étonnes
Mais tu comprends pas, c'est "pour tenir", quand on voit plus le cuir des sièges que les visages dans l'hémicycle, on se demande bien contre quoi ils doivent tenir (sans doute contre la tentation d'aller s'en jeter une dizaine au bar de l'assemblée)

[Anianka]

le ministre des Transports turc flashé à plus de 220 km/h : « Je voulais vérifier l’état de l’autoroute »
après on dit que les politiques ne sont pas impliqués dans leur boulot !
https://www.auto-moto.com/insolite/un-m ... oute-63199

[han_solo]

François Bayrou n'a pas contacté les représentants de l'opposition cet été "car ils étaient en vacances" (sic)

[Julien Despreux]

Deux responsables politiques de l'opposition ont formellement démenti.

Qui faut-il croire ?