Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es poden convertir comentaris a notes a peu de pàgina o notes finals en Microsoft Word?

Suposant que hi ha diversos comentaris al document de Word, com podeu convertir tots aquests comentaris a notes al peu o a la nota al final? Aquest article proporciona mètodes VBA per aconseguir-ho.

Converteix els comentaris a les notes al peu oa les notes al final amb codi VBA


Converteix els comentaris a les notes al peu oa les notes al final amb codi VBA

Els codis VBA a continuació poden ajudar-vos a convertir ràpidament tots els comentaris al document actual a les notes al peu oa les notes finals. Feu el següent.

1. Obriu el document que conté comentaris que converteu a notes al peu o al final, premeu el botó Alt + F11 claus per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòdul. A continuació, copieu el codi VBA per sota de la finestra del mòdul.

Codi VBA: converteix els comentaris a les notes a peu de pàgina:

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Codi VBA: converteix comentaris a notes finals:

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3. Premeu el botó F5 clau per executar el codi.

A continuació, tots els comentaris del document actual es converteixen a notes al peu o a les notes al final d'acord amb el codi VBA que heu aplicat.


Articles relacionats:



Kutools per a la paraula

Més de 100 Advanced Functions per Word 2003, 2007, 2010, 2013, 2016 i 2019

shot-kutools-700-225-kte

Més funcions | Descàrrega gratuita | Només $ 39.00 per centenars de funcions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.