Вопрос : Мичрософт Шорд - как использовать архивы Automark

Я имею Кодего создает архив Automark. Как я использую его?

Below будет Кодий я установил в редактор VB Word.

When, котор я вписываю новое предложение содержит слово ранее было индексировано и бежит это Кодий, индекс в конце документа не отражает слово в новом предложении с ранее-индексированной помощью word.

Please этот MsWord вскользь user.

Thanks!

Lenny class= " ясное " >
> " codeSnippet " class=
class= " lineNumbers "
class= 
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:
>Option " class= " id= " codeSnippet936935
class=

Ответ : Мичрософт Шорд - как использовать архивы Automark

Фактическ Lenny, teylyn уже объяснило как сделать работу ручно. Возможно ее польза если архив «согласования» термине, был битом смущая, то, только Майкрософт иногда вызывают его который также.

Все, котор я сделал должно было обеспечить некоторую автоматизацию для fiddly части.

Я теперь добавлял некоторое Кодего для того чтобы автоматизировать пользу архива также и своего творения.
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:
60:

ption точное


Sub CreateAutoMarkFile ()
Тусклое fld как поле
Тусклое strText как шнур
Тусклый rw как рядок
Тусклое tbl как таблица
Тусклое bFound как булевско
Тусклый doc как Word.Document
Тусклое DocA как документ

Установите DocA = ActiveDocument
Установите doc = Documents.Add
Установите tbl = doc. Tables.Add (doc. Ряд, 1, 2)
Для каждого fld в DocA.Fields
    Если fld. Тип = wdFieldIndexEntry после этого
        strText = GetIndexText (fld)
        bFound = ложно
        Для каждого rw в tbl. Рядки
            Если GetCellText, то (rw. Клетки (1)) = strText после этого
                bFound = True
                Выходите для
            Закончитесь если
        Следующий rw
        Если не bFound после этого
            Если Len (tbl. Rows.Last.Range) = 6 после этого
                Установите rw = tbl. Rows.Last
            Еще
                Установите rw = tbl. Rows.Add
            Закончитесь если
            rw. Клетки (1).Range.Text = strText
            rw. Клетки (2).Range.Text = strText
        Закончитесь если
    Закончитесь если
Следующее fld

doc.SaveAs «C:\MyFolder\MyAutoMark.doc»
doc. Близкие wdDoNotSaveChanges
DocA.Indexes.AutoMarkEntries «C:\MyFolder\MyAutoMark.doc»

Подводная лодка конца

Функция GetCellText (cl как Word.Cell) как шнур
    Тусклое rng как ряд
    Установите rng = cl. Ряд
    wdCharacter rng.MoveEnd, -1
    GetCellText = rng. Текст
Функция конца

Функция GetIndexText (fld как Word.Field) как шнур
    Тусклый p как интежер
    Тусклый q как интежер
    Тусклое strText как шнур
    
    strText = fld. Code.Text
    p = InStr (strText, """")
    q = InStrRev (strText, """")
    GetIndexText = Mid$ (strText, p + 1, q - p - 1)
Функция конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
    •
  •  Шнур ошибки в блоке задвижки?
    •
  •  сколько вариант сервера SQL на одной машине
    •
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
    •
  •  Активно директория DNS записывает вопрос
    •
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
    •
  •  Прокладчик OCE 9400 не начинает
    •
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
    •
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
    •
  •  VB6 к VS2010 - консультации тренировки?
    •
     
    programming4us programming4us