Question : Importer le Doc. de mot avec la ligne nombres dans l'accès

J'ai de grands documents de mot qui sont par habitude distribués à des plusieurs douzaine personnes pour le commentaire et la revue. Ces documents sont toujours imprimés avec la ligne nombres qui asigned ont assigné automatiquement using la ligne dispositif de nombres dans le mot 2007 (se remettant en marche à chaque page). le

What que je voudrais faire est de façon ou d'autre importation le document dans une table d'accès avec des champs pour le numéro de page, la ligne nombre, et la ligne texte. Tellement par exemple, si la page 1 du document lisait comme suit :

1 le jumped
2 de renard au-dessus des chiens paresseux. le

Hopefully je pourrais importer ceci car deux disques séparés et ajoute le numéro de page aussi bien. le

Since que les commentaires sont toujours formulés sur les imprimés, je doivent faire attention à ne pas faire quelque chose qui pourrait changer le document de mot ainsi les références demeurent correctes. J'ai essayé la méthode de transfertext en convertissant le texte en table d'abord, mais je ne peux pas sembler obtenir le mot pour identifier un retour doux pour insérer une nouvelle rangée de table. Le plus, la ligne nombres n'obtiennent jamais reporté. code raisonnablement confortable d'écriture du

I AM pour faire n'importe quoi de pareil, bien que pas un expert par quels moyens.

Thanks ! class= de

Réponse : Importer le Doc. de mot avec la ligne nombres dans l'accès

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 secondaire public () 'Créé par Helen Feddema 25-Jun-2010 'Last modified par Helen Feddema 25-Jun-2010 Sur l'erreur ErrorHandler GoTo Faible appWord comme Word.Application Faible Doc. comme Word.Document Faible strDocName comme corde Faible rst comme DAO.Recordset Faible intLineNo comme nombre entier Faible dat comme MSForms.DataObject Faible intLastLineNo comme nombre entier Faibles prps comme objet Faible prp comme objet Placer le dat = nouveau MSForms.DataObject intLineNo = 1 Placer le rst = le CurrentDb.OpenRecordset (les « tblDocWithLineNos ») strDocName = « nombre Test.docx de G:\Documents\ExpertsExchange\Line » Placer l'appWord = le GetObject (, « Word.Application ») Placer Doc. = appWord.Documents.Open (le strDocName) Placer les prps = le doc.BuiltinDocumentProperties intLastLineNo = prps (« nombre des lignes ») Doc. Choisi unité d'appWord.Selection.HomeKey : =wdStory Pour l'intLineNo = 1 à l'intLastLineNo Avec appWord.Selection unité de .EndKey : Le =wdLine, se prolongent : =wdExtend . Copie dat.GetFromClipboard rst.AddNew rst ! [LineNo] = intLineNo rst ! [LineText] = dat.GetText rst. Mise à jour unité de .MoveRight : =wdCharacter, compte : =1 Extrémité avec Prochain intLineNo rst. Fin ErrorHandlerExit : Sortir le sous-marin ErrorHandler : Si errent = 429 alors Le 'mot ne fonctionne pas ; ouvrir le mot avec CreateObject Placer l'appWord = le CreateObject (« Word.Application ») Reprendre après Autrement No. d'erreur de MsgBox « :  » Et _ d'Err.Number et _ « d'ImportDocWithLineNos de procédé » et « ; Description :  » Et Err.Description Résumé ErrorHandlerExit Finir si Finir le sous-marin