6 tapaa muuntaa kaikki alaviitteet loppuviitteiksi ja päinvastoin Word-asiakirjasi

Tässä artikkelissa annamme sinulle 6 tapaa muuntaa kaikki alaviitteet loppuviitteiksi ja päinvastoin Word-asiakirjassa.

Kaikille tiedetään, että alaviitteet ovat oletusarvoisesti järjestetty yksittäisten sivujen alareunaan, kun taas loppuviitteet löytyvät asiakirjan lopusta. Tällaiset oletusasetukset eivät kuitenkaan voi tyydyttää ihmisiä koko ajan. Jopa Wordissa on sisäänrakennettu komento, jolla käyttäjät voivat muuntaa alaviitteet loppuviitteiksi ja päinvastoin. Siksi tuotamme 6 menetelmää, joista voit poimia.

Tapa 1: Muunna kaikki alaviitteet loppuviitteiksi yhdessä asiakirjassa manuaalisesti

Tässä alaviitteet ja loppuviitteet yleensä pysyvät:

1. Aloita napsauttamalla "Viitteet" -välilehteä ja napsauttamalla "Alaviitteet" -ryhmän nuolipainiketta avataksesi "Alaviite ja loppuviite" -valintaikkunan.
2. Napsauta seuraavaksi Muunna-painiketta.
3. Valitse sitten Muunna kaikki alaviitteet loppuviitteiksi -vaihtoehto.
4. Napsauta “OK”.
5. Sulje lopuksi Alaviite ja loppuviite -ruutu.

Tässä on vaikutus:

Tapa 2: Muunna kaikki loppuviitteet alaviitteiksi yhdessä asiakirjassa manuaalisesti

Loppuviitteiden muuntaminen alaviitteiksi on paljolti sama.

1. Toista vaiheet 1 ja 2 menetelmässä 1.
2. Tällä kertaa valitse "Muunna kaikki loppuviitteet alaviitteiksi" -vaihtoehto.
3. Toista kuitenkin vaiheet 4 ja 5 menetelmässä 1.

Tarkista seuraava tulos:

Tapa 3: Muunna kaikki alaviitteet loppuviitteiksi yhdessä asiakirjassa VBA: n kautta

1. Ensinnäkin, paina "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta sitten “Normal”.
3. Napsauta Lisää-välilehteä.
4. Ja valitse avattavasta valikosta "Moduuli".
5. Kaksoisnapsauta sitten moduulia avataksesi sen.
6. Liitä seuraavat koodit sinne:

Sub ConvertFootnotesToEndnotes()

  If ActiveDocument.Footnotes.Count > 0 Then
    ActiveDocument.Footnotes.Convert
  Else
    MsgBox ("There is no footnote in this document")
  End If
End Sub

7. Napsauta lopuksi Suorita.

Tapa 4: Muunna kaikki loppuviitteet alaviitteiksi yhdessä asiakirjassa VBA: n kautta

Samoin noudata samoja vaiheita menetelmässä 3 makron asentamiseksi ja suorittamiseksi. Mutta korvaa makro palavalla:

Sub ConvertEndnotesToFootnotes()
 
 If ActiveDocument.Endnotes.Count > 0 Then
 ActiveDocument.Endnotes.Convert
 Else
 MsgBox ("There is no endnote in this document")
 End If
End Sub

Tapa 5: Erä muuntaa kaikki alaviitteet loppuviitteiksi useissa asiakirjoissa VBA: n kautta

Jos sinun on käsiteltävä suuri määrä tiedostoja, järjestä ne kaikki ensin yhteen kansioon. Asenna ja suorita sitten tämä makro:

Sub BatchConvertFootnotesToEndnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Footnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Tämän makron suorittaminen avaa syöttöruudun, johon sinun tulee kirjoittaa kansion polku. Ja älä unohda, että kansion osoitteen lopussa pitäisi olla ”\”.

Tapa 6: Erä muuntaa kaikki loppuviitteet alaviitteiksi useissa asiakirjoissa VBA: n kautta

Lopuksi, tässä on makro, jonka avulla useiden asiakirjojen loppuviitteet voidaan muuntaa alaviitteiksi automaattisesti:

Sub BatchConvertEndnotesToFootnotes()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.Endnotes.Convert
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub

Kuinka korjata Word-ongelmat

Sana voi epäonnistua ilman merkkiä. Vaikka saatat tuntea uskomattoman, että tällainen epäonnea löytää sinut, sinulla ei ole muuta vaihtoehtoa kuin kääntyä pätevän korjaustyökalun korjaamiseksi korruptoitunut doc.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien vaurioitunut Excel ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com