Вопрос : Импортируйте слово Doc с линией номерами в доступ

Я имею большие документы слова по заведенному порядку распределены к нескольким дюжины людей для комментария и просмотрения. Эти документы всегда напечатаны с линией номерами asigned задали автоматически using линия характеристика номеров в слове 2007 (повторяя старт на каждой странице).

What, котор я хотел был бы сделать будет как-то ввоз документ в таблицу доступа с полями для номера страницы, линии номера, и линии текста. Настолько например, если страница 1 документа прочитала, то следующим образом:

1 быстро коричневое jumped
2 лисицы над ленивыми собаками.

Hopefully я мог бы импортировать это по мере того как 2 отдельно показателя и добавляю номер страницы также.

Since, котор комментарии всегда сделаны на документальных копия, я должно быть осторожным не сделать что-нибыдь которое могло изменить документ слова поэтому справки остают правильно. Я имею судимо метод transfertext путем преобразовывать текст к таблице во-первых, но я не могу показаться, что получили, что слово узнал мягкое возвращение для того чтобы ввести новый рядок таблицы. Положительная величина, линия номера никогда не получает снесенной сверх. Кодий сочинительства

I am разумно удобное для того чтобы сделать что-нибудь подобное, хотя не специалист любыми середины.

Thanks! class=

Ответ : Импортируйте слово Doc с линией номерами в доступ 

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:

Общественное Sub ImportDocWithLineNos ()
'Создано Хелен Feddema 25-Jun-2010
'Последнее доработанное Хелен Feddema 25-Jun-2010

На ошибке переход ErrorHandler

   Тусклое appWord как Word.Application
   Тусклый doc как Word.Document
   Тусклое strDocName как шнур
   Тусклое rst как DAO.Recordset
   Тусклое intLineNo как интежер
   Тусклое dat как MSForms.DataObject
   Тусклое intLastLineNo как интежер
   Тусклые prps как предмет
   Тусклое prp как предмет
   
   Установите dat = новое MSForms.DataObject
   intLineNo = 1
   Установите rst = CurrentDb.OpenRecordset («tblDocWithLineNos»)
   strDocName = «номер Test.docx G:\Documents\ExpertsExchange\Line»
   Установите appWord = GetObject (, «Word.Application»)
   Установите doc = appWord.Documents.Open (strDocName)
   Установите prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps («количество линий»)
   
   doc. Отборно
   блок appWord.Selection.HomeKey: =wdStory

   Для intLineNo = 1 к intLastLineNo
      С appWord.Selection
         блок .EndKey: =wdLine, удлиняет: =wdExtend
         . Экземпляр
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNo
         rst! [LineText] = dat.GetText
         rst. Уточнение
         блок .MoveRight: =wdCharacter, отсчет: =1
      Конец с
   Следующее intLineNo
   
   rst. Конец
   
ErrorHandlerExit:
   Выходите подводная лодка

ErrorHandler:
   Если заблуждаются = 429 после этого
      'Слово не бежит; раскройте слово с CreateObject
      Установите appWord = CreateObject («Word.Application»)
      Возобновьте затем
   Еще
      Нет ошибки MsgBox «: » & _ Err.Number
         & «в _ процедуре по ImportDocWithLineNos»
         & «; Описание: » & Err.Description
      Резюме ErrorHandlerExit
   Закончитесь если

Закончите подводную лодку
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us