Problem with zoom to "text width"

		Microsoft Office Forums > Microsoft Word > Word VBA
Problem with zoom to "text width"

FAQ

Thread Tools

Display Modes

05-29-2011, 01:49 AM

macropod

Windows 7 32bit Problem with zoom to "text width"

Office 2007

Administrator

Join Date: Dec 2010

Location: Canberra, Australia

Posts: 22,536

Hi b0x4it,

Try:

Code:

With ActiveDocument.ActiveWindow.View.Zoom
  If .PageFit = wdPageFitTextFit Then
    .PageFit = wdPageFitFullPage
  Else
    .PageFit = wdPageFitTextFit
    Selection.GoTo what:=wdGoToBookmark, Name:="\sel"
  End If
End With

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]

« Previous Thread | Next Thread »

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
"contents" width sizing?	dark86	Word	4	01-24-2013 11:11 AM
Wierd symbols inplace of "space", "indentation" etc	aka.bhagvanji	Word	5	02-16-2012 11:50 AM
Partial highlighting of text in a row in "Final Showing Markup" setting	Redpoint	Word Tables	4	03-11-2011 04:29 PM
"Microsoft Excel Application" missing in the "Component Services" on win08	sword.fish	Excel	0	02-26-2010 02:09 PM
merge field formatting problem with "text to be inserted before"	wissam	Mail Merge	0	12-13-2009 12:50 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 09:38 AM.