Pergunta : Importar a palavra Doc com linha números no acesso

Eu tenho os grandes originais da palavra que são distribuídos rotineiramente a diverso dúzia povos para o comentário e a revisão. Estes originais são imprimidos sempre com linha números que asigned atribuíram automaticamente using a linha caraterística dos números na palavra 2007 (que reinicia em cada página). o

What que eu gostaria de fazer é de algum modo importação o original em uma tabela do acesso com campos para o número de página, a linha número, e a linha texto. Tão por exemplo, se a página 1 do original leu como segue:

1 o jumped
2 da raposa sobre os cães preguiçosos. o

Hopefully eu poderia importar isto porque dois registros separados e adiciono o número de página também. o

Since que os comentários são feitos sempre em cópias duras, mim tem que ser cuidadoso não fazer qualquer coisa que pôde alterar o original da palavra assim que as referências permanecem corretas. Eu tentei o método do transfertext convertendo o texto a uma tabela primeiramente, mas eu não posso parecer conseguir a palavra reconhecer um retorno macio para introduzir uma fileira nova da tabela. O sinal de adição, a linha números nunca começ transferido. código razoavelmente confortável da escrita do

I am para fazer qualquer outra coisa semelhante, embora não um perito por alguns meios.

Thanks! class= do

Resposta : Importar a palavra Doc com linha números no acesso 

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 secundário público ()
'Criado por Helen Feddema 25-Jun-2010
'Last modified por Helen Feddema 25-Jun-2010

No erro ErrorHandler empreendedores

   appWord não ofuscante como Word.Application
   Doc não ofuscante como Word.Document
   strDocName não ofuscante como a corda
   Rst não ofuscante como DAO.Recordset
   intLineNo não ofuscante como o inteiro
   Dat não ofuscante como MSForms.DataObject
   intLastLineNo não ofuscante como o inteiro
   Prps não ofuscantes como o objeto
   Prp não ofuscante como o objeto
   
   Ajustar o dat = MSForms.DataObject novo
   intLineNo = 1
   Ajustar o rst = o CurrentDb.OpenRecordset (os “tblDocWithLineNos”)
   strDocName = de “número Test.docx G:\Documents\ExpertsExchange\Line”
   Ajustar o appWord = o GetObject (, “Word.Application”)
   Ajustar doc = appWord.Documents.Open (o strDocName)
   Ajustar prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps (“número das linhas”)
   
   doc. Seleto
   unidade de appWord.Selection.HomeKey: =wdStory

   Para o intLineNo = 1 ao intLastLineNo
      Com appWord.Selection
         unidade de .EndKey: O =wdLine, estende: =wdExtend
         . Cópia
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Atualização
         unidade de .MoveRight: =wdCharacter, contagem: =1
      Extremidade com
   intLineNo seguinte
   
   rst. Fim
   
ErrorHandlerExit:
   Retirar o submarino

ErrorHandler:
   Se erram = 429 então
      'A palavra não está funcionando; abrir a palavra com CreateObject
      Ajustar o appWord = o CreateObject (“Word.Application”)
      Recomeçar em seguida
   Mais
      No. erro de MsgBox do “: ” & _ de Err.Number
         & “_ no procedimento de ImportDocWithLineNos”
         & “; Descrição: ” & Err.Description
      Resumo ErrorHandlerExit
   Terminar se

Terminar o submarino
Outras soluções  
 
programming4us programming4us