[BolgarchukR]

Спасибо! Сработало. Хотя, не с первого раза. Жаль, что нельзя копировать рабочий код и просто его вставлять, приходится делать по кусочкам. Впрочем, если сильно захочется поделиться уже готовым, то думаю можно сделать документ типа такого как я дал в шапке. Но все токи важнее разобраться в принципах работы и делать самому. Интересно, какие еще полезные возможности скрывают поля. Надо будет поискать как выводить стандартную статистику, та что доступна при нажатии на "число слов". Я пока нашел как полями добавлять "число знаков без пробелов" { NUMCHARS \* Arabic \* MERGEFORMAT }, еще поищу как добавить "число знаков с пробелами", количество абзацев и строк.

[Iska]

Жаль, что нельзя копировать рабочий код и просто его вставлять »

Обратное — как скопировать его с Word'а — тоже верно . При попытке копирования, Word помещает в буфер обмена множество форматов:

Скрытый текст

но простого, банального текста, который бы можно было просто взять и вставить в виде готового кода на форуме — нетути . Так и приходится ручками набивать.

Можно, конечно, выцарапывать кусочки из форматов RTF или HTML, но это будет ещё медленнее.

[BolgarchukR]

Обратное — как скопировать его с Word'а — тоже верно »

Да, увы... Наверно пока лучший вариант решения данной проблемы это делится готовыми документами с кодом. А при необходимости обсудить код копировать его и распознавать скринсервером файнридера.
У меня еще возникла необходимость вывести в данном поле путь к документу. Есть FILENAME \p \* MERGEFORMAT показывающий и путь, и имя документа. Есть просто FILENAME \ * MERGEFORMAT показывающий одно только имя файла. А как вывести путь без имени? Это могло бы быть полезно, к примеру, для использования данного поля в макросах и актокликерах. Тогда когда понадобиться открыть не файл, а именно путь где он расположен. Т.е. можно скопировать данное поле вставить в адресную строку, и откроется соответствующая папка. Если же брать с именем, то откроется не папка а файл. Как удалить имя с пути?

[Iska]

BolgarchukR, не вижу вариантов решения без участия макроса.

[BolgarchukR]

Может кому надо попробую прикрепить файл в котором по аналогии сделал возможность показывать в днях часах и минутах редактирование, и более удобный рзамер файла. Вроде создать такой код, дело не хитрое, но пришлось помучатся.

не вижу вариантов решения без участия макроса »

Жаль. Ну тогда, если не затруднит дайте пожалуйста макрос. А то я в них не силен.

[Iska]

дайте пожалуйста макрос.»

Код:

Option Explicit

Sub InsertDocumentPath()
    If Len(Trim(ActiveDocument.Path)) > 0 Then
        With Selection
            .Collapse wdCollapseStart
            
            If .Type = wdSelectionIP Then
                .InsertAfter ActiveDocument.Path
            End If
        End With
    Else
        MsgBox "Save new document before using macro", vbInformation + vbOKOnly, "New document"
    End If
End Sub