How to resize a paragraph range to include just a single line of text

		Microsoft Office Forums > Microsoft Word > Word VBA
How to resize a paragraph range to include just a single line of text

07-08-2019, 02:56 PM

macropod

Windows 7 64bit How to resize a paragraph range to include just a single line of text

Office 2010 32bit

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,512

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]

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Highlighting applied to range ending in a paragraph continues to apply to text added after	Peterson	Word VBA	2	10-08-2018 02:50 PM
Pasted text becomes single long line	qaz1	Word	1	07-25-2015 04:13 AM
Extract Line of Text w/ specific characters up to the paragraph character, send to Excel	dmarie123	Word VBA	10	07-20-2015 12:16 AM
macro to add brackets to each line and add single quotes to each word in the line	bracketandquotes	Word VBA	17	02-16-2015 03:51 PM
what is the professional way to include an equation in a paragraph?	Jamal NUMAN	Word	1	07-07-2011 11:53 PM