2 nopeaa eräerää Lisää hakasulkeet Word-asiakirjan muistilukuihin

Tämän päivän viestissä näytämme mielellämme kaksi nopeaa tapaa lisätä hakasulkeita muistiinpanojen numeroihin Word-asiakirjassasi.

Aina kun laadimme pitkää asiakirjaa, lisäämme todennäköisesti alaviitteitä ja loppuviitteitä. Tiedämme, että äänenumeromuodolle on vaihtoehtoja. Sisäänrakennettua hakasulkeilla varustettua numerotyyliä ei kuitenkaan ole. Tulevissa teksteissä keskustelemme kahdesta ratkaisusta tällaisen ongelman ratkaisemiseksi.

Tapa 1: Käytä Etsi ja korvaa -toimintoa

1. Aloita napsauttamalla kohdeasiakirjan ”Etusivu”-välilehteä.
2. Napsauta sitten ”Korvaa” -komentoa ”Editointi” -ryhmässä avataksesi “Etsi ja korvaa” -valintaikkunan.
3. Jos työskentelet alaviitteiden kanssa, kirjoita ”Etsi mitä” -tekstiruutuun ”^ f”.
4. Kirjoita "[^ &]" Korvaa-tekstikenttään.
5. Napsauta sitten “Korvaa kaikki”.
6. Seuraavaksi näet, että kaikki alaviitteiden numerot ovat hakasulkeissa. Napsauta "OK" sulkeaksesi viestiruudun.

Lisäksi, jos haluat lisätä hakasulkeita loppuviitteisiin, korvaa "Etsi mitä" -tekstikentissä "^ f" sanalla "^ e".

Tapa 2: Suorita Word-makro

1. Ensinnäkin, paina Wordissa Alt+F11 käynnistääksesi VBA-editorin.
2. Napsauta seuraavaksi ”Normaali” ja sitten ”Lisää” -välilehteä.
3. Valitse avattavasta valikosta Moduuli.
4. Kaksoisnapsauta sitten juuri lisättyä moduulia avataksesi muokkausalueen oikealla puolella.
5. Ja liitä palava makro sinne:

Sub AddBracketForFootnoteAndEndnote()
  Application.ScreenUpdating = False
 
  Dim objRange As Range
 
  With ActiveDocument

    '  add bracket for footnotes. 
    If ActiveDocument.Footnotes.Count > 0 Then
      Call UpdateFootnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdFootnotesStory Then
          Call UpdateFootnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All footnotes have been added brackets.")
    Else
      MsgBox ("There is no footnote in this document")
    End If

    '  add bracket for footnotes. 
    If ActiveDocument.Endnotes.Count > 0 Then
      Call UpdateEndnoteRange(.Range)
      For Each objRange In .StoryRanges
        If objRange.StoryType = wdEndnotesStory Then
          Call UpdateEndnoteRange(objRange): Exit For
        End If
      Next
      MsgBox ("All endnotes have been added brackets.")
    Else
      MsgBox ("There is no endnote in this document")
    End If
  End With
 
  Application.ScreenUpdating = True
End Sub

Sub UpdateFootnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^f"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

Sub UpdateEndnoteRange(objRange As Range)
  With objRange.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "^e"
    .Replacement.Text = "[^&]"
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = True
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    .Execute Replace:=wdReplaceAll
  End With
End Sub

6. Aseta nyt lisäysosoitin ensimmäisen makron sisään ja napsauta "Suorita".
7. Sitten ensin on viestiruutu, jossa sanotaan, että kaikkiin alaviitteiden numeroihin on lisätty hakasulkeita.
8. Seuraavaksi on toinen, joka sanoo muunnoksen olevan täydellinen kaikissa loppuviitteiden numeroissa.

Tässä on tulos:

Estä asiakirjahäviöltä

Koska data on yhtä arvokasta kuin mitä olemme tallentaneet, meillä ei ole varaa ottaa riskejä. Siksi olisi viisasta varmuuskopioida tärkeät tiedostot ennen minkään liikkeen tekemistä, mikä saattaa vahingoittaa niitä, ellet halua saada vaurioitunut asiak.

Tekijän esittely:

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