Word - How to move about in a document

How do you move to a certain page or to the end of a document?

  Yves Dhondt replied to richard

You can use F5 to display the goto dialog. There you can enter the page or
section number you want to go to.

CTRL+END will get you straight to the end of the document.

Yves

  Terry Farrell replied to richard

You can also use the DocMap which lets you select Sections/Headings to
navigate the document.

--
Terry Farrell - MSWord MVP

  richard replied to richard

On 3/4/2010 5:05 PM, richard wrote:
Thanks to both for the help.

previous "Insert_Next" bookmark is replaced by one at the end of this new AutoText). - -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - Selection.GoTo What: = wdGoToBookmark, Name: = "Insert_Sections" ActiveDocument.AttachedTemplate.AutoTextEntries( _ True Selection.GoTo What: = wdGoToBookmark, Name: = "Insert_Next" Selection.TypeParagraph ActiveDocument.AttachedTemplate.AutoTextEntries( _ RichText: = True Selection.GoTo What: = wdGoToBookmark, Name: = "Insert_Next" Selection.TypeParagraph ActiveDocument.AttachedTemplate.AutoTextEntries( _ RichText: = True - -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- - I cannot figure going with it: Section1 = form_SelectSections.cbx_Selection01.Value Section2 = form_SelectSections.cbx_Selection02.Value . . . . If Section1 <> "" Then Selection.GoTo What: = wdGoToBookmark, Name: = "Insert_Next" Selection.TypeParagraph ActiveDocument.AttachedTemplate.AutoTextEntries(Section1).Insert _Where: = Selection.Range, RichText: = True Else GoTo Finished End If If Section2 <> "" Then Selection.GoTo What: = wdGoToBookmark, Name: = "Insert_Next" Selection.TypeParagraph ActiveDocument.AttachedTemplate.AutoTextEntries(Section2).Insert _Where: = Selection.Range, RichText True Else GoTo Finished End If . . . . . keywords: Insert, AutoText, entries, based, on, selected, options, in, UsrForm, cbobo description

Revalidatie Friesland Hi, Rinze Here is the code of my macro: Sub AutoOpen() On Error GoTo ErrHandler If ActiveDocument.BuiltInDocumentProperties("Keywords").Value = ActiveWindow.DocumentMap = True ActiveWindow.View.ShowHeading 1 Else ActiveWindow.ActivePane.Close End If ActiveDocument.Save GoTo EndOfMacro ErrHandler: If Err.Number = 5867 Then Err.Clear Else MsgBox Err.Description & " " & Err.Number using ActiveDocument.Variables("Mapped") = "ShowMap" Then for your autoopen macro use: 'Sub AutoOpen() On Error GoTo ErrHandler If ActiveDocument.Variables("Mapped").Value = "ShowMap" Then ActiveWindow.DocumentMap = True ActiveWindow.View.ShowHeading 1 End If ActiveDocument.Save GoTo EndOfMacro ErrHandler: If Err.Number = 5825 Then ActiveDocument.Close GoTo EndOfMacro Else MsgBox Err.Description & " " & Err.Number End If EndOfMacro: End Sub - - Hope this helps document variable it works much better. Here is my final code: Sub AutoOpen() On Error GoTo ErrHandler ActiveWindow.DocumentMap = True If ActiveDocument.Variables("Mapped").Value = "ShowMap" Then ActiveWindow.View.ShowHeading 1 End If GoTo EndOfMacro ErrHandler: If Err.Number = 5825 Then Err.Clear ActiveWindow.ActivePane.Close Else MsgBox Err

_ Prompt: = "Run in the form?", _ Buttons: = vbYesNoCancel + vbQuestion) Select Case strReply Case vbYes GoTo Form Case vbNo GoTo Raw Case vbCancel GoTo Done End Select GoTo Done Raw: varXRefs = ActiveDocument.GetCrossReferenceItems _ (ReferenceType: = "Chapter") MsgBox "Loaded: " & Str(UBound(varXRefs)) GoTo Done Form: Set objXRefTest = New frmXRefTest objXRefTest.Show GoTo Done Done: Set varXRefs = Nothing Set objXRefTest = Nothing End Sub keywords: GetCrossReferenceItems, is, acting, flakey

Then fileName = .SelectedItems(1) Else MsgBox "You did not select an Excel file to open." GoTo ErrorHandler End If End With k = InStrRev(fileName, " \ ", -1, vbTextCompare) If k > 0 Then wkbName = Right(fileName, Len(fileName) - k) Else MsgBox "A suitable file was not selected." GoTo ErrorHandler End If On Error Resume Next Set xlApp = GetObject(, "Excel.Application") If Err.Number Then Set xlApp = CreateObject("Excel.Application") newInstance = True Else newInstance = False End If On Error GoTo 0 xlApp.Visible = True On Error Resume Next Set wkBook = xlApp.Workbooks(wkbName) If Err MsgBox "The file specified could not be opened.", _ vbCritical Or vbOKOnly, "File Not Opened" GoTo ErrorHandler Else fileOpened = True End If End If wkBook.Activate On Error GoTo 0 i = 1 j = 1 For x = 1 To wkBook.WorkSheets.Count With wkBook.WorkSheets

queries on this subject, and responders have replied that the solution is to edit the DocMap style. But when I look in the style and formatting pane, I cannot see a DocMap style. So I am none the wiser. Anyone help? - - Palmer Stoat Word Document Management Discussions Word (1) DocMap (1) Version of Word? Find the "Options" that deal with styles, and from the dropdown menu, choose "Show All Styles." (After you deal with DocMap you will probably want to reset that back to what it was before.) keywords: Document