Word hujjatingizdan bo'limlarni ajratib olishning 2 ta tezkor usuli

Ushbu maqolada biz sizga Word hujjatingizdan boshqa bir yoki bir nechta qismlarni ajratib olishning ikkita tez va oson usulini taklif qilamiz.

Ko'pincha bir hujjatdan boshqasiga tarkibni olish uchun sodir bo'ladi. Va avvalgi maqolamizda biz hujjatdan sahifalarni qanday chiqarishni muhokama qildik. Batafsil ma'lumot uchun ushbu maqolaga murojaat qilishingiz mumkin: Word hujjatingizdan alohida sahifalarni ajratib olishning 2 ta tezkor usuli

Bugun biz sizga bo'lim bo'yicha qanday qilib ajratib olishni ko'rsatamiz.    

1-usul: Joriy qismni yangi hujjatga chiqarish

1. Avvalo, kursorni maqsadli bo'limga joylashtiring.
2. Keyin Word-da VBA muharririni ishga tushirish uchun “Alt+ F11” tugmasini bosing.
3. Keyin chap ustunda "Oddiy" ni bosing.
4. Va menyu satrida "Qo'shish" tugmasini bosing.
5. Keyin ochiladigan menyuda "Module" ni tanlang.
6. Yangi modulni ochish uchun ikki marta bosing va u erga quyidagi kodlarni joylashtiring:

Sub SaveCurrentSectionAsNewDoc()
  Dim strFolder As String
  Dim dlgFile As FileDialog
  Dim strNewFileName As String
  Dim objDocAdded As Document
  Dim objDoc As Document
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  ' Pick a place to store the new file.
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  strNewFileName = InputBox("Enter new file name here: ", "File Name")
 
  ' Select and copy current section range.
  objDoc.Bookmarks("\Section").Range.Select
  Selection.Copy
 
  ' Open a new document to paste the above selection.
  Set objDocAdded = Documents.Add
  Selection.Paste
 
  ' Save and close the new document.
  objDocAdded.SaveAs FileName:=strFolder & strNewFileName & ".docx"
  objDocAdded.Close
End Sub

7. Keyin menyu satrida "Ishga tushirish" tugmasini bosing yoki "F5" tugmasini bosing.
8. Keyin "Browse" oynasi ochiladi. Yangi hujjatni saqlash uchun joyni tanlang va "OK" tugmasini bosing.
9. Va "Fayl nomi" maydoniga yangi fayl nomini kiriting va "OK" tugmasini bosing.

Endi siz bo'limni yangi hujjatga chiqardingiz.

2-usul: Hujjatdagi har bir bo'limni alohida yangilariga ajratib oling

Bu sizga hujjatning barcha bo'limlarini to'liq qayta ishlashga yordam beradi. Albatta, bizga makro ham kerak bo'ladi.

1. Boshlash uchun maqsadli hujjatni oching.
2. Keyin makroni o'rnatish va ishga tushirish uchun 1-usuldagi bosqichlarni bajaring.
3. Faqat bu safar o'sha makrosni bu bilan almashtiring:

Sub SaveEachSectionAsADoc()
  Dim objDocAdded As Document
  Dim objDoc As Document
  Dim nSectionNum As Integer
  Dim strFolder As String

  Dim dlgFile As FileDialog
 
  ' Initialization
  Set objDoc = ActiveDocument
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  ' Pick a location to keep new files.
  With dlgFile
    If .Show = -1 Then
      strFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first!"
      Exit Sub
    End If
  End With
 
  ' Step through each section in current document, copy and paste each to a new one.
  For nSectionNum = 1 To ActiveDocument.Sections.Count
    Selection.GoTo What:=wdGoToSection, Which:=wdGoToNext, Name:=nSectionNum
    ActiveDocument.Sections(nSectionNum).Range.Copy
 
    Set objDocAdded = Documents.Add
    Selection.Paste
 
    ' Save and close new documents.
    objDocAdded.SaveAs FileName:=strFolder & "Section " & nSectionNum & ".docx"
    objDocAdded.Close
  Next nSectionNum
End Sub

4. Shunga qaramay, "Browse" oynasida saqlash yo'lini tanlang va "OK" tugmasini bosing.

Achchiq so'z xatolarini tuzating

Uni ishlatishda Word dasturida ba'zi xatolarga duch kelish odatiy holdir. Bu zerikarli bo'lishi mumkin, biz bunga vaqt ajratishimiz kerak so'zni tiklash iloji boricha tez. Chunki biz uni qanchalik uzoqroq kechiktirsak, ma'lumotlar yo'qotilishi shunchalik jiddiy bo'lishi mumkin. Shuning uchun, ta'mirlash uchun yordamchi dasturni oldindan sotib olish tavsiya etiladi.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc buzilgan xls va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com