With Power Query you can get data from sources using a graphical interface and apply transformations using a Power Query Editor. Indeed, if I were doing this, I'd probably modify the code to automatically get the page dimensions and fit the PDF images to that, so they always fill, or at least scale to, the page size.Power Query is an application for transforming and preparing data. Set DocSrc = Documents.Open(FileName:=StrFile, AddToRecentFiles:=False) With Application.FileDialog(msoFileDialogOpen) Kristian RE: Import PDF into Word Document KristianDude (TechnicalUser)ĭim StrFile As String, Rng As Range, DocSrc As Document, i As Long The hope is that one day, the office suite will make it easier somehow. This is just a workaround for other easy to use features that do require upgraded PDF software and/or 3rd party software. ideally, packaged entirely within the Word Document that I am working in at the time that I am running the code (ie: how I am using this code). I like to make my stuff usable with default and/or free software. there is a ton more functionality when using references to say, the full paid version of Adobe Acrobat. I hope to get some time to run through your latest post Paul and will report back!Ī note to anyone else that may be reading this post. For my purposes, I don't use OCR so this is actually a great fit for what I am in need of. I tested it with other PDF versions with layers and text and it is not good at all for that.
yes this is intended for non-OCR scanned PDF documents only. Selection.PasteAndFormat wdPasteDefault 'Pastes in the contentĮnd Sub RE: Import PDF into Word Document strongm (MIS) 24 Aug 16 10:55 Selection.EndKey wdStory 'Move to end of document Selection.Expand wdParagraph 'Expands your selection to current paragraphĪctiveDocument.Close () Selection.WholeStory 'Select whole document "", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _įormat:=wdOpenFormatAuto, XMLTransform:="" Dim MyObj As Object, MySource As Object, file As Variantįile = Dir("FolderPathHere" & "FileNameHere.pdf") 'pdf pathĭocuments.Open FileName:=file, ConfirmConversions:=False, ReadOnly:= _įalse, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
0 kommentar(er)
