Pytanie : Importowy Słowo Doc z Kreskowy Liczba w Dostęp

I mieć wielki Słowo dokument który rutynowo zakłócać kilka tuzin ludzie dla komentarz i przegląd. Te dokument zawsze drukować z kreskowy liczba który asigned wyznaczać automatycznie using the kreskowy liczba uwypuklać w Słowo 2007 (na 2007 strona).

What I polubić być jakoś import the dokument w Przystępować stół z pole dla the strona liczba, kreskowy liczba, i the kreskowy tekst. W Ten Sposób na przykład, jeżeli Strona (1) the dokument czytać podążać:

1 The szybki szybki lis jumped
2 nad the gnuśny pies.

Hopefully I być sprawnie liczba jako dwa oddzielny rejestr i the strona liczba także.

Since the komentarz zawsze zrobić na ciężki kopia, I musieć ostrożny być który można the Słowo dokument więc the odnosić się zostawać poprawny. I próbować the transfertext metoda the tekst stołowy pierwszy, ale I móc słowo miękki powrót nowy stołowy rząd. Plus, the kreskowy liczba nigdy dostawać nieść.

I am rozsądnie wygodny writing kod coś lubić to, chociaż nie ekspert jakaś sposób.

Thanks!

Odpowiedź : Importowy Słowo Doc z Kreskowy Liczba w Dostęp 

(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:

Jawny Okręt podwodny ImportDocWithLineNos ()
'Tworzyć Helen Feddema 25-Jun-2010
'Ostatni zmodyfikowany Helen Feddema 25-Jun-2010

Na Błąd Rozpoczynający ErrorHandler

   Ciemnawy appWord Jako Word.Application
   Ciemnawy doc Jako Word.Document
   Ciemnawy strDocName Sznurek
   Ciemnawy rst Jako DAO.Recordset
   Ciemnawy intLineNo Jako Integer
   Ciemnawy dat Jako MSForms.DataObject
   Ciemnawy intLastLineNo Jako Integer
   Ciemnawy prps Przedmiot
   Ciemnawy prp Przedmiot
   
   Ustalony dat = Nowy MSForms.DataObject
   intLineNo = (1)
   Ustalony rst = CurrentDb.OpenRecordset ("tblDocWithLineNos")
   strDocName = "G:\Documents\ExpertsExchange\Line Numerowy Test.docx"
   Ustalony appWord = GetObject (, "Word.Application")
   Set doc = appWord.Documents.Open (strDocName)
   Ustalony prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps ("Liczba linia")
   
   doc. Wybiórka
   appWord.Selection.HomeKey Jednostka: =wdStory

   Dla intLineNo = (1) IntLastLineNo
      Z appWord.Selection
         .EndKey Jednostka: =wdLine, Przedłużyć: =wdExtend
         . Kopia
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Aktualizacja
         .MoveRight Jednostka: =wdCharacter, Obliczenie: =1
      Końcówka Z
   Następny intLineNo
   
   rst. Zakończenie
   
ErrorHandlerExit:
   Wyjście Okręt podwodny

ErrorHandler:
   Jeżeli Błądzić = 429 Wtedy
      'Słowo biegać; otwierać Słowo z CreateObject
      Ustawiać appWord = CreateObject ("Word.Application")
      Wznawiać Następnie
   Inny
      MsgBox "Błąd Nie: " & Err.Number _
         & "w ImportDocWithLineNos procedura" _
         & "; Opis: " & Err.Description
      Życiorys ErrorHandlerExit
   Kończyć Jeżeli

Kończyć Okręt podwodny
Inne rozwiązania  
 
programming4us programming4us