Ձեր Word փաստաթղթից անհատական ​​էջեր հանելու 2 արագ եղանակ

Այսօրվա գրառման մեջ մենք ուզում ենք ձեզ հետ կիսվել ձեր Word փաստաթղթից առանձին էջեր հանելու 2 արագ եղանակով։

Երբեմն Word փաստաթղթում յուրաքանչյուր էջ կարող է պարունակել բավականին անկախ բովանդակություն, օրինակ ՝ աղյուսակ: Եվ դուք, հավանաբար, պետք է տարբեր սեղաններ ուղարկեք տարբեր մարդկանց: Դրանից հետո դուք պետք է պահեք յուրաքանչյուր էջի յուրաքանչյուր աղյուսակը որպես առանձին ֆայլ:

Առաջին գաղափարը, որ գալիս է մեր մտքին, պետք է լինի դասական պատճենումը և տեղադրումը: Այնուամենայնիվ, ընտրությունը ներառող ցանկացած բան կարող է երբեմն տհաճ լինել, քանի որ քաշելը և ընտրելը հեշտությամբ վերջացնում են այն ՝ առանց ընտրություն կատարելու: Այդ պատճառով մենք ձեզ խորհուրդ ենք տալիս 2 արագ մեթոդ գործը կատարելու համար մակրո օգտագործելով:

Մեթոդ 1. Արդյունահանեք ընթացիկ էջը և պահեք այն որպես նոր փաստաթուղթ

1. Նախ և առաջ, տեղադրեք կուրսորը այն էջի վրա, որը ցանկանում եք արդյունահանել։
2. Կտտացրեք «Կառուցապատող» ներդիրին և այնուհետև կտտացրեք «Visual Basic» - ին ՝ VBA խմբագրին դիմելու համար: Եթե ​​«Կառուցապատողը» ակտիվացված չէ, փոխարենը պարզապես սեղմեք «Alt + F11»:
3. Երկրորդ, անցեք «Նորմալ» նախագիծ ՝ սեղմելով այն:
4. Հաջորդը կտտացրեք «Ներդիր» ներդիրին և ընտրեք «Մոդուլ»:
5. Կրկնակի կտտացրեք նոր մոդուլին ՝ խմբագրման տարածքը բացելու համար:
6. Դրանից հետո այնտեղ տեղադրեք հետևյալ ծածկագրերը.

Sub SaveCurrentPageAsANewDoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim strFileName As String
  Dim strFolder As String
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
  strFileName = InputBox("Enter file name here: ")
 
  '  Copy current page.
  objDoc.Bookmarks("\Page").Range.Select
  Selection.Copy
 
  '  Open a new document to paste the selection.
  Set objNewDoc = Documents.Add
  Selection.Paste
 
  objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx"
  objNewDoc.Close
End Sub

7. Ի վերջո, կտտացրեք «Գործարկել» կոճակին:

Այժմ կլինեն 2 մուտքային տուփ: Մուտքագրեք այն ուղին, որտեղ ցանկանում եք պահել նոր փաստաթուղթը առաջին մուտքագրման վանդակում: Եվ երկրորդի վրա մուտքագրեք նոր փաստաթղթի անվանումը:

Մեթոդ 2. Յուրաքանչյուր էջ հանեք և պահեք այն որպես նոր փաստաթուղթ

Հետևյալ մակրոը հնարավորություն կտա ձեզ արդյունահանել փաստաթղթի յուրաքանչյուր առանձին էջ:

1. Նախ, սեղմեք «Ctrl + Home» ՝ ձեր փաստաթղթի հենց սկզբին անցնելու համար:
2. Դրանից հետո հետևեք նույն քայլերին 1-ին մեթոդով `մակրո տեղադրելու և գործարկելու համար:
3. Այս անգամ մակրոը փոխարինեք այսով.

Sub SaveEachPageAsADoc()
  Dim objNewDoc As Document
  Dim objDoc As Document
  Dim nPageNumber As Integer
  Dim strFolder As String
  Dim objFileName As Range
 
  '  Initialization
  Set objDoc = ActiveDocument
 
  strFolder = InputBox("Enter folder path here: ")
 
  '  Copy each page in the document to paste it into a new one.
  For nPageNumber = 1 To ActiveDocument.ComputeStatistics(wdStatisticPages)
    Application.Browser.Target = wdBrowsePage
    ActiveDocument.Bookmarks("\page").Range.Select
    Selection.Copy
 
    Set objNewDoc = Documents.Add
    Selection.Paste
 
    '  Save new doc with the name of "Page" & nPageNumber and get the first 20 characters of the new doc as part of the file name.
    Set objFileName = objNewDoc.Range(Start:=0, End:=20)
    objNewDoc.SaveAs FileName:=strFolder & "\" & "Page " & nPageNumber & " " & objFileName & ".docx"
    objNewDoc.Close
    Application.Browser.Next
  Next nPageNumber
End Sub

Բաղվեք Word- ի թողարկումներով

Word-ի հետ կապված տարբեր խնդիրներ կան և միշտ կլինեն։ Կարևորը դրանք ճիշտ շտկել սովորելն է։ Առավել խորհուրդ տրվող ճանապարհը, իհարկե, բարդ մոտեցում ստանալն է։ Բառի վերականգնում գործիք Պետք է ամեն րոպե խլեք ձեր տվյալները վերականգնելու համար, քանի դեռ շատ ուշ չէ:

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում կոռումպացված xlsx և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com