დღევანდელ პოსტში გვსურს გაგიზიაროთ 2 სწრაფი გზა, თუ როგორ ამოიღოთ ცალკეული გვერდები თქვენი Word დოკუმენტიდან.
ზოგჯერ Word დოკუმენტში, თითოეული გვერდი შეიძლება შეიცავდეს საკმაოდ დამოუკიდებელ შინაარსს, როგორიცაა ცხრილი. და თქვენ ალბათ მოგიწევთ სხვადასხვა ადამიანებისთვის სხვადასხვა ცხრილების გაგზავნა. შემდეგ თქვენ უნდა შეინახოთ თითოეული ცხრილი, რომელიც არის თითოეული გვერდი, ცალკე ფაილად.
პირველი იდეა, რომელიც ჩვენს თავში ჩნდება, უნდა იყოს კლასიკური კოპირება და ჩასმა. თუმცა, ყველაფერი, რაც მოიცავს შერჩევას, ზოგჯერ შეიძლება შემაშფოთებელი იყოს, რადგან გადათრევა და არჩევა შეიძლება ადვილად დასრულდეს შერჩევის გარეშე. ამ მიზეზით, ჩვენ გირჩევთ 2 სწრაფ მეთოდს მაკროს გამოყენებით სამუშაოს შესასრულებლად.
მეთოდი 1: ამოიღეთ მიმდინარე გვერდი და შეინახეთ იგი ახალ დოკუმენტად
- პირველ რიგში, მოათავსეთ კურსორი იმ გვერდზე, რომლის ამოღებაც გსურთ.
- დააწკაპუნეთ ჩანართზე "დეველოპერი" და შემდეგ დააჭირეთ "Visual Basic" VBA რედაქტორის გამოსაძახებლად. თუ "დეველოპერი" არ არის გააქტიურებული, უბრალოდ დააჭირეთ "Alt+ F11" ნაცვლად.
- მეორეც, გადადით "ნორმალური" პროექტზე დაჭერით.
- შემდეგ დააჭირეთ "ჩასმა" ჩანართს და აირჩიეთ "მოდული".
- ორჯერ დააწკაპუნეთ ახალ მოდულზე რედაქტირების არეალის გასახსნელად.
- შემდეგ ჩასვით იქ შემდეგი კოდები:
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
- ბოლოს დააჭირეთ ღილაკს "გაშვება".
ახლა იქნება 2 შეყვანის ყუთი. შეიყვანეთ გზა, სადაც გსურთ შეინახოთ ახალი დოკუმენტი პირველ შეყვანის ველში. და შეიყვანეთ ახალი დოკუმენტის სახელი მეორეზე.
მეთოდი 2: ამოიღეთ თითოეული გვერდი და შეინახეთ იგი ახალ დოკუმენტად
შემდეგი მაკრო საშუალებას მოგცემთ ამოიღოთ დოკუმენტის თითოეული ცალკეული გვერდი.
- პირველ რიგში, დააჭირეთ ღილაკს "Ctrl+ Home" თქვენი დოკუმენტის დასაწყისში გადასასვლელად.
- შემდეგ მიჰყევით იგივე ნაბიჯებს მეთოდში 1, რომ დააინსტალიროთ და გაუშვათ მაკრო.
- ამჯერად შეცვალეთ მაკრო ამით:
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-თან დაკავშირებული სხვადასხვა პრობლემა არსებობს და ყოველთვის იარსებებს. მთავარია, ვისწავლოთ მათი სწორად გამოსწორება. ყველაზე რეკომენდებული გზა, რა თქმა უნდა, დახვეწილი... სიტყვების აღდგენა ხელსაწყო. თქვენ უნდა გამოიყენოთ ყოველი წუთი თქვენი მონაცემების აღსადგენად, სანამ გვიან არ არის.
ავტორი შესავალი:
ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის კორუმპირებული xlsx მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად