Code to go to first character in the page

[jeanmac]

Does anyone know a piece of code that would move you to the first character
in the current page of a document? I am new to Word VBA and finding it not
the easiest, if anyone can help that would be great.

Many thanks
Jeanmac

 

[KePaHa]

I believe this will do so:

Sub Macro1()

With Application.Browser
.Target = wdBrowsePage
.Previous
End With

End Sub

 

[jeanmac]

Thaks for getting back to me. The code you gave me takes me to the top of
the previous page not the current one, I can't find the reference forthe
current page, can you help? Thanks.

 

[jeanmac]

Perfect!!! THANKYOU.

Hi


this moves the selection before the first char of the page

Sub FirstCharOfPage()
Selection.Bookmarks("\Page").Select
Selection.Collapse wdCollapseStart
End Sub

--
regards Christian
~~~~~~~~~~~~~~~~
reply only to this newsgroup
http://www.mvps.org/word/FindHelp/Posting.htm

 

[Aminc]

Try this:
Dim iGoTo ' declare variable to store value of current page

iGoTo = Selection.Information(wdActiveEndPageNumber) ' get and store current
page#
Selection.GoTo What:=wdGoTopage, Which:=wdGoToNext, Name:=2 ' go to page
number stored previously.

Cursor will be positioned on the first line before first char.

 

[Aminc]

sorry, Replace line "Selection.GoTo What:=wdGoTopage, Which:=wdGoToNext,
Name:=2" with "Selection.GoTo What:=wdGoTopage, Which:=wdGoToNext,
Name:=iGoTo"

 

[jeanmac]

Thank you for replying to my post. You have given me another very useful
piece of code and I appreciate it.

Jeanmac