Comment exporter des commentaires d'Excel vers Word?

Pour les utilisateurs d'Excel, l'insertion de commentaires dans les cellules est une tâche courante, parfois, vous devez copier et coller ces commentaires dans un document Word dans un certain but. Bien sûr, vous pouvez copier et coller le commentaire dans Word un par un, mais c'est un travail fastidieux et chronophage. Existe-t-il un moyen d'exporter tous les commentaires d'Excel vers Word à la fois?

Exporter les commentaires de la feuille de calcul actuelle vers Word avec le code VBA

Exporter les commentaires de la feuille de calcul actuelle vers Word avec le code VBA

Malheureusement, Excel ne fournit pas la fonctionnalité permettant de copier et coller tous les commentaires dans Word à la fois. Cependant, avec le code VBA suivant, vous pouvez exporter rapidement tous les commentaires de la feuille de calcul active vers le document Word.

1. Maintenez le ALT + F11 clés pour ouvrir le Fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans le Fenêtre du module.

Code VBA: exporter les commentaires de la feuille de calcul actuelle vers Word

Sub CopyCommentsToWord()
'Update 20140325
Dim xComment As Comment
Dim wApp As Object
On Error Resume Next
Set wApp = GetObject(, "Word.Application")
If Err.Number <> 0 Then
  Err.Clear
  Set wApp = CreateObject("Word.Application")
End If
wApp.Visible = True
wApp.Documents.Add DocumentType:=0
For Each xComment In Application.ActiveSheet.Comments
    wApp.Selection.TypeText xComment.Parent.Address & vbTab & xComment.Text
    wApp.Selection.TypeParagraph
Next
Set wApp = Nothing
End Sub

3. Puis appuyez F5 clé pour exécuter ce code, et tous les commentaires de la feuille de calcul active ont été exportés vers un nouveau document Word avec l'adresse itscell. Voir la capture d'écran:

Articles Liés:

Comment insérer rapidement un commentaire dans plusieurs cellules dans Excel?

Comment changer la forme de la zone de commentaire dans Excel?

Comment changer tous les formats de commentaires dans les cellules dans Excel?

Comment changer le nom de l'auteur de tous les commentaires dans Excel ?