Thread: [Solved] How to resize a paragraph range to include just a single line of text
View Single Post
 
Old 07-08-2019, 02:56 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default
Replace:
Code:
For Each Sctn In ActiveDocument.Sections
  'Loop through each Section
  With Sctn
    'Get the Section print width
    With .PageSetup
with:
Code:
  With Selection
    'Get the Section print width
    With .Sections.First.PageSetup
and delete the final:
Code:
Next
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote