Thread: [Solved] Count rows and add blank rows accordingly
View Single Post
 
Old 01-29-2013, 09:23 PM
macropod's Avatar
macropod macropod is offline Windows 7 64bit Office 2010 32bit
Administrator
  
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,384
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
You could simply replace:
.Rows.Add
with something like:
Code:
                While .Rows.Count < 20
                  .Rows.Add
                Wend
PS: When posting code, please use the code tags. They're on the 'Go Advanced' tab.
PPS: You should declare all variables before using them - your oPara variable is undeclared and should be decalred as 'Dim oPara As Paragraph'
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote