Word VBA代码执行后无法定位至文档首页顶部的问题排查

从你的代码来看，导致光标总是停在首页末尾的核心原因是遍历并修改Shapes时的自动选区干扰，加上依赖Selection对象的不稳定性，具体来说：

• 当你循环处理ActiveDocument.Shapes时，部分属性修改（比如设置Fill.Visible、TextFrame.TextRange）会触发Word自动选中当前正在编辑的形状。如果最后一个被处理的形状刚好在首页末尾，这个选中操作会覆盖你之前用Selection.HomeKey或GoTo设置的光标位置。
• 你依赖Selection对象来执行定位和样式修改，而Selection是全局且容易被其他操作篡改的，这就导致后续操作会打乱你预期的光标位置。

修复方案：用Range替代Selection，避免选区干扰 #

最可靠的做法是尽量减少对Selection的使用，改用Range对象直接操作内容，最后再主动定位到首页顶部。以下是修改后的代码：

Private Sub OptionButton5_Click() 'Orange
    Dim sShapes As Shape
    Dim Orange, Green, DarkOrange, DarkGreen, White As Long
    Dim topRange As Range ' 定义首页顶部的Range
    
    DarkOrange = RGB(252, 138, 74)
    Orange = RGB(253, 189, 153)
    Green = RGB(70, 184, 160)
    DarkGreen = RGB(28, 76, 66)
    White = RGB(255, 255, 255)
    
    ' 提前记录首页顶部的位置
    Set topRange = ActiveDocument.Range(Start:=0, End:=0)
    
    Application.ScreenUpdating = False
    If OptionButton5.Value = True Then
        If MsgBox("Deseja mudar para Santa Lucia?" & vbNewLine & vbNewLine & "Isso pode levar algum tempo", vbYesNo, "Mudança de Modelo") = vbYes Then
            ' 修改表格样式：用Range替代Select，避免改变选区
            ActiveDocument.Bookmarks("TabelaConta").Range.Tables(1).Style = "Tabela de Grade 2 - Ênfase 2"
            
            With ActiveDocument.Bookmarks("ListaEspecie").Range
                .Style = "Tabela de Grade 2 - Ênfase 2"
                .Rows.LeftIndent = -37.15
            End With
            
            ' 处理书签隐藏，同样用Range直接操作
            ActiveDocument.Bookmarks("santa").Range.Font.Hidden = False
            ActiveDocument.Bookmarks("ultrafarma").Range.Font.Hidden = True
        End If
    End If
    
    ' 遍历Shapes，全程不触发选区变化
    For Each sShapes In ActiveDocument.Shapes
        With sShapes
            If InStr(.Name, "Rectangle") Then
                .Fill.ForeColor.RGB = DarkOrange
            ElseIf InStr(.Name, "TagAmarelaEscura") Then
                .Fill.ForeColor.RGB = DarkOrange
            ElseIf InStr(.Name, "TagAmarelaClara") Then
                .Fill.ForeColor.RGB = Orange
            ElseIf InStr(.Name, "LinhaGrossa") Then
                .Fill.ForeColor.RGB = Orange
            ElseIf InStr(.Name, "Quad") Then
                .Fill.ForeColor.RGB = Orange
            ElseIf InStr(.Name, "BolaCor") Then
                .Fill.ForeColor.RGB = Green
            ElseIf InStr(.Name, "Reta") Then
                .Line.ForeColor.RGB = Green
            ElseIf InStr(.Name, "Titulo") Then
                .Fill.Visible = msoFalse
                .TextFrame.TextRange.Font.Fill.ForeColor.RGB = White
            ElseIf InStr(.Name, "Oval") Then
                .Fill.ForeColor.RGB = DarkGreen
            End If
        End With
    Next sShapes
    
    Application.ScreenUpdating = True
    ' 最后定位到首页顶部：用Range.Select确保光标位置正确
    topRange.Select
    ' 如果只需要滚动到顶部而不需要选中，可改用：
    ' topRange.ScrollIntoView
End Sub

关键修改点说明： #

1. 用Range替代所有Select操作：直接通过书签的Range属性修改样式和缩进，完全避免了Selection的使用，从根源上消除了选区被篡改的可能。
2. 提前记录首页顶部位置：在所有操作开始前就定义好指向文档开头的topRange，最后直接选中这个Range，确保光标准确回到首页顶部。
3. 优化Shapes遍历逻辑：用With sShapes简化代码，同时避免操作Shape时触发自动选中（虽然部分属性修改仍可能触发，但因为最后我们主动定位到topRange，所以会覆盖掉这些临时选区）。

额外小建议： #

尽量减少GoTo语句的使用，它会让代码逻辑变得混乱，改用条件分支直接执行对应逻辑会更易读和维护。

内容的提问来源于stack exchange，提问作者Renan Liporaci