2 brza načina za izdvajanje odjeljaka iz vašeg Word dokumenta

U ovom ćemo vam članku ponuditi 2 brza i jednostavna načina za izdvajanje odjeljaka iz vašeg Word dokumenta u jedan ili više njih.

Često se događa da iz jednog dokumenta izdvojite sadržaj u drugi. U našem prethodnom članku raspravljali smo o tome kako izdvojiti stranice iz dokumenta. Detaljne informacije možete pronaći u ovom članku: 2 brza načina za izdvajanje pojedinačnih stranica iz vašeg Word dokumenta

Danas ćemo vam pokazati kako izdvajati po odjeljcima.    

Metoda 1: izdvojite trenutni odjeljak u novi dokument

1. Prvo, postavite kursor u ciljni odjeljak.
2. Zatim pritisnite “Alt+ F11” da pozovete VBA editor u Wordu.
3. Zatim u lijevom stupcu kliknite na "Normalno".
4. I na traci izbornika kliknite "Umetni".
5. Zatim odaberite "Modul" na tom padajućem izborniku.
6. Dvaput kliknite da otvorite novi modul i tamo zalijepite sljedeće kodove:

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. Zatim kliknite "Pokreni" na traci izbornika ili pritisnite "F5".
8. Zatim će se pojaviti prozor "Pregledaj". Odaberite mjesto za pohranu novog dokumenta i kliknite "U redu".
9. I u okvir "Naziv datoteke" unesite naziv nove datoteke i kliknite "U redu".

Sada ste izdvojili odjeljak u novi dokument.

Metoda 2: Izdvojite svaki odjeljak u dokumentu u pojedinačne nove

Ovaj vam način može pomoći u skupnoj obradi svih odjeljaka u dokumentu. Naravno, trebat će nam i makronaredba.

1. Za početak, otvorite ciljni dokument.
2. Zatim slijedite korake u metodi 1 za instaliranje i pokretanje makronaredbe.
3. Samo ovaj put zamijenite tu makronaredbu ovom:

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. Ipak, u prozoru "Browse" odaberite stazu za pohranu i kliknite "OK".

Ispravite iritantne pogreške riječi

Uobičajeno je naići na pogreške u Wordu dok ga koristite. Moglo bi biti neugodno, moramo uzeti vremena za to obnoviti riječ čim prije. Jer što dulje odgađamo, gubitak podataka može biti teži. Stoga se preporuča unaprijed nabaviti uslužni program za popravak.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oštećeni xls i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com