Lors de l’élaboration d’un document, il n’est pas rare d’utiliser un style de paragraphe particulier pour les notes éditoriales. Par exemple, les notes peuvent être stockées dans des paragraphes en utilisant un style appelé «Notes». À un moment donné, vous souhaiterez peut-être prendre tous les paragraphes qui utilisent le style Notes et les convertir en commentaires réels dans le document. Vous pouvez parcourir le document et effectuer la conversion manuellement, mais cela peut rapidement devenir fastidieux.

Utilisez plutôt une macro qui effectue la conversion à votre place:

Sub ConvertNotesToComments()

Dim CommentText As String     Dim MyRange As Range     Dim iPCount As Integer     Dim J As Integer

Application.ScreenUpdating = False     iPCount = ActiveDocument.Paragraphs.Count

For J = iPCount To 1 Step -1         If ActiveDocument.Paragraphs(J).Style = _           ActiveDocument.Styles("Notes") Then             Set MyRange = ActiveDocument.Paragraphs(J).Range             CommentText = MyRange.Text

'Get rid of trailing end-of-paragraph mark             CommentText = Left(CommentText, Len(CommentText) - 1)



'Move selection to end of previous paragraph             MyRange.Collapse (wdCollapseStart)

MyRange.Move Unit:=wdCharacter, Count:=-1

'The original paragraph is no longer necessary             ActiveDocument.Paragraphs(J).Range.Delete

'Create the comment at the range location             ActiveDocument.Comments.Add Range:=MyRange, _               Text:=CommentText         End If     Next J     Application.ScreenUpdating = True End Sub

La macro recule dans le document, en examinant le style de chaque paragraphe. S’il en trouve un qui utilise le style Notes, il déplace le texte du paragraphe dans la variable CommentText, puis supprime le paragraphe. Le commentaire est ensuite ajouté à la fin du paragraphe avant l’endroit où la suppression a été effectuée.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (13382) s’applique à Microsoft Word 2007, 2010, 2013, 2016, 2019 et Word dans Office 365. Vous pouvez trouver une version de cette astuce pour le ancienne interface de menu de Word ici:

link: / word-Converting_Paragraphs_to_Comments [Conversion de paragraphes en commentaires].