Document opens at bottom

[desperate in MS]

You'll be proud of me.

From here I have written macros and used these in creating my custom toolbar.

Everything is working find. EXCEPT..when I access a word document it opens
at the bottom of the document.

Is there a simple macro to have them open at the top? My brain is fried
right now. lol

 

[Jacob Skaria]

If you mean the application use Application.Activate

If you are looking for a document use

Dim wrdDoc As Word.Document
Set wrdDoc = Documents.Open("c:\1.doc")
wrdDoc.Activate

If this post helps click Yes

 

[Doug Robbins - Word MVP on news.microsoft.com]

It would help to see your code.

Maybe use

Selection.HomeKey wdStory

or

Dim myrange as range
Set myrange=ActiveDocument.Range
myrange.Collapse wdCollapseStart
myrange.Select.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com

 

[desperate in MS]

Public Sub WeldVerify_E()
'
' Energy Weld Spec E Macro
' Macro recorded 3/17/2009 by Wroblewski, Laura - wrlag on 2UA6380WHF
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If

Selection.InsertFile FileName:="O:\Routine Maintenance\Routine Planner
Share\Common\Macros\Docs\Clay\EnergyWeldESpecStic.doc", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
End Sub

This is used for serveral different documents. When adding new codes, I'm
not sure where to add them at.

 

[desperate in MS]

Doug-Thanks for your help. I got it to work.

It would help to see your code.

Maybe use

Selection.HomeKey wdStory

or

Dim myrange as range
Set myrange=ActiveDocument.Range
myrange.Collapse wdCollapseStart
myrange.Select.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com