Necesito leer un determinado número de caracteres de un
documento .doc a traves de código y trabajar con el.

Respuesta:
==========
Con esto puedes empezar, toma en cuenta los siguiente 
requerimientos minimos...

En la misma carpeta donde tienes tu proyecto, crea un 
documento DOC que tenga texto en por lo menos dos hojas, 
este archivo nombralo Oficio.Doc (el nombre que uso en el 
codigo) o adapta el codigo al nombre de tu documento


Option Explicit

Private Sub cmdDocTxt_Click()
Dim objWord As Object
Dim objDoc As Object
Dim strRuta As String
Dim Cerrado As Boolean
Dim strTexto As String

  'Controlador de errores
  On Error Resume Next
  
  'Verificamos si esta en ejecucion Word
  Set objWord = GetObject(, "Word.Application")
  'Si no esta en ejecución ocurreo el error 429
  If Err.Number = 429 Then
    'Limpiamos el controlador de errores
    Err.Clear
    'Creamos una nueva instancia de Word
    Set objWord = CreateObject("Word.Application")
    Cerrado = True
  End If

  'Ruta de un documento de Word existente
  strRuta = App.Path & "\Oficio.doc"
  'Verificamos que exista el archivo
  If Len(Dir(strRuta)) > 0 Then
    'Abrimos el documento existente
    Set objDoc = objWord.Documents.Open(strRuta)
    With objDoc
      'Nos aseguramos de que el cursor esta al inicio del 
documento
      .Parent.Selection.HomeKey 6
      'Seleccionamos la primer linea
      .Parent.Selection.EndKey 5, 1
      'Mostramos la seleccion
      MsgBox .Parent.Selection.Text
      'Nos movemos a la siguiente página
      .Parent.Selection.Goto 1, 2, 1
      .Parent.Selection.EndKey 5, 1
      MsgBox .Parent.Selection.Text
    'Cerramos el documento creado
      .Close
    End With
    'Solo cerramos Word si no estaba abierto
    If Cerrado Then objWord.Quit
  Else
    MsgBox "El archivo no existe"
  End If
  
  'Liberamos memoria
  Set objDoc = Nothing
  Set objWord = Nothing

End Sub


El texto se obtiene sin formato, es posible obtenerlo con 
formato, tambien es posible seleccionar cualquier parte 
del documento, donde exista texto por supuesto...

Mauricio Baeza

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)