尝试先遍历行（以下是未测试的）：

Sub Hyperlink_Outlook()

  Dim wDoc As Word.Document, rngSel As Word.Selection, cel As Cell, i As Long
  Dim r As Variant
  
  Set wDoc = Application.ActiveInspector.WordEditor
  Set rngSel = wDoc.Windows(1).Selection
    
  If Not rngSel Is Nothing And rngSel.Information(wdWithInTable) Then
    If rngSel.Range.Cells.Count > 0 Then
      For Each r In rngSel.Rows
        i = 0 ' reset i here
        For Each cel In r.Cells
          If Len(cel.Range.Text) > 10 Then
            i = i + 1
             wDoc.Hyperlinks.Add cel.Range, _
              Address:=Left(cel.Range.Text, Len(cel.Range.Text) - 1), _
              TextToDisplay:="Attachment " & i
          End If
        Next cel
      Next r
    End If
  End If
  
End Sub

请尝试下一个修改的代码：

Sub Hyperlink_OutlookCols()
 'Columns in Excel must be autoFit
  Dim wDoc As Word.Document, rngSel As Word.Selection, cel As Word.Cell
  
  Set wDoc = Application.ActiveInspector.WordEditor
  Set rngSel = wDoc.Windows(1).Selection
    
  If Not rngSel Is Nothing And rngSel.Information(wdWithInTable) Then
    If rngSel.Range.Cells.count > 0 Then
       For Each cel In rngSel.Cells
          If Len(cel.Range.Text) > 10 Then
             wDoc.Hyperlinks.Add cel.Range, _
              Address:=Left(cel.Range.Text, Len(cel.Range.Text) - 1), _
                                         TextToDisplay:="Attachment " & cel.Column.Index
          End If
       Next cel
    End If
  End If
  
End Sub

您应该在自动调整相应列后从Excel中复制单元格...