Олон Word баримтаас агуулгыг хэрхэн олж, солих вэ

Өнөөдрийн нийтлэлд бид Word програмын олон баримт бичигт агуулгыг хайж олох, солих арга замын талаар мэдээлэхдээ баяртай байна.

Ерөнхийдөө Word програмын ихэнх хэрэглэгчид уг програм хангамжийн "Олох ба солих" функцийг нэлээд сайн мэддэг. Энэ нь бидэнд баримт бичгийг бүхэлд нь багцаар нь боловсруулахад тусалдаг бөгөөд энэ нь бидэнд маш их цаг хэмнэдэг. Тэгвэл та энэ сонголтыг тодорхой хавтас доторх бүх файлууд шиг олон баримт бичигт ашиглах талаар бодож үзсэн үү?

Багц файлуудын агуулгыг хайж, солих хэрэгцээ үргэлж байдаг тул функцийг хэрэгжүүлбэл сайхан байх болно. Мөн бидний арга бол макро ашиглах явдал юм. Дэлгэрэнгүй мэдээллийг авахын тулд уншина уу.

Макро суулгах, ажиллуулах алхамууд

1. Юуны өмнө бүх файлаа нэг хавтсанд хийгээд Word програмыг нээнэ үү.
2. Дараа нь "Хөгжүүлэгч" таб дээр дарна уу.
3. Дараа нь "Visual Basic" дээр дарна уу. Эсвэл VBA засварлагчийг идэвхжүүлэхийн тулд "Alt + F11" дээр дарна уу.
4. Дараа нь “Normal” төслийг дарна уу.
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