Kuinka muuntaa kommentit alaviitteiksi tai loppuviitteiksi Microsoft Wordissa?
Kirjailija: Siluvia Viimeksi muokattu: 2024-08-29
Olettaen, että Word-asiakirjassasi on useita kommentteja, kuinka voit muuntaa kaikki nämä kommentit alaviitteiksi tai loppuviitteiksi samanaikaisesti? Tämä artikkeli sisältää VBA-menetelmiä sen saavuttamiseksi.
Muunna kommentit alaviitteiksi tai loppuviitteiksi VBA-koodilla
Muunna kommentit alaviitteiksi tai loppuviitteiksi VBA-koodilla
Alla olevat VBA-koodit voivat auttaa sinua muuttamaan kaikki nykyisen asiakirjan kommentit nopeasti ala- tai loppuviitteiksi. Toimi seuraavasti.
1. Avaa asiakirja sisältää kommentteja, jotka muunnetaan alaviitteiksi tai loppuviitteiksi, paina -painiketta muut + F11 avaimet avaamaan Microsoft Visual Basic for Applications ikkunassa.
2. Vuonna Microsoft Visual Basic for Applications -ikkunassa liite > Moduuli. Kopioi sitten alla oleva VBA-koodi moduuliikkunaan.
VBA-koodi: Muunna kommentit alaviitteiksi:
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
VBA-koodi: Muunna kommentit loppuviiteiksi:
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. paina F5 avain koodin suorittamiseen.
Sitten kaikki nykyisen asiakirjan kommentit muunnetaan välittömästi alaviitteiksi tai loppuviitteiksi käyttämäsi VBA-koodin perusteella.
Aiheeseen liittyviä artikkeleita:
Tee enemmän lyhyemmässä ajassa tekoälyllä tehostettujen Wordin Kutools-työkalujen avulla
Kutools for Word ei ole vain joukko työkaluja - se on älykäs ratkaisu, joka on suunniteltu parantamaan tuottavuuttasi. Tekoälyohjattujen ominaisuuksien ja tärkeimpien ominaisuuksien ansiosta Kutools auttaa sinua saavuttamaan enemmän lyhyemmässä ajassa:
- Tee yhteenveto, kirjoita uudelleen, kirjoita ja käännä sisältö välittömästi.
- Oikoluku tekstiä reaaliajassa kieliopin, välimerkkien ja tyyliehdotusten avulla kirjoittaessasi.
- Muotoile ja käännä sisältöä pitäen samalla asettelun, tyylin ja rakenteen koskemattomana.
- Käännä sisältösi helposti yli 40 kielelle ja laajenna kattavuuttasi maailmanlaajuisesti.
- Saat välitöntä apua ja älykkäitä oivalluksia nykyisen asiakirjasi sisältöön perustuen.
- Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
- Poista arkaluontoiset tai luottamukselliset tiedot sekunneissa varmistaaksesi täydellisen yksityisyyden.
- Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
- Luo, tarkenna, käännä, tee yhteenveto ja suojaa asiakirjoja vaivattomasti.
- Paranna kielioppia, selkeyttä ja sävyä kirjoittaessasi reaaliajassa.
- Muotoile ja käännä sisältöä ilman asettelua tai muotoilun muutoksia.
- Kysy, kuinka suoritat tehtävän - kuten poistat osion taukoja - ja tekoäly opastaa sinua tai tekee sen puolestasi.
- Kaikki työkalut toimivat saumattomasti Wordin sisällä, aina käden ulottuvilla.
Lue lisää Kutools for Wordista Lataa nyt
Parhaat toimiston tuottavuustyökalut
Kutools for Word - Yli 100 Wordin työkalua
