Այս հոդվածում մենք ձեզ կառաջարկենք 2 արագ և հեշտ եղանակներ ձեր Word փաստաթղթից բաժիններ մեկ այլ մեկ կամ մի քանիսի արդյունահանելու համար:
Բավականին հաճախ է պատահում բովանդակությունը մեկ փաստաթղթից մյուսը քաղել: Եվ մեր նախորդ հոդվածում մենք քննարկել ենք, թե ինչպես կարելի է փաստաթղթից էջեր հանել: Մանրամասն տեղեկությունների համար կարող եք դիմել այս հոդվածին. Ձեր Word փաստաթղթից անհատական էջեր հանելու 2 արագ եղանակ
Այսօր մենք ձեզ ցույց կտանք, թե ինչպես արդյունահանել ըստ բաժնի: 
Մեթոդ 1. Ընթացիկ բաժինը հանեք նոր փաստաթղթում
- Նախևառաջ, տեղադրեք կուրսորը թիրախային հատվածում։
- Հաջորդը սեղմեք «Alt + F11» ՝ Word- ում VBA խմբագրին դիմելու համար:
- Դրանից հետո ձախ սյունակում կտտացրեք «Նորմալ» կետին:
- Իսկ ընտրացանկում կտտացրեք «Տեղադրել» կետին:
- Ապա այդ բացվող ընտրացանկում ընտրեք «Մոդուլ»:
- Կրկնակի կտտացրեք ՝ նոր մոդուլը բացելու համար և այնտեղ տեղադրեք հետևյալ կոդերը.
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
- Հաջորդը, կտտացրեք «Գործարկել» ցանկի տողի վրա կամ սեղմեք «F5»:
- Այնուհետև կբացվի «rowննարկել» պատուհանը: Ընտրեք տեղ նոր փաստաթուղթը պահելու համար և կտտացրեք «Լավ»:
- Եվ «Ֆայլի անուն» վանդակում մուտքագրեք նոր ֆայլի անունը և կտտացրեք «Լավ»:
Այժմ դուք բաժինը դուրս եք բերել նոր փաստաթղթի:
Մեթոդ 2. Փաստաթղթում յուրաքանչյուր հատված հանեք առանձին նորերին
Այս եղանակը կարող է օգնել ձեզ խմբաքանակով մշակել փաստաթղթի բոլոր բաժինները: Իհարկե, մեզ մակրո նույնպես պետք կգա:
- Սկսելու համար բացեք նպատակային փաստաթուղթը։
- Դրանից հետո հետևեք 1-ին մեթոդի քայլերին `մակրո տեղադրելու և գործարկելու համար:
- Միայն այս անգամ այդ մակրոը փոխարինեք այսով.
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
- Դեռևս «Փնտրել» պատուհանում ընտրեք պահեստավորման ուղին և կտտացրեք «Լավ»:
Վերացնել նյարդայնացնող բառերի սխալները
Օգտագործելիս սովորական է հանդիպել Word- ի որոշ սխալների: Դա կարող է նյարդայնացնել, մենք պետք է ժամանակ տրամադրենք դրան վերականգնել բառը հնարավորինս շուտ. Քանի որ որքան երկար ենք հետաձգում դա, այնքան ավելի խիստ կարող է լինել տվյալների կորուստը: Ուստի առաջարկվում է նախապես ձեռ առնել նորոգման կոմունալ ծառայությունը:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xls և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com