Thread: Add Break at end of doc, control display of non-printable characters
View Single Post
 
Old 03-06-2014, 02:50 AM
macropod's Avatar
macropod macropod is offline Windows 7 32bit 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
The issue with your document is that you have formatted the table with 'around' text wrapping. It would have been helpful if you'd mentioned that. Try:
Code:
Dim bShow As Boolean
With appWord.ActiveDocument
  bShow = .ActiveWindow.ActivePane.View.ShowAll
  .ActiveWindow.ActivePane.View.ShowAll = True
  .Sections.Add Start:=wdSectionNewPage
  .Tables(1).Range.Copy
  .Characters.Last.Paste
  .ActiveWindow.ActivePane.View.ShowAll = bShow
End With
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote