Frage : Wort Doc. mit Linie Zahlen in Zugang importieren

Ich habe große Wortdokumente, die routinemäßig auf einige Dutzend Leute für Anmerkung und Bericht verteilt werden. Diese Dokumente werden immer mit Linie Zahlen gedruckt, die zuwiesen automatisch using die Linie Zahleigenschaft im Wort 2007 asigned (wiederbeginnend auf jeder Seite).

What, das ich tun möchte, ist irgendwie Import das Dokument in eine Zugangstabelle mit Feldern für die Seitenzahl, Linie Zahl und die Linie Text. So zum Beispiel, wenn Seite 1 des Dokuments las, wie folgt:

1 das schnelle braune Fuchs jumped
2 über den faulen Hunden.

Hopefully würde ich in der Lage sein, dieses zu importieren da zwei verschiedene Aufzeichnungen und die Seitenzahl außerdem addiere.

Since, welches die Anmerkungen immer auf Hardcopys, ich gebildet werden, müssen achtgeben, dass nicht alles tut, das das Wortdokument ändern konnte, also die Hinweise korrekt bleiben. Ich habe die transfertext Methode versucht, indem ich zuerst den Text in ein Tabelle umwandelte, aber ich kann nicht scheinen, Wort zu erhalten, um eine weiche Rückkehr zu erkennen, um eine neue Tabellenreihe einzusetzen. Plus, die Linie Zahlen erhalten nie übertragen.

I morgens relativ bequemer Schreibenscode, zum etwas Ähnliches, obgleich nicht ein Experte durch irgendwelche zu tun Mittel.

Thanks!

Antwort : Wort Doc. mit Linie Zahlen in Zugang importieren 

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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

Allgemeines VorImportDocWithLineNos ()
'Verursacht durch Helen Feddema 25-Jun-2010
'Last modified durch Helen Feddema 25-Jun-2010

Auf Störung Goto- ErrorHandler

   Schwaches appWord als Word.Application
   Schwaches Doc. als Word.Document
   Schwaches strDocName als Schnur
   Schwaches rst als DAO.Recordset
   Schwaches intLineNo als ganze Zahl
   Schwaches dat als MSForms.DataObject
   Schwaches intLastLineNo als ganze Zahl
   Schwache prps als Gegenstand
   Schwaches prp als Gegenstand
   
   Dat einstellen = neues MSForms.DataObject
   intLineNo = 1
   Rst = CurrentDb.OpenRecordset („tblDocWithLineNos“) einstellen
   strDocName = „G:\Documents\ExpertsExchange\Line-Zahl Test.docx“
   appWord = GetObject (, „Word.Application“) einstellen
   Einstellen Doc. = appWord.Documents.Open (strDocName)
   Prps = doc.BuiltinDocumentProperties einstellen
   intLastLineNo = prps („Zeilenzahl“)
   
   Doc. Auserwählt
   appWord.Selection.HomeKey Maßeinheit: =wdStory

   Für intLineNo = 1 zum intLastLineNo
      Mit appWord.Selection
         .EndKey Maßeinheit: =wdLine, verlängern: =wdExtend
         . Kopie
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Update
         .MoveRight Maßeinheit: =wdCharacter, Zählimpuls: =1
      Ende mit
   Folgendes intLineNo
   
   rst. Abschluss
   
ErrorHandlerExit:
   Unterseeboot herausnehmen

ErrorHandler:
   Wenn = 429 dann irren
      'Wort läuft nicht; Wort mit CreateObject öffnen
      appWord = CreateObject („Word.Application“) einstellen
      Zunächst wieder.aufnehmen
   Sonst
      MsgBox „Störungs-Nr.: “ U. Err.Number _
         u. „im ImportDocWithLineNos Verfahren“ _
         u. „; Beschreibung: “ U. Err.Description
      Zusammenfassung ErrorHandlerExit
   Beenden wenn

Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us