2 moduri rapide de a extrage pagini individuale din documentul Word

În p. de astăziost, dorim să vă împărtășim 2 moduri rapide de a extrage pagini individuale din documentul dvs. Word.

Uneori, într-un document Word, fiecare pagină poate conține conținut destul de independent, cum ar fi un tabel. Și, probabil, va trebui să trimiteți mese diferite unor persoane diferite. Apoi va trebui să salvați fiecare tabel care este fiecare pagină, ca fișier separat.Extrageți pagini individuale din documentul dvs. Word

Prima idee care ne vine în minte ar trebui să fie clasicul copy-and-paste. Cu toate acestea, orice implică selecție poate fi enervant uneori, pentru că tragerea și selectarea pot face cu ușurință un capăt fără nicio selecție. Din acest motiv, vă recomandăm 2 metode rapide folosind macro pentru a face treaba.

Metoda 1: Extrageți pagina curentă și salvați-o ca document nou

  1. În primul rând și înainteost, poziționați cursorul pe pagina pe care doriți să o extrageți.
  2. Faceți clic pe fila „Dezvoltator” și apoi faceți clic pe „Visual Basic” pentru a invoca editorul VBA. Dacă „Dezvoltatorul” nu este activat, apăsați pur și simplu „Alt+ F11”.Faceți clic pe „Dezvoltator” -> Faceți clic pe „Visual Basic”
  3. În al doilea rând, accesați proiectul „Normal” făcând clic pe el.
  4. Apoi faceți clic pe fila „Inserare” și alegeți „Modul”.Faceți clic pe „Normal” -> Faceți clic pe „Inserare” -> Faceți clic pe „Modul”
  5. Faceți dublu clic pe noul modul pentru a deschide zona de editare.
  6. Apoi lipiți acolo următoarele coduri:
Sub SaveCurrentPageAsANewDoc() Dim objNewDoc As Document Dim objDoc As Document Dim strFileName As String Dim strFolder As String ' Set de inițializare objDoc = ActiveDocument strFolder = InputBox("Introduceți aici calea dosarului: ") strFileName:" = ") Introduceți aici numele fișierului ' Copiați pagina curentă. objDoc.Bookmarks("\Page").Range.Select Selection.Copy ' Deschide un nou document pentru a lipi selecția. Set objNewDoc = Documents.Add Selection.Paste objNewDoc.SaveAs FileName:=strFolder & "\" & strFileName & ".docx" objNewDoc.Close End Sub
  1. În cele din urmă, faceți clic pe butonul „Run”.Lipiți coduri-> Faceți clic pe „Run”

Acum vor exista 2 casete de introducere. Introduceți calea în care doriți să stocați noul document în prima casetă de introducere. Și introduceți noul nume de document pe al doilea.Introduceți calea folderului -> Faceți clic pe „OK”

Introduceți numele fișierului -> Faceți clic pe „OK”

Metoda 2: Extrageți fiecare pagină și salvați-o ca document nou

Următoarea macrocomandă vă va permite să extrageți fiecare pagină individuală a unui document.

  1. În primul rând, apăsați „Ctrl+ Acasă” pentru a merge la începutul documentului.
  2. Apoi urmați aceiași pași din metoda 1 pentru a instala și rula o macrocomandă.
  3. De data aceasta, înlocuiți macrocomanda cu aceasta:
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("Introduceți calea folderului aici: ") ' Copiați în document. lipiți-l într-unul nou. Pentru nPageNumber = 1 Pentru ActiveDocument.ComputeStatistics(wdStatisticPages) Application.Browser.Target = wdBrowsePage ActiveDocument.Bookmarks("\page").Range.Select Selection.Copy Set objNewDoc = Documents.Add Selection.Paste ' Salvați documentul nou cu numele "Pagină" și nPageNumber și obțineți primele 20 de caractere ale noului document doc ca parte a numelui fișierului. Setați objFileName = objNewDoc.Range(Start:=0, End:=20) objNewDoc.SaveAs FileName:=strFolder & "\" & "Pagină" & nPageNumber & " " & objFileName & ".docx" objNewDoc.Close Application.Browser.Next Next nPageNumber End Sub

Ocupați-vă de problemele Word

Există și vor exista întotdeauna diverse probleme Word. Ideea este să înveți să le repari corect. Lorost modalitatea recomandată este, desigur, de a obține un sofisticat Recuperarea cuvintelor instrument. Ar trebui să profitați de fiecare minut pentru a vă recupera datele înainte de a fi prea târziu.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv xlsx corupt și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com

2 răspunsuri la „2 moduri rapide de a extrage pagini individuale din documentul tău Word”

  1. După ce am citit asta, am crezut că este foarte informativ. Apreciez că ți-ai acordat timpul și energia pentru a aduna acest conținut. Mă trezesc din nou petrecând o cantitate semnificativă de timp atât citind, cât și lasând comentarii. Dar și ce, a meritat totuși!

Lasă un comentariu

Adresa ta de email nu va fi publicată. Câmpurile obligatorii sunt marcate *