J'ai une question : j'aimerais savoir si c'est possible par macro ou autre,
de "scanner" tous mon document word, (un peu comme le vérificateur
d'orthographe), et qu'il me trouve dans le document si il y a 2 fois la même
phrase.
et si oui, qu'il me le dit
SI c'est possible, comment faire?
--
Merci de votre aide
une ligne un titre de livre : 10 petits negres a la ligne : un autre titre, ...
C'est bien une fin de paragraphe à la fin de chaque ligne et pas une fin de ligne ? Donc la transposition en Excel est facile à faire, mais bon on en parle plus.
Donc on pourrait faire quelque chose comme :
Option Explicit Option Base 1
Sub TitreDouble() Dim Titres() As String Dim p As Paragraph Dim i As Integer Dim Message As String i = 0 For Each p In ActiveDocument.Paragraphs If Len(p.Range) > 1 Then i = i + 1 ReDim Preserve Titres(i) Titres(i) = p.Range End If Next WordBasic.Sortarray Titres For i = 2 To UBound(Titres) If Titres(i - 1) = Titres(i) Then Message = Message & i & vbTab & Titres(i) End If Next If Len(Message) = 0 Then MsgBox "Pas de doublons" Else MsgBox Message End If End Sub
-- A+
une ligne un titre de livre : 10 petits negres
a la ligne : un autre titre, ...
C'est bien une fin de paragraphe à la fin de chaque ligne et pas une
fin de ligne ?
Donc la transposition en Excel est facile à faire, mais bon on en parle
plus.
Donc on pourrait faire quelque chose comme :
Option Explicit
Option Base 1
Sub TitreDouble()
Dim Titres() As String
Dim p As Paragraph
Dim i As Integer
Dim Message As String
i = 0
For Each p In ActiveDocument.Paragraphs
If Len(p.Range) > 1 Then
i = i + 1
ReDim Preserve Titres(i)
Titres(i) = p.Range
End If
Next
WordBasic.Sortarray Titres
For i = 2 To UBound(Titres)
If Titres(i - 1) = Titres(i) Then
Message = Message & i & vbTab & Titres(i)
End If
Next
If Len(Message) = 0 Then
MsgBox "Pas de doublons"
Else
MsgBox Message
End If
End Sub
une ligne un titre de livre : 10 petits negres a la ligne : un autre titre, ...
C'est bien une fin de paragraphe à la fin de chaque ligne et pas une fin de ligne ? Donc la transposition en Excel est facile à faire, mais bon on en parle plus.
Donc on pourrait faire quelque chose comme :
Option Explicit Option Base 1
Sub TitreDouble() Dim Titres() As String Dim p As Paragraph Dim i As Integer Dim Message As String i = 0 For Each p In ActiveDocument.Paragraphs If Len(p.Range) > 1 Then i = i + 1 ReDim Preserve Titres(i) Titres(i) = p.Range End If Next WordBasic.Sortarray Titres For i = 2 To UBound(Titres) If Titres(i - 1) = Titres(i) Then Message = Message & i & vbTab & Titres(i) End If Next If Len(Message) = 0 Then MsgBox "Pas de doublons" Else MsgBox Message End If End Sub
-- A+
Anacoluthe
Bonjour !
'Geo' nous a écrit ...
WordBasic.Sortarray Titres
C'est à certains détails qu'on reconnaît l'esthète ! ;-)
A+ A~
Bonjour !
'Geo' nous a écrit ...
WordBasic.Sortarray Titres
C'est à certains détails qu'on reconnaît l'esthète ! ;-)
que veut dire ce dernier point anacoluthe??? -- Merci
Bonjour !
'Geo' nous a écrit ...
WordBasic.Sortarray Titres
C'est à certains détails qu'on reconnaît l'esthète ! ;-)
A+ A~
Anacoluthe
Bonjour !
'squeepy' nous a écrit ...
que veut dire ce dernier point anacoluthe???
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri d'un tableau. WordBasic n'est pratiquement plus utilisé... ... sauf par des petits malins comme Geo qui savent en conserver les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe « Après l'esprit de discernement, ce qu'il y a au monde de plus rare, ce sont les diamants et les perles. » - Jean de La BRUYÈRE
Bonjour !
'squeepy' nous a écrit ...
que veut dire ce dernier point anacoluthe???
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri
d'un tableau. WordBasic n'est pratiquement plus utilisé...
... sauf par des petits malins comme Geo qui savent en conserver
les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe
« Après l'esprit de discernement, ce qu'il y a au monde
de plus rare, ce sont les diamants et les perles. »
- Jean de La BRUYÈRE
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri d'un tableau. WordBasic n'est pratiquement plus utilisé... ... sauf par des petits malins comme Geo qui savent en conserver les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe « Après l'esprit de discernement, ce qu'il y a au monde de plus rare, ce sont les diamants et les perles. » - Jean de La BRUYÈRE
squeepy
ca serait fort sympatrique, j'allais dire merci, j'attendais d'essayer demain pour voir si tout marche bien -- Merci de votre aide
Bonjour !
'squeepy' nous a écrit ...
que veut dire ce dernier point anacoluthe???
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri d'un tableau. WordBasic n'est pratiquement plus utilisé... .... sauf par des petits malins comme Geo qui savent en conserver les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe « Après l'esprit de discernement, ce qu'il y a au monde de plus rare, ce sont les diamants et les perles. » - Jean de La BRUYÈRE
ca serait fort sympatrique,
j'allais dire merci, j'attendais d'essayer demain pour voir si tout marche
bien
--
Merci de votre aide
Bonjour !
'squeepy' nous a écrit ...
que veut dire ce dernier point anacoluthe???
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri
d'un tableau. WordBasic n'est pratiquement plus utilisé...
.... sauf par des petits malins comme Geo qui savent en conserver
les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe
« Après l'esprit de discernement, ce qu'il y a au monde
de plus rare, ce sont les diamants et les perles. »
- Jean de La BRUYÈRE
ca serait fort sympatrique, j'allais dire merci, j'attendais d'essayer demain pour voir si tout marche bien -- Merci de votre aide
Bonjour !
'squeepy' nous a écrit ...
que veut dire ce dernier point anacoluthe???
Ne serait-il pas plus sympa de répondre à Geo et sa macro ?? :-s
La macro de Geo utilise une ancienne fonction WordBasic de tri d'un tableau. WordBasic n'est pratiquement plus utilisé... .... sauf par des petits malins comme Geo qui savent en conserver les perles. La remarque s'adressait à Geo et aux connaisseurs...
Anacoluthe « Après l'esprit de discernement, ce qu'il y a au monde de plus rare, ce sont les diamants et les perles. » - Jean de La BRUYÈRE
