Бірнеше Word құжаттарындағы мазмұнды қалай табуға және ауыстыруға болады

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

Жалпы алғанда, Word пайдаланушыларының көпшілігі бағдарламалық жасақтамадағы «Табу және ауыстыру» мүмкіндігімен жақсы таныс. Бұл бізге бүкіл құжат бойынша топтық процесті жүргізуге көмектеседі, бұл бізге көп уақытты үнемдейді. Сонда сіз бұл опцияны белгілі бір қалтадағы барлық файлдар сияқты көп құжатты файлдарда пайдалану туралы ойладыңыз ба?

Файлдар бумасындағы мазмұнды іздеу және ауыстыру әрқашан қажет болғандықтан, функцияны жүзеге асырған дұрыс болар еді. Ал біздің жолымыз макросты пайдалану. Қосымша мәліметтер алу үшін оқыңыз.

Макросты орнату және іске қосу қадамдары

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

Sub FindAndReplaceInFolder()
  Dim objDoc As Document
  Dim strFile As String
  Dim strFolder As String
  Dim strFindText As String
  Dim strReplaceText As String
 
  '  Pop up input boxes for user to enter folder path, the finding and replacing texts.
  strFolder = InputBox("Enter folder path here:")
  strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")
 
  '  Open each file in the folder to search and replace texts. Save and close the file after the action.
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
    With objDoc
      With Selection
        .HomeKey Unit:=wdStory
        With Selection.Find
          .text = strFindText
          .Replacement.text = strReplaceText
          .Forward = True
          .Wrap = wdFindContinue
          .Format = False
          .MatchCase = False
          .MatchWholeWord = False
          .MatchWildcards = False
          .MatchSoundsLike = False
          .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
      End With
      objDoc.Save
      objDoc.Close
      strFile = Dir()
    End With
  Wend
End Sub

8. Соңында «Іске қосу» түймесін басыңыз.
9. Енді кіріс өрісі пайда болады. Құжаттарды сақтайтын қалта жолын енгізіңіз.
10. Содан кейін «OK» түймесін басыңыз және екінші жолақ пайда болады. Табғыңыз келетін мәтіндерді енгізіңіз.
11. Ауыстырылатын мәтіндерді енгізетін үшінші енгізу жолағын ашу үшін «OK» түймесін басуды жалғастырыңыз және сол жерде «OK» түймесін басыңыз. Макрос барлық мазмұнды автоматты түрде ауыстырады және өзгертуді сақтайды.

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

Макросқа түймені қалай тағайындауға болатынына келетін болсақ, сіз мына мақаланы оқи аласыз: Өзіңіздің сөзіңізде макро және VBA көмегімен жапсырылған мәтіндердің пішімін қалай алып тастауға болады

Құнды деректерді қорғау

Word бағдарламасында қателер мен мәселелер туындауы мүмкін. Нәтижесінде құнды құжаттар бүлінуі мүмкін. кездескенде doc зақымдануы, деректерді шығарып алу үшін кәсіби қалпына келтіру құралын алған жөн.

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

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