06-22-2010, 06:59 PM | #16 |
Enthusiast
Posts: 47
Karma: 416
Join Date: Aug 2009
Device: Black PRS-650 with lighted cover & Kindle DX.
|
Your could probably do most of the changes via a macro. I found the macro below in just a few minutes at http://en.allexperts.com/q/Microsoft...e-pictures.htm. With some minor changes it could probably be adapted to rest the picture size via size set in the page layout. I would expect that tables and styles could be changed appropriately.
Sub AllPictSize() Dim PercentSize As Integer Dim oIshp As InlineShape Dim oshp As Shape PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75) For Each oIshp In ActiveDocument.InlineShapes With oIshp .ScaleHeight = PercentSize .ScaleWidth = PercentSize End With Next oIshp For Each oshp In ActiveDocument.Shapes With oshp .ScaleHeight Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue .ScaleWidth Factor:=(PercentSize / 100), _ RelativeToOriginalSize:=msoCTrue End With Next oshp End Sub |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
[Old Thread] New way to convert Word Documents to eBooks | Gorod | Workshop | 33 | 11-29-2011 12:45 PM |
[Mobi output] convert complex documents | deadland | Calibre | 2 | 03-02-2010 01:47 PM |
Newbie basic question re Word documents | GA Russell | Which one should I buy? | 15 | 09-17-2009 09:55 PM |
converting long, somewhat complex docs to eReader | Richard Maseles | Other formats | 4 | 01-07-2009 05:28 PM |
ms word documents on sony reader | GEBSEWS | Sony Reader | 8 | 12-17-2006 02:44 PM |