Embedded Files
Deocamdată nu am găsit o modalitate pentru a insera direct paginile dintr-un fișier PDF în fișier Word, ca și imagini.
Acest lucru se poate realiza prin diferite metode.
O metodă ar fi deschiderea fișierului PDF cu un program specializat (Adobe Reader, Foxit Reader etc), selectarea zonei care trebuie preluată cu tasta PrintScreen sau cu instrumentul Snapshoot și adăugarea acesteia în fișierul Word. Însă în cazul în care fișierul PDF are foarte multe pagini și trebuie preluată fiecare pagină (în întregime), operațiunea durează destul de mult.
Am găsit o altă modalitate mai rapidă,
folosind un program care transformă toate paginile din fișierul PDF în fișiere separate - format JPG / PNG, apoi
utilizând o macrocomandă care preia toate imaginile extrase și le adaugă în Word.
În exemplul de mai jos, pentru extragerea paginilor în format JPG este folosit programul gratuit IrfanView (dar se poate folosi și PDFill).
După descărcarea și instalarea programului și a plugin-urilor, se deschide Irfan View și se apasă tasta O (sau din meniu se alege File - Open).
IrfanView afișează o fereastră de dialog cu ajutorul căreia se poate alege fișierul PDF din care vor fi extrase paginile.
Din meniu, Options > Multipage Images > Extract all pages...
IrfanView afișează o fereastră de dialog în care se specifică directorul în care vor fi extrase paginile, în format JPG.
În fereastra de dialog există și butonul Options, în care pot fi modificate opțiunile de salvare.
După click pe butonul Start, IrfanView extrage toate imaginile în folderul ales. Numele fișierelor este compus din numele fișierului PDF la care se adaugă sufixul _page_xxxx, unde xxxx este numarul paginii din fișierul PDF.
Pentru a insera toate imaginile dintr-un folder într-un fișier Word, poate fi rulată macrocomanda de mai jos.
1. Cum se adaugă macrocomanda în Word:Într-un fișier Word se apasă combinația de taste Alt+F11 (sau din meniu, Developer-Visual Basic) , pentru a deschide aplicația VBA (Microsoft Visual Basic for Applications). În meniul VBA, cu Insert - Module se deschide o pagină albă în care se copie codul de mai jos. Macrocomanda poate fi rulată și din VBA (tasta F5 sau butonul Run).Cu Ctrl+S se salvează macrocomanda în VBA, iar cu File - Close and Return to Microsoft Word (Alt+Q) se revine în Word.2. Rularea macrocomenziiÎn Word, se plasează cursorul pe rândul în care va fi introdusă prima imagine. Cu combinația de taste Alt+F8 (sau din meniu, Developer - Macros) se deschide caseta de dialog din care se alege macrocomanda (aici, IMGdinFOLDER), apoi Enter sau clic pe butonul Run.Macrocomanda deschide o fereastră de tip Explorer, pentru a alege folderul în care se află imaginile. Clic pe folder, apoi clic pe OK. Apoi, macrocomanda inserează imaginile găsite în acel folder în documentul Word. Dacă în folder sunt și alte fișiere, acestea apar ca dreptunghiuri în care scrie: „The picture can't be displayed.” - acestea pot fi șterse ulterior. Imaginile sunt inserate în ordine alfabetică - inclusiv extensia (întâi JPG, apoi PNG).
Sub IMGdinFOLDER()
'de pe http://software-solutions-online.com/word-vba-insert-images/
'toate fisierele din folderul selectat sa fie de tip imagine
'altfel apar dreptunghiuri cu mesaj: The picture can't be displayed
'care pot fi șterse ulterior :P
Dim intResult As Integer
Dim strPath As String
Dim strFolderPath As String
Dim objFSO As Object
Dim objFolder As Object
Dim objFile As Object
Dim i As Integer
'este afisata ferastra de dialog
intResult = Application.FileDialog(msoFileDialogFolderPicker).Show
'verifica daca utilizatorul a anulat fereastra de dialog
If intResult <> 0 Then
'afiseaza caseta pentru mesaj
strFolderPath = Application.FileDialog(msoFileDialogFolderPicker _
).SelectedItems(1)
'Creaza o instanta a FileSystemObject
Set objFSO = CreateObject("Scripting.FileSystemObject")
'preia numele folderului
Set objFolder = objFSO.GetFolder(strFolderPath)
i = 1
'bucla pentru fiecare fisier din director si preia numele si calea
For Each objFile In objFolder.Files
'preia calea la fisier
strPath = objFile.Path
'insereaza imaginea si salveaza fisierul
Selection.InlineShapes.AddPicture FileName:= _
strPath, LinkToFile:=False, _
SaveWithDocument:=True
Next objFile
End If
End Sub
Imaginile inserate care au lățimea/înălțimea mai mare decât cea a zonei de editare a paginii, sunt redimensionate proporțional, pentru ca să încapă în zona de editare, iar imaginile mai mici decât dimensiunile zonei de editare, își păstrează dimensiunile originale.
Dacă se modifică valorile pentru marginile paginii și se rulează din nou macrocomanda, imaginile mai mari vor fi redimensionate automat la noile dimensiuni ale zonei de editare a paginii.
Pentru lucrul cu fișiere PDF (unire fișiere PDF, despărțire în pagini separate, rotire pagini, adăugare antet, subsol, watermark etc.) pot fi folosite diferite programe gratuite:
- PDFill - versiunea gratuită cu PDFill FREE PDF Editor Basic (No Watermark), PDF Tools și PDF and Image Writer, care pot fi descărcate de pe pagina https://www.pdfill.com/download.html
- Gios PDF Splitter and Merger (poate lucra și cu imagini, pe care să le transforme în format PDF și nu necesită instalare - e doar un fișier executabil)
- PDFtk - descrierea programului în română se află pe pagina https://sites.google.com/view/manual-pdftk-in-romana/pagina-de-pornire.
Google Sites
Report abuse