Парақтардың нақты саны бар Word құжаттарын іздеудің 2 жылдам әдісі

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

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

Төмендегі шешімдеріміз сізге белгілі бір бет саны бар мақсатты Word құжаттарын іздеуге көмектеседі.

1-әдіс: Window Explorer-де іздеу

1. Алдымен «Бастау» түймесін басыңыз.
2. Содан кейін Windows Explorer бағдарламасын ашу үшін «Компьютер» батырмасын басыңыз. Немесе файлдарды зерттеуші белгішесі сіздің тапсырмалар тақтасында болса, оны нұқыңыз.
3. Әрі қарай дискке және барлық файлдарды сақтайтын орынға өтіңіз.
4. Енді бірінші жолдағы бос орынды тінтуірдің оң жағымен басыңыз.
5. «Түр» және «Беттерді» тексеріңіз. Егер олар көрінбейтін болса, мәзірдің төменгі жағындағы «Қосымша» батырмасын басыңыз.
6. «Мәліметтерді таңдау» өрісінде «Беттер» және «Түр» жолдарын белгілеп, «ОК» батырмасын басыңыз.
7. Содан кейін ашылмалы түймешік пайда болғанша курсорды «Түр» бағанының үстіне жылжытыңыз. Оны нұқыңыз.
8. «Microsoft Word Document» құсбелгісін қойыңыз. Тек Word құжаттарының қол жетімді екенін көре аласыз. Содан кейін нақты беттер саны бар құжатты табу үшін «Беттер» бағанын қараңыз.

2-әдіс: Word макросын іске қосыңыз

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

Sub FindWordDocumentWithSpecificPageNumber()
  Dim lPageNumber As Long
  Dim lSpecificPageNumber As Long
  Dim strDocList As String
  Dim strDocName As String
  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\")
  lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
 
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)

      If lPageNumber = lSpecificPageNumber Then
        strDocName = .ActiveDocument.FullName
        strDocList = strDocList & strDocName & vbCr 
      End If
 
      .ActiveDocument.Close
    End With
    strFile = Dir()
  wend
  Set objWordApplication = Nothing
 
  If strDocList <> "" Then
    Documents.Add Template:="Normal"
    ActiveDocument.Range.Text = strDocList
  Else
    MsgBox ("There is no match document.")
  End If
End Sub

6. Әрі қарай «Іске қосу» батырмасын басыңыз немесе «F5» батырмасын басыңыз.
7. Енді кіріс терезесі шақырылуда. Мәтін жолағына қалтаның мекен-жайын енгізіп, жолдың соңына “\” қосуды ұмытпаңыз.
8. Келесі қадамға өту үшін «OK» батырмасын басыңыз.
9. Екінші өріске мәтін өрісіне сан енгізіңіз. Сан мақсатты құжаттың жалпы бетін көрсетеді. Сол сияқты, «Жарайды» түймесін басыңыз.

Word бағдарламасында мақсатты құжаттың толық атауы көрсетілген құжат ашылады.

Сөздің күйреу жағдайын шешіңіз

Әдетте, Word - күнделікті жұмысты өңдеудің қуатты құралы. Дегенмен, қазір де, кейін де проблемалар мен қиын мәселелер туындауы мүмкін. Кейде, жағдай сіз аяқтай алатын сәл ауыр бүлінген сөз. Мұндай сценарийде сізге жұмысыңызды қалпына келтіру үшін жетілдірілген жөндеу құралы қажет болады.

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

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