Nettoyage des boites aux lettres (MP)
-
- Messages : 3331
- Enregistré le : 31 mars 2013, 20:38
- Localisation : France
- Contact :
Nettoyage des boites aux lettres (MP)
Voici la fin d'année
le moment de purger vos boites aux lettres de la somme de MP que chacun emmagasine
Si vous désirez les conserver voici un moyen
Exporter les messages
En bas de chaque page de la boite de "réception" de vos MP ou de "éléments envoyés"
vous avez un choix "exporter ce dossier" , vous pouvez choisir dans l'onglet "exporter en XML"
1 exécuter cette fonction, en cliquant sur "aller"
Selon votre PC , l opération va soit ouvrir une nouvelle fenêtre avec le résultat
Soit vous demander de l'enregistrer dans un fichier bloc note
Dans un cas comme l'autre copier ensuit l'intégralité du code résultat
Mettre le contenu des MP, dans un fichier Word
2 Coller dans un fichier Word résultat
recommencer l'opération 1, page par page de vos MP et copier dans le Word a la suite
Sauvegarder votre document Word
Conversion en un format lisible
Comme vous pouvez le constater le résultats n'est pas très lisible
Il faut donc convertir tout cela en un texte plus clair.
Pour convertir les codes XML en quelque chose de compréhensible, il vous faut faire des REMPLACER PAR pour mettre une ligne de ----- entre chaque MP, sauter des lignes, mettre des blancs devant les citations... Ca va être long ...
Pour ne pas le refaire l'année prochaine, vous pouvez enregistrer toutes ces manipulations dans une MACRO Word...
Mais nous avons créer cette macro pour vous, dans le post ci dessous.
Donc vous allez pouvoir la copier et l'utiliser dans votre Word
Copier cette macro dans Word
2 Ouvrez un word, et cherchez ou est la fonction MACRO suivant votre version WORD
Généralement elle est dans l'onglet DEVELOPPEUR Mais cet onglet n'est pas visible dans l'installation standard.
Pour le rendre visible, aller dans FICHIERS / OPTION / PERSONNALISER LE RUBAN et dans le deuxième tableau a droite cocher la case DEVELOPPEUR, faire OK
3 Dans word , l onglet DEVELLOPEUR apparaît , cliquer sur CREER UNE MACRO, donner un titre comme CONVERTISSEUR , Cliquer sur OK, puis ARRETER L ENREGISTREMENT , votre Macro est créée, il faut y copier le code fourni
4 Pour cela copier le code indiqué dans le post suivant
Dans WORD cliquer sur MACRO, choisir votre Macro, cliquer sur MODIFIER, effacer les 4 lignes de code, et coller le code copier du forum a la place, cliquer sur le bouton fermé X de la page macro , puis sur le x de la page Visual Basic
Convertisez votre texte
Vous avez copier votre texte dans le word (voir 1 et 2)
Ouvrir ce document
5 Dans l'onglet DEVELOPPEUR, Cliquer sur MACRO, choisissez votre Macro CONVERTISSEUR et cliquer sur EXECUTER
Si vous avez tout suivi, le texte est modifié
6 sauvegarder le fichier Word ainsi traduit
Supprimer les MP dans votre boite aux lettres
Ensuite vous pouvez faire le ménage dans votre boite aux lettres
7 Forum : dans MP Cocher l'ensemble des messages a supprimer (plus simple tout supprimer en choisissant en bas a gauche TOUT COCHER ) Puis Fonction "Supprimer La sélection" , et "Aller"
Faire ceci et pour BOITE DE RECEPTION et pour ELEMENTS ENVOYES
le moment de purger vos boites aux lettres de la somme de MP que chacun emmagasine
Si vous désirez les conserver voici un moyen
Exporter les messages
En bas de chaque page de la boite de "réception" de vos MP ou de "éléments envoyés"
vous avez un choix "exporter ce dossier" , vous pouvez choisir dans l'onglet "exporter en XML"
1 exécuter cette fonction, en cliquant sur "aller"
Selon votre PC , l opération va soit ouvrir une nouvelle fenêtre avec le résultat
Soit vous demander de l'enregistrer dans un fichier bloc note
Dans un cas comme l'autre copier ensuit l'intégralité du code résultat
Mettre le contenu des MP, dans un fichier Word
2 Coller dans un fichier Word résultat
recommencer l'opération 1, page par page de vos MP et copier dans le Word a la suite
Sauvegarder votre document Word
Conversion en un format lisible
Comme vous pouvez le constater le résultats n'est pas très lisible
Il faut donc convertir tout cela en un texte plus clair.
Pour convertir les codes XML en quelque chose de compréhensible, il vous faut faire des REMPLACER PAR pour mettre une ligne de ----- entre chaque MP, sauter des lignes, mettre des blancs devant les citations... Ca va être long ...
Pour ne pas le refaire l'année prochaine, vous pouvez enregistrer toutes ces manipulations dans une MACRO Word...
Mais nous avons créer cette macro pour vous, dans le post ci dessous.
Donc vous allez pouvoir la copier et l'utiliser dans votre Word
Copier cette macro dans Word
2 Ouvrez un word, et cherchez ou est la fonction MACRO suivant votre version WORD
Généralement elle est dans l'onglet DEVELOPPEUR Mais cet onglet n'est pas visible dans l'installation standard.
Pour le rendre visible, aller dans FICHIERS / OPTION / PERSONNALISER LE RUBAN et dans le deuxième tableau a droite cocher la case DEVELOPPEUR, faire OK
3 Dans word , l onglet DEVELLOPEUR apparaît , cliquer sur CREER UNE MACRO, donner un titre comme CONVERTISSEUR , Cliquer sur OK, puis ARRETER L ENREGISTREMENT , votre Macro est créée, il faut y copier le code fourni
4 Pour cela copier le code indiqué dans le post suivant
Dans WORD cliquer sur MACRO, choisir votre Macro, cliquer sur MODIFIER, effacer les 4 lignes de code, et coller le code copier du forum a la place, cliquer sur le bouton fermé X de la page macro , puis sur le x de la page Visual Basic
Convertisez votre texte
Vous avez copier votre texte dans le word (voir 1 et 2)
Ouvrir ce document
5 Dans l'onglet DEVELOPPEUR, Cliquer sur MACRO, choisissez votre Macro CONVERTISSEUR et cliquer sur EXECUTER
Si vous avez tout suivi, le texte est modifié
6 sauvegarder le fichier Word ainsi traduit
Supprimer les MP dans votre boite aux lettres
Ensuite vous pouvez faire le ménage dans votre boite aux lettres
7 Forum : dans MP Cocher l'ensemble des messages a supprimer (plus simple tout supprimer en choisissant en bas a gauche TOUT COCHER ) Puis Fonction "Supprimer La sélection" , et "Aller"
Faire ceci et pour BOITE DE RECEPTION et pour ELEMENTS ENVOYES
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10
-
- Messages : 3331
- Enregistré le : 31 mars 2013, 20:38
- Localisation : France
- Contact :
detail de la macro word permettant de traduire les codes XML
Sub Convertisseur()
'
'
' ConversionXML Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = True
End With
With Selection.Find
.Text = "<subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=" "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 4
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</date><message>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
ActiveWindow.ActivePane.SmallScroll Down:=23
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</message></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb><privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<privmsg>"
.Replacement.Text = _
"^l__________________________________________________________________________"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "Sujet : "
.Replacement.Text = "^lSujet : "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[/quote]"
.Replacement.Text = "[/quote]^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[quote"
.Replacement.Text = "^l [quote"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[quote"
.Replacement.Text = "^l [quote"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
'
'
' ConversionXML Macro
'
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = True
End With
With Selection.Find
.Text = "<subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</subject>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=" "
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "De :<date>"
.Replacement.Text = "^lEnvoyé :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
ActiveWindow.ActivePane.VerticalPercentScrolled = 4
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<sender>"
.Replacement.Text = "De :"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</date><message>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
ActiveWindow.ActivePane.VerticalPercentScrolled = 0
ActiveWindow.ActivePane.SmallScroll Down:=23
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "</message></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb></privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<phpbb><privmsg>"
.Replacement.Text = "^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "<privmsg>"
.Replacement.Text = _
"^l__________________________________________________________________________"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "Sujet : "
.Replacement.Text = "^lSujet : "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[/quote]"
.Replacement.Text = "[/quote]^l"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[quote"
.Replacement.Text = "^l [quote"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Size = 12
.Bold = False
.Italic = False
End With
With Selection.Find
.Text = "[quote"
.Replacement.Text = "^l [quote"
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10
- christine
- Membre associatif
- Messages : 16905
- Enregistré le : 28 avr. 2013, 22:08
- Localisation : Haute Normandie, proche St Valéry en caux (76)
Re: Nettoyage des boites aux lettres (MP)
Voilà qui est fait, merci pour le mode d'emploi
► http://www.forum-bassin.com/Accueil/For ... Bassin.pdf
Bassin bâché de 120m3 commencé en 2011, filtration maison. Membre du FCKC ....
Les bétises des uns, font l'enseignement des autres...
Bassin bâché de 120m3 commencé en 2011, filtration maison. Membre du FCKC ....
Les bétises des uns, font l'enseignement des autres...
-
- Messages : 3331
- Enregistré le : 31 mars 2013, 20:38
- Localisation : France
- Contact :
FAQ : Notifications de MP mais aucun MP n'est marqué non lu
Parce que votre boite de réception a atteint le nombre maximum de MP permis.l'icone "messages privés" me signale des MP en attente de lecture, mais a ouverture de la messagerie, il n'y a pas de nouveaux messages. Pourquoi ?
En fait vous avez un petit message en dessous de BOITE DE RECEPTION
"Vous avez x messages en attente"
Il vous faut supprimer des MP et faire de la place
Si vous voulez les conserver vous avez ci dessous une procédure pour les sauvegarder avant de les effacer
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10
-
- Membre associatif
- Messages : 2246
- Enregistré le : 22 mai 2014, 19:20
- Localisation : Haute Normandie - Yvetot
Re: Nettoyage des boites aux lettres (MP)
Bon certes ma boite MP n'ai pas pleine, mais j'arrive pas à sauvegarder les messages comme indiqué ci-dessous
Je dois vraiment être une buse .......
Il serait possible d'être plus précis, ou bien j'ai raté une étape Je vais pas cacher que j'aime bien les photos ou copies d'écrans Les images valent mieux que les grands discours
Je dois vraiment être une buse .......
Il serait possible d'être plus précis, ou bien j'ai raté une étape Je vais pas cacher que j'aime bien les photos ou copies d'écrans Les images valent mieux que les grands discours
14 Koï (s) 2 Esturgeons
Bassin: 42m3, Pompe 50m3 + 20 m3, FAT Inazuma, Filtre SHARK 150/80 + Pompe HIBLOW HP60 et HP 80 + 1 UV 75W + 2UV x50W Immergé, Skimmer,
Membre FCKC
Bassin: 42m3, Pompe 50m3 + 20 m3, FAT Inazuma, Filtre SHARK 150/80 + Pompe HIBLOW HP60 et HP 80 + 1 UV 75W + 2UV x50W Immergé, Skimmer,
Membre FCKC
-
- Messages : 3331
- Enregistré le : 31 mars 2013, 20:38
- Localisation : France
- Contact :
Re: Nettoyage des boites aux lettres (MP)
J ai un peu rewrité le texte d explications pour être plus clair
Pour la macro... ma foi .. je trouve cela plus clair que les programmes d Arduno .. c'est selon chacun
Pour créer la macro cela dépend de votre Word Il faut chercher dans l'aide CREER UNE MACRO puis suivre le lien . Une fois l'avoir créer et l'avoir nommé copier-coller le code, c'est tout
Si soucis, suivant votre version de WORD (si j'ai celle ci quelque part) je peux vous faire un WORD avec la MACRO créer au delà je ne peux pas
Pour la macro... ma foi .. je trouve cela plus clair que les programmes d Arduno .. c'est selon chacun
Pour créer la macro cela dépend de votre Word Il faut chercher dans l'aide CREER UNE MACRO puis suivre le lien . Une fois l'avoir créer et l'avoir nommé copier-coller le code, c'est tout
Si soucis, suivant votre version de WORD (si j'ai celle ci quelque part) je peux vous faire un WORD avec la MACRO créer au delà je ne peux pas
MARS est le pseudo collectif de l'équipe en charge de la modération protection du forum. Il ne correspond pas une personne physique, conformément à la politique de non personnalisation du site.viewtopic.php?f=5&t=10
- Yves83
- Membre associatif
- Messages : 8937
- Enregistré le : 29 avr. 2013, 20:59
- Localisation : Fox Amphoux.....83 Var
Re: Nettoyage des boites aux lettres (MP)
Pendant des années, j'ai sauvegardé tous les messages.......
Et je me suis aperçu que je n'ai pratiquement jamais ouvert ces fichiers!!!!!!
Les rares fois ou j'ai voulu rechercher un truc, je ne l'ai pas retrouvé.....
Alors, j'ai tout viré et redemandé sur le forum...... J'ai récupéré ce que je recherchais...
Maintenant, quand la boite arrive proche du plein.....je vire systématiquement tous les anciens messages!!!!!......
Voila ce que je fais de tous vos messages!!!!.....
Bien sur, ceux qui sont très importants, comme par exemple tous ceux qui ont concernés mes déboires avec le revendeur de mon FAT sont en lieux sur........Faut pas déconner quand même, si un jour j'en avais besoin..............
Et je me suis aperçu que je n'ai pratiquement jamais ouvert ces fichiers!!!!!!
Les rares fois ou j'ai voulu rechercher un truc, je ne l'ai pas retrouvé.....
Alors, j'ai tout viré et redemandé sur le forum...... J'ai récupéré ce que je recherchais...
Maintenant, quand la boite arrive proche du plein.....je vire systématiquement tous les anciens messages!!!!!......
Voila ce que je fais de tous vos messages!!!!.....
Bien sur, ceux qui sont très importants, comme par exemple tous ceux qui ont concernés mes déboires avec le revendeur de mon FAT sont en lieux sur........Faut pas déconner quand même, si un jour j'en avais besoin..............