Сөздік құжаттағы барлық ескертулерді түсіндірмеге және вице-нұсқаға айналдырудың 6 тәсілі

Бұл мақалада біз сізге Word құжатындағы барлық ескертулерді түсіндірмелерге және керісінше түрлендірудің 6 әдісін ұсынамыз.

Әдетте, сілтеме мәтіндері жеке беттердің төменгі жағында орналасатыны белгілі, ал соңындағы жазбалар құжаттың соңында орналасқан. Алайда, мұндай әдепкі параметрлер адамдарды үнемі қанағаттандыра алмайды. Тіпті Word-та қолданушыларға ескертулерді түпнұсқаға және керісінше түрлендіруге арналған кіріктірілген команда бар. Сондықтан, біз сізге таңдау үшін 6 әдісті шығарамыз.

1-әдіс: Барлық ескертпелерді қолмен бір құжаттағы соңғы ескертулерге айналдыру

Төмендегі ескертпелер мен ескертпелер әдетте осында қалады:

1. Бастау үшін «Сілтемелер» қойындысын басыңыз, содан кейін «Сілтемелер» тобындағы көрсеткі батырмасын басыңыз және «Сілтеме мен сілтеме» диалогтық терезесін ашыңыз.
2. Әрі қарай «Түрлендіру» батырмасын басыңыз.
3. Содан кейін «Барлық ескертулерді түсіндірмелерге түрлендіру» опциясын таңдаңыз.
4. «OK» батырмасын басыңыз.
5. Соңында, «Сілтеме мен түсіндірме» өрісін жабыңыз.

Міне әсер:

2-әдіс: Барлық ескертулерді бір құжаттағы ескертпелерге қолмен түрлендіру

Түсіндірмені түсіндірмеге айналдыру бірдей.

1. 1-әдіс бойынша 2 және 1 қадамдарды қайталаңыз.
2. Бұл жолы оның орнына «Барлық түсіндірмелерді ескертулерге түрлендіру» опциясын таңдаңыз.
3. 4-ші және 5-ші қадамдарды 1-әдіс бойынша қайталаңыз.

Келесі нәтижені тексеріңіз:

3-әдіс: VBA арқылы барлық ескертулерді бір құжаттағы соңғы ескертулерге айналдыру

1. Біріншіден, Word бағдарламасында VBA редакторын ашу үшін «Alt + F11» пернелерін басыңыз.
2. Әрі қарай «Қалыпты» батырмасын басыңыз.
3. «Кірістіру» қойындысын нұқыңыз.
4. Ашылмалы мәзірден «Модуль» таңдаңыз.
5. Содан кейін оны ашу үшін модульді екі рет басыңыз.
6. Келесі кодтарды сол жерге қойыңыз:

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. Соңында «Іске қосу» батырмасын басыңыз.

4-әдіс: VBA арқылы барлық ескертулерді бір құжаттағы ескертулерге түрлендіру

Сол сияқты, макросты орнату және іске қосу үшін 3-тәсілдегі бірдей әрекеттерді орындаңыз. Бірақ, макросты төмендегіге ауыстырыңыз:

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

5-әдіс: VBA арқылы барлық ескертулерді бірнеше құжаттардағы соңғы ескертулерге конверттеу

Егер сізге файлдар саны көп болса, бәрін алдымен бір қалтаға орналастырыңыз. Содан кейін мына макросты орнатыңыз және іске қосыңыз:

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

Бұл макросты іске қосқан кезде қалта жолын енгізу керек енгізу терезесі пайда болады. Қапшық мекен-жайының соңында «\» болуы керек екенін ұмытпаңыз.

6-әдіс: VBA арқылы пакеттік конспектілерді бірнеше құжаттардағы ескертулерге түрлендіру

Соңында, бірнеше құжаттардағы түпнұсқаларды автоматты түрде түсіндірмелерге конверттеу үшін макро:

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

Сөз проблемаларын қалай түзетуге болады

Сөз ешқандай белгісіз істен шығуы мүмкін. Сізге осындай сәттіліктің болуы сенбейтін нәрсе деп санасаңыз да, түзету үшін білікті жөндеу құралына жүгінуден басқа таңдауыңыз жоқ сыбайлас құжат.

Автордың кіріспесі:

Вера Чен - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген Excel және pdf бағдарламалық жасақтама өнімдерін жөндеу. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com