Vraag : Doc. van Word van de invoer met de Aantallen van de Lijn in Toegang

Ik heb de grote documenten van Word die uit routine aan verscheidene dozijn mensen voor commentaar en overzicht worden verspreid. Deze documenten zijn altijd gedrukt met lijnaantallen die asigned toegewezen automatisch gebruikend de lijnaantallen voorkomen in Word 2007 die zijn (op elke pagina opnieuw beginnen).

What die ik zou willen om doen ben op de een of andere manier de invoer het document in een lijst van de Toegang met gebieden voor het paginaaantal, lijnaantal, en de lijntekst. Zo bijvoorbeeld, als Pagina 1 van het als volgt gelezen document:

1 de snelle bruine vos jumped
2 over de luie honden.

Hopefully ik dit zou kunnen invoeren aangezien twee verslagen scheiden en het paginaaantal eveneens toevoegen.

Since de commentaren altijd op duurzame kopieën worden gemaakt, moet ik zorgvuldig zijn om om het even wat niet te doen die het document van Word zou kunnen veranderen zodat blijven de verwijzingen correct. Ik heb de transfertextmethode door de tekst in een lijst om te zetten eerst geprobeerd, maar ik kan niet schijnen om woord ertoe te brengen om een zachte terugkeer te erkennen om een nieuwe lijstrij op te nemen. Plus, worden de lijnaantallen nooit overgebracht.

I am redelijk comfortabele het schrijven code om iets in die aard, hoewel niet een deskundige op om het even welke manier te doen.

Thanks!

Antwoord : Doc. van Word van de invoer met de Aantallen van de Lijn in Toegang 

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:

Openbare SubImportDocWithLineNos ()
'Gecre�ërd door Helen Feddema 25-Jun-2010
'Duur gewijzigd door Helen Feddema 25-Jun-2010

Op Fout GoTo ErrorHandler

   Schemerige appWord als Word.Application
   Schemerig doc. als Word.Document
   Schemerige strDocName als Koord
   Schemerige rst als DAO.Recordset
   Schemerige intLineNo als Geheel
   Schemerige dat als MSForms.DataObject
   Schemerige intLastLineNo als Geheel
   Schemerige prps als Voorwerp
   Schemerige prp als Voorwerp
   
   Reeks dat = Nieuwe MSForms.DataObject
   intLineNo = 1
   Reeks rst = CurrentDb.OpenRecordset („tblDocWithLineNos“)
   strDocName = „G:\Documents\ExpertsExchange\Line Aantal Test.docx“
   Reeks appWord = GetObject (, „Word.Application“)
   Vastgesteld doc. = appWord.Documents.Open (strDocName)
   Reeks prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps („Aantal lijnen“)
   
   doc. Selecteer
   appWord.Selection.HomeKey eenheid: =wdStory

   Voor intLineNo = 1 aan intLastLineNo
      Met appWord.Selection
         .EndKey eenheid: =wdLine, breidt zich uit: =wdExtend
         . Exemplaar
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Update
         .MoveRight eenheid: =wdCharacter, Telling: =1
      Eind met
   Volgende intLineNo
   
   rst. Sluit
   
ErrorHandlerExit:
   Sub van de uitgang

ErrorHandler:
   Als me = 429 toen vergis
      'Word loopt niet; open Word met CreateObject
      Reeks appWord = CreateObject („Word.Application“)
      Hervat daarna
   Anders
      Fout Nr van MsgBox de „: “ & Err.Number _
         & „in procedure ImportDocWithLineNos“ _
         & „; Beschrijving: “ & Err.Description
      Hervat ErrorHandlerExit
   Beëindig als

Beëindig Sub
Andere oplossingen  
 
programming4us programming4us