Sut i drosi sylwadau i droednodiadau neu ôl-nodiadau yn Microsoft Word?

Gan dybio bod sawl sylw yn eich dogfen Word, sut allwch chi drosi'r holl sylwadau hyn yn droednodiadau neu ôl-nodiadau ar yr un pryd? Mae'r erthygl hon yn darparu dulliau VBA i'w gyflawni.

Trosi sylwadau i droednodiadau neu ôl-nodiadau gyda chod VBA

Trosi sylwadau i droednodiadau neu ôl-nodiadau gyda chod VBA

Gall y codau VBA isod eich helpu i drosi'r holl sylwadau yn y ddogfen gyfredol yn gyflym i droednodiadau neu ôl-nodiadau. Gwnewch fel a ganlyn.

1. Agorwch y ddogfen yn cynnwys sylwadau y byddwch yn eu trosi i droednodiadau neu ôl-nodiadau, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwl. Yna copïwch isod god VBA i mewn i ffenestr y Modiwl.

Cod VBA: Trosi sylwadau yn droednodiadau:

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

Cod VBA: Trosi sylwadau i ôl-nodiadau:

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. Gwasgwch y F5 allwedd i redeg y cod.

Yna mae'r holl sylwadau yn y ddogfen gyfredol yn cael eu trosi'n droednodiadau neu ôl-nodiadau ar unwaith yn seiliedig ar y cod VBA y gwnaethoch chi ei gymhwyso.