Тегирование строк Word

не поняла, в чем суть номеров
---
возможно
--набивала бы текст в ексель/аксесс(код, сортировка, номер,текст)
--программно создавала НТМ ,хотя в минимальном объеме тегов(30-30)

полученный документ можно смотреть в НТМ или ВОРД

Кроме закладок и свойств, можно еще предложить так называемые переменные Word (ActveDocument.Variables). Они могут сохраняться вместе с документом. Создать их можно только через макрос. Можно было бы переменные для строк назвать типа Line00001,  Line00001... и т.д., а значения - это символы соответствующих строк.
Чтобы двигаться по строкам, надо организовать цикл по абзацам, а внутри них действовать так:
1. Запомнить Selection.range.Start (как начало диапазона первой строки)
2. Выполнить Selection.GoTo What:=wdGoToLine, Which:=wdGoToNext, count:=1
3. Запомнить Selection.Range.Start -1  (как конец диапазона первой строки)
4. Из найденного диапазона выделяются символы строки (.Text), но вы можете в очередной переменной документа хранить как значение строки, так и границы диапазона, напр. в виде строки:
           |000045|000083|
это пример значения строковой переменной, содержащей позиции начала и конца диапазона строки. Потом такое значение легко разобрать макросом извлечения значения строки.
5. Далее выполнять шаги 1-3 пока конец диапазона очередной строки не превысит конец диапазона текущего абзаца.
6. И так далее по всем абзацам.
Потом для извлечения строк нужно написать отдельный несложный макрос.
Недостаток этого метода - нужно проводить пересоздание переменных, связанных со строками при любом изменении текста в документе.

Сам я пользуюсь такими подпрограммами (далее подпрограммы записи и чтения Variables  и проверка этих подпрограмм). Если переменной с указанным именем нет, то функция GetDocVariable возвращает значение пустой строки.

Public Function GetDocVariable(varname) As String
'Get value from a document variable
Dim dv As String
dv = ""
On Error Resume Next
dv = ActiveDocument.Variables(varname).Value
On Error GoTo 0
GetDocVariable = dv
End Function

Public Sub SetDocVariable(varname, varvalue)
'Set value to a document variable
On Error Resume Next
ActiveDocument.Variables(varname).Delete
ActiveDocument.Variables.Add Name:=varname, Value:=varvalue
On Error GoTo 0
End Sub

Sub test_doc_variable()
Dim vv as String
SetDocVariable "BD", "4"
vv = GetDocVariable("BD")
End Sub