Евгений Мастюгин

Если правильно понял, Вы ищите это

Если ты один единственный специалист, то ты должен провести аудит. После того, как ты проведешь аудит, ты должен предоставить на имя генерального директора служебную записку с комментариями к отчету и предложениями. Сохрани себе копию отчета и зарегистрируй служебную записку, и копию тоже себе. В служебной записки отдельным пунктом, должно быть написано о ВСЕХ нелегальных версиях ПО, которые ты нашел. Следующий документ, это еще одна служебная записка с планом мероприятий по лицензированию ПО или перевод ПО на его бесплатные аналоги. Следующий шаг. Если в течение нескольких дней (не стоит с этим тянуть) план по лицензированию не утвержден и не начались закупки, то ты пишешь заявление на увольнение по собственному желанию.

Документ об аудите и служебная записка об обнаружение не лицензионного ПО, не дает ни кому, в том числе и суду, считать, что вы в сговоре.

Из рекомендаций, даже под предлогом увольнения не устанавливай сам не лицензионное ПО. Если ты не хочешь делать аудит и писать служебные записки, о том, что найдено не лицензионное ПО, то просто увольняйся.

1. Можно промаркировать жёлтый текст и сделать замену прямо в Word (в примере 1 замена во всём тексте), или использовать закладки (Вставка (меню) -> Ссылки (группа) -> Закладки), или использовать инструмент Слияние и брать данные из файла Excel (без VBA). При слиянии связи могут глючить + конечный документ необходимо Объединить (как текущую запись), чтобы при работе с документом поля не обновлялись (Слияние использовать не советую). К тому же поля не поддерживают неразрывные символы Word'а Chr(160) и Chr(30).
   
   Примечание к документам слияния

   
   В таблице Excel есть поле Дата_1 (тип Дата) и поле Дата_2 (тип Дата). Если значение Дата_1 равно 43003 и значение Дата_2 равно 44764, то в формула ниже посчитается с ошибкой (будет значение ИСТИНА):
   

   { IF { MERGEFIELD Дата_1 \@"DD.MM.YYYY' г.'"  \* MERGEFORMAT } = { MERGEFIELD Дата_2 \@"DD.MM.YYYY' г.'"  \* MERGEFORMAT } "ИСТИНА" "ЛОЖЬ" }

   
   

   Option Explicit
   '123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789
   
   Sub Replacement_tags()
     Dim Content_Find As Find ' Объект Find
     
     Set Content_Find = ActiveDocument.Content.Find
     With Content_Find ' Найти маркер
       .ClearFormatting: .Replacement.ClearFormatting ' Очистить формат
       .MatchWildcards = False ' ВАЖНО! Отключить Подстановочные знаки
       
       .Text = "[Шапка]": .Replacement.Text = "Начальнику управления..."
       .Execute Forward:=True, Replace:=wdReplaceAll ' Заменить все маркеры [Шапка]
       
       ' Хитрость: перемещение курсора в конец заменённого текста
       .Execute FindText:=.Replacement.Text, _
         Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceNone
       .Parent.Select ' Выделяем текст для управления курсором
       'Selection.Collapse Direction:=wdCollapseEnd ' Курсор в конец найденного
     End With
   End Sub

2. Можно сразу заменить на дублированный текст:

   .Replacement.Text = "Начальнику управления..." & String(3, Chr(13)) & "Начальнику управления..."

   или вводить количество дублей в переменную Text перед заменой:

   ' Chr(13) - код символа возврата каретки. В других языках более привычная запись "\r"
   
     CapText = "Начальнику управления..."
     CapСount = InputBox("Введите количество 'Шапок'", , 1)
     If Not CInt(Val(CapСount)) = CapСount Then _
       MsgBox "Введите целое число", vbCritical: Exit Sub _
     Else Text = CapText
     
     While CapСount > 1
       Text = Text & String(3, Chr(13)) & CapText
       CapСount = CapСount - 1
     Wend

3. Таблицу можно также подтягивать через Слияние (точнее там создаётся объект OLE, которой глючит больше чем обычные поля - в основном это удержание файла Excel, откуда берутся данные). Удобнее программно создавать таблицу:

   ' Используем хитрость из п.1, если планируем создать таблицу в месте маркера
     
     Set tblNew = ActiveDocument.Tables.Add(Selection.Range, 3, 2)
     With tblNew
       .Columns(1).PreferredWidth = CentimetersToPoints(4) ' Колонка 1, Ширина 4 см
       .Borders(wdBorderTop).LineStyle = wdLineStyleNone ' Границы таблицы, например
       .Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
       .Borders(wdBorderVertical).LineStyle = wdLineStyleDot
       For i = 1 To 2
         .Cell(1, i).Range.Text = "Строка 1; #" & i
       Next i
       .Cell(1, 1).Range.InsertAfter Chr(13) & "Строка 2" ' Добавить текст
       .Cell(tblNew.Rows.count, tblNew.Columns.count).Range.InsertAfter "Последняя ячейка"
     End With

4. Чтобы основной текст нельзя было отредактировать, проще всего создать шаблон Word с поддержкой макросов, основную процедуру (автозапуск) разместить в модуле ThisDocument:

   Private Sub Document_Open()
     Replacement_tags ' Процедура из п.1
   End Sub

   Данные для заполнения шаблона можно поместить в отдельный файл.
   

+
Как использовать отладчик:

1. Открыть MS Word, в тексте написать маркер [Шапка]
2. Открыть VBA в приложении (Alt+F11)
3. Выбирать в меню Insert -> Module
4. Вставить процедуру (из п.1)
5. Нажать F5 (запустится процедура, в которой установлен курсор)

Всем Спасибо!
Вот полный ответ для людей ищущих ответ на тот же вопрос, что и я.
В текущей структуре у меня получилось топология по типу "звезда", в которой ядро - это Cisco 2811, а лучи - Mikrotik RB951. Да, лучше конечно же полносвязную топологию, но уж очень получится адово в плане администрирования - на каждом Микротике по 30 туннелей :). Если хочеться полносвязности, то лучше всего Cisco DMVPN (но дорого, хотя работает красиво и четко).
1. Делаем GRE туннели.
2. Настраиваем IPSec в ТРАНСПОРТНОМ режиме.
3. После чего поднимаем OSPF, чтобы цыска обменивалась маршрутами с микротиками через туннели.

В такой связке у меня заработало. Радости нет предела) Конечно настройки там еще далеки от идеала, но начало есть. Позже отпишусь когда все будет работать в продакшене.

P.S.: сегодня запустил в продакшн. Все отлично и работает. Звук ходит между телефонами, в чем изначально и состояла задача. Работает GREoverIPSec в ТРАНСПОРТНОМ режиме. NAT-Traversal (то есть три точки находятся за NAT) тоже работает. Маршрутизация - через OSPF. Конечно единственный минус - это центральный роутер в ЦО, возможно в будущем как-то получится избавиться от слабого места. Всем спасибо!!!

https://photoshop-master.ru/lessons/photo/pravilno...
Или же юзай кучу слоёв и применяй к ним разные эффекты: блюрь и градиентом лей 10%

codepen.io/Lumore/pen/xgaWpB

У вас противоречие между заголовком и текстом вопроса. "Писать" - это одно (достаточно спеллчекера), а "грамотная русская речь" - это другое, разговорное, тут сторонней подсказки недостаточно.
Известные способы преодоления этой проблемы требуют труда и (главное!) времени. Ну например, читать много классики и русских писателей 20 века (исключая его конец), и ни в коем случае не читать современных (их произведения в контексте вашего вопроса будут отравой, губящей результат такой тренировки).

Пуск -> Панель управления -> Администрирование -> Планировщик заданий.
Добавить задачу и настроить (дальше не стал изучать). Один раз использовал для включения компьютера по времени (каждый день).

Evernote?