Cuestión : Importar la palabra doc. con la línea números en el acceso

Tengo documentos grandes de la palabra que se distribuyan rutinario a varia docena personas para el comentario y la revisión. Estos documentos se imprimen siempre con la línea números que asigned asignaron automáticamente usar la línea característica de los números en la palabra 2007 (que recomienza en cada página). el

What que quisiera hacer es de alguna manera importación el documento en una tabla del acceso con los campos para la página, la línea número, y la línea texto. Tan por ejemplo, si la página 1 del documento leyó como sigue:

1 el jumped
2 del zorro sobre los perros perezosos. el

Hopefully podría importar esto pues dos expedientes separados y agrego la página también. el

Since que los comentarios se hacen siempre en copias duras, yo tiene que tener cuidado de no hacer cualquier cosa que pudo alterar el documento de la palabra así que las referencias siguen siendo correctas. He intentado el método del transfertext convirtiendo el texto a una tabla primero, pero no puedo parecer conseguir palabra para reconocer una vuelta suave para insertar una nueva fila de la tabla. El más, la línea números nunca consigue transportado. código razonablemente cómodo de la escritura del

I para hacer algo similar, aunque no un experto por cualesquiera medios. ¡

Thanks! class= del

Respuesta : Importar la palabra doc. con la línea números en el acceso 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

ImportDocWithLineNos secundario público ()
'Creado por Helen Feddema 25-Jun-2010
'Last modified de Helen Feddema 25-Jun-2010

En el error ErrorHandler indicado

   appWord dévil como Word.Application
   Doc. dévil como Word.Document
   strDocName dévil como secuencia
   Rst dévil como DAO.Recordset
   intLineNo dévil como número entero
   Dat dévil como MSForms.DataObject
   intLastLineNo dévil como número entero
   Prps déviles como objeto
   Prp dévil como objeto
   
   Fijar el dat = nuevo MSForms.DataObject
   intLineNo = 1
   Fijar el rst = CurrentDb.OpenRecordset (los “tblDocWithLineNos”)
   strDocName = “número Test.docx de G:\Documents\ExpertsExchange\Line”
   Fijar el appWord = GetObject (, “Word.Application”)
   Fijar doc. = appWord.Documents.Open (el strDocName)
   Fijar los prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps (“número de líneas”)
   
   doc. Selecto
   unidad de appWord.Selection.HomeKey: =wdStory

   Para el intLineNo = 1 al intLastLineNo
      Con appWord.Selection
         unidad de .EndKey: El =wdLine, extiende: =wdExtend
         . Copia
         dat.GetFromClipboard
         rst.AddNew
         ¡rst! [LineNo] = intLineNo
         ¡rst! [LineText] = dat.GetText
         rst. Actualización
         unidad de .MoveRight: =wdCharacter, cuenta: =1
      Extremo con
   intLineNo siguiente
   
   rst. Cierre
   
ErrorHandlerExit:
   Salir el submarino

ErrorHandler:
   Si entonces yerran = 429
      La 'palabra no está funcionando; abrir la palabra con CreateObject
      Fijar el appWord = CreateObject (“Word.Application”)
      Reasumir después
   
      No. del error de MsgBox “: ” Y _ de Err.Number
         y “en _ del procedimiento de ImportDocWithLineNos”
         y “; Descripción: ” Y Err.Description
      Curriculum vitae ErrorHandlerExit
   Terminar si

Terminar el submarino
Otras soluciones  
 
programming4us programming4us