Questione : Importare il documento di parola con la linea numeri in accesso

Ho grandi documenti di parola che si distribuiscono ordinariamente alle parecchia dozzina genti per il commento e la revisione. Questi documenti sono stampati sempre con la linea numeri che asigned hanno assegnato automaticamente using la linea caratteristica di numeri nella parola 2007 (che ricomincia ad ogni pagina). il

What che vorrei fare è in qualche modo importazione il documento in una tabella di accesso con i campi per il numero di pagina, la linea numero e la linea testo. Così per esempio, se la pagina 1 del documento legga come segue:

1 il jumped
2 della volpe sopra i cani pigri.

Hopefully potrei importare questo poichè due annotazioni separate ed aggiungo il numero di pagina pure. il

Since che le osservazioni sono formulate sempre sulle copie su carta, io deve stare attento a non fare nulla che potrebbe alterare il documento di parola in modo da i riferimenti rimangono corretti. Ho provato il metodo del transfertext convertendo il testo in tabella in primo luogo, ma non posso sembrare convincere la parola per riconoscere un ritorno morbido per inserire una nuova fila della tabella. Il più, la linea numeri non ottiene mai rinviato. codice ragionevolmente comodo di scrittura del

I per fare qualcosa di simile, anche se non un esperto da c'è ne mezzi.

Thanks! class= del

Risposta : Importare il documento di parola con la linea numeri in accesso 

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 secondario pubblico ()
'Generato da Helen Feddema 25-Jun-2010
'Last modified da Helen Feddema 25-Jun-2010

Sull'errore ErrorHandler di avanzamento

   appWord fioco come Word.Application
   Documento fioco come Word.Document
   strDocName fioco come stringa
   Rst fioco come DAO.Recordset
   intLineNo fioco come numero intero
   Dat fioco come MSForms.DataObject
   intLastLineNo fioco come numero intero
   Prps fiochi come oggetto
   Prp fioco come oggetto
   
   Regolare il dat = nuovo MSForms.DataObject
   intLineNo = 1
   Regolare il rst = CurrentDb.OpenRecordset (“tblDocWithLineNos„)
   strDocName = “numero Test.docx di G:\Documents\ExpertsExchange\Line„
   Regolare il appWord = GetObject (, “Word.Application„)
   Regolar documento = appWord.Documents.Open (strDocName)
   Regolare i prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps (“numero delle linee„)
   
   documento. Prescelto
   unità di appWord.Selection.HomeKey: =wdStory

   Per il intLineNo = 1 al intLastLineNo
      Con appWord.Selection
         unità di .EndKey: Il =wdLine, estende: =wdExtend
         . Copia
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Aggiornamento
         unità di .MoveRight: =wdCharacter, conteggio: =1
      Estremità con
   intLineNo seguente
   
   rst. Fine
   
ErrorHandlerExit:
   Uscire il sommergibile

ErrorHandler:
   Se allora errano = 429
      'La parola non sta funzionando; aprire la parola con CreateObject
      Regolare il appWord = CreateObject (“Word.Application„)
      Riprendere dopo
   Altrimenti
      No. di errore di MsgBox “: „ & _ di Err.Number
         & “_ in procedura di ImportDocWithLineNos„
         & “; Descrizione: „ & Err.Description
      Riassunto ErrorHandlerExit
   Concluder se

Concludere il sommergibile
Altre soluzioni  
 
programming4us programming4us