AutoCAD Автокад

Разработки создавались исключительно в нерабочее время в домашних условиях, поэтому авторство не распространяется на юридических лиц никоим образом.


Строительные отделы проектируют в архитектурной среде ArchiCAD.
Конструктивная часть исполняется в среде AutoCAD.

Таким образом, смежные отделы получают заготовки в формате *.pln и *.dwg.

Инженеры смежных отделов предпочитают работать на планировках ArchiCAD, что допустимо, если объект находится на рабочей машине, и не переносится домой.
Файл ArchiCAD достигает объема до 25 мегабайт, что озадачивает пользователей.

Поэтому система интеграции обоих систем стала востребована.

Методичка по интеграции чертёжных сред прилагается.

Переходим в среду AutoCAD для переформатирования полуфабрикатов чертежей.

В результате преобразований при соблюдении всех процедур мы получаем планировки объекта в виде матрицы с ориентиром, выставленным на пересечение осей – единственного неизменного ориентира. Ориентир – линия из начала координат до пересечения осей с целыми значениями координат точек. Принципиально важно выстроить матрицу из форматов с целочисленными координатами, чтобы при копировании объектов можно было вводить значение приращения, не сомневаясь.

 Производим чистку объектов и получаем заготовку, в которой будем чертить.

Целесообразно применять AutoCAD с однооконным интерфейсом, и в другом окне открываем шаблон с рамкой. Копируем с базовой точкой «0,0» и вставляем в матрицу.

Открываем «большой лист» с идеализированным заготовками-блоками.
Копируем с листа и вставляем в новый чертёж блоки и готовые запасные части.

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

Преимущество способа экспорта, указанного в методичке: минимальные потери. При этом происходит отвлечение от свойств, бывших в ArchiCAD.
Например, оси оказываются в слое Lines. Можно привнести в чертёж элемент из «большого листа», изображающий ось, и распространить её свойства на все оси.

Целесообразно закрыть от изменений слои Walls, Windows, Doors, Columns и др.

Если же строительная часть изначально создавалась в AutoCAD, неизбежны проблемы, связанные с несоответствием элементов и их названием в слоях, из-за чего теряется удобство контроля.

Решение: открывается шаблон формата с рамкой, и именно в него вносится создаваемый лист, переданный из строительного отдела.

В шаблонах AutoCAD заведомо содержатся описания слоёв, цветов, типов линий, привязок, стилей текста, стилей размеров, шагов.

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

В результате имеем удобоваримый настроенный плоский цветной план.

Аналогично, набрав запчастей, создаём систему из идеальных элементов.

Удобно настроить панели, выставив необходимые и достаточные команды.
Удобно иметь включенную постоянно панель свойств. Имена блоков – цифровые.

Отмечу, что при работе не возникает потребности написания Lisp-приложений.
Вся возможная автоматизация осуществлена при профессиональном подходе.

Советую применять систему наименования файлов вида 1234-tema-list-data.dwg.
где 1234 – шифр; TEMA – тематика в кратком виде; LIST – проектируемый лист; DATA – дата изменений. (2376-avers-ov-2204.dwg). Удобство поиска и взаимодействия.

 Особо остановлюсь на создании спецификаций в среде Word.
Мною созданы шаблоны спецификаций формата А3 и А4.

С технологией заполнения можно ознакомиться в прилагаемой методичке.

Спецификации Word являются более технологичными по сравнению с другими.

При правильном разделении труда, составление спецификаций не требует несвойственных операций, таких как выравнивание, центрирование текста.
Преимуществом является возможность использования выпущенных проектов и массивов данных, использование шаблонов заготовок, взаимодействие со средами Excel, AutoCAD абсолютно без потерь данных.
Штамп основной надписи редактируется в среде Excel.
Преимущество: текст вписан в ячейки максимально большим размером шрифта.

Желательно настроить панели инструментов Word из необходимых и достаточных команд редактора. Пример настройки приводится в методичке.

Наверняка в любой проектной организации имеются примеры спецификаций, выполненных в средах AutoCAD, ArchiCAD и Excel.
Очевидно, не составляет труда сделать заготовку «большой спецификации», в ней упорядочить массив данных для последующего использования.

Проблемы и их решения подробно рассмотрены в методичке.
Проблемы возникают при несоблюдении принципов разделения труда.

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


Касательно макросов Word, изначально они создавались для форматирования текстов, принесённых из интернета и для экономичной распечатки результатов расчётов.

Экономия в 7 раз – наиболее востребована для ознакомительной распечатки.

Пример: форматирование произвольного текста, будь то текст закона или реферат.
Макросы упорядочения знаков препинания вылизывают документ донельзя.

Примеры форматирования расчётных таблиц – в сборнике проектов на диске.

Шаблон normal.dot представляет выверенный набор необходимых и достаточных команд, расставленных на панели правильным образом.
Таким образом, наяву реализован принцип «подумал-сделал».

Шаблон, доведённый до абсурда: режим просмотра – полноэкранный режим с одной панелью, причём вторая полоса выезжает при наведении курсора.
Показательно, что секрет был обнаружен пользователями, а не мною – автором.


Шаблоны документации – принципиальное качество стандартными средствами.
  Уважаемые коллеги!

Отвечаю на вопрос: "в чём разница между
"Рисованием", и Проектированием".

*   *   *
"Рисование" - отношение к САПР как к кульману
с мышкой, не применение средств комп техники,
недостижимых вручную. Пользователь оперирует
понятиями: Линия, Кольцо, Кружок.
Распред. по слоям не даёт качественного скачка.
Слои называются «Tonk»... знакомо, правда ведь ?

1-й этап отхода от рисования - хотя бы 1 блок,
как правило, кривой и непотребный в дальнейшем.

2-й этап - куча блоков более-менее качественных,
но никому неинтересных, кроме авторов.

3-й этап - создание «оболочки» с «окнами» для
вставки «блоков» по местам. Недостаток: авторы
не знают Вашей специфики, и их разработки Вас
не удовлетворяют. Платить им - нецелесообразно.
После этого многие возвращаются на этап 2, или 1.

4-й этап – програм. среда для расчётов, выдающая
DXF, понимаемый Автокадом. Всё красиво, но...
Зачастую нет смысла перерисовывать схему, чтобы
изменить определённый цифровой параметр.
Лучше абстрагироваться от планов и схем,
и оперировать исключительно цифрами и
формулами. И по ним чертить.

5-й этап - Разделение труда.
Расчёты - в расчётных; черчение - в чертёжных.
Спецификации - без 100% авто-составления.
Нередактируемый перенос информации вредит.

*   *   *
Если человек на месте каждый раз вырисовывает
краник или приборчик из примитивов, или даже
копирует по формату кучки линий, или таскает
форматы из бывших проектов - он РИСУЕТ.

Если же человек при составлении схем или
планов не задумывается о соблюдении норм
и качестве черчения, ибо имеет настроенное
рабочее место; составляет схемы из блоков,
при этом не нуждаясь ни в их повороте,
ни в масштабировании (всё есть в комплекте);
всё получается распределённым по слоям,
элементы обладают свойствами ByLayer... -
Человек ПРОЕКТИРУЕТ.

 *   *   *
Архитекторы (на примере АРХИкад) имеют
инструмент, оперирующий с чисто 3D:
стенами, окнами, крышами, объектами.
Режем любой разрез, любой фасад. 
ArchiCAD 7 работает на компах 1997 года.
Правильный экспорт в Автокад обеспечен.
3D в ОВ и ВК почти не требуется.
НАДстройки АрхиКАДа для HVAC тоже есть.

*   *   *
Касательно работы конструкторских отделов,
мне думается, что система должна нести
в свойствах элементов информацию о...
W, I - характеристиках составляющих;
E, G - информацию о свойствах материала;
N, M - информацию о нагрузках и моментах.

Система рассчитывается и оптимизируется,
причём без Автокада. Вы ведь оптимизируете ?

Понятно, что это работает лишь в схемах
2D & 3D систем колонн, панелей, ригелей,
баз, связей, оболочек и структур.

Если есть необходимость (а она есть)
в изображении баз колонн, фланцев,
сварных швов, болтов и усл. обозн.,
следует обратиться к опыту коллег,
предлагающих свои разработки.

Вероятно, Вам не подойдёт их стиль,
но Вы можете перенять всё полезное,
а именно: распределение по слоям;
цветам; наличие готовых элементов.

*   *   *
Признак системности - совместимость
с другими системами проектирования,
но главное - с работой других отделов.

*   *   *
Имейте настроенное рабочее место,
настроенные заготовки, шаблоны,
форматы, тем самым обеспечьте себе
КАЧЕСТВО ПРОЕКТИРОВАНИЯ.


Настройка, Блоки, Шаблоны, Обучение.


Принципиальное качество стандартными средствами.

Интеграция ArchiCAD перевод в AutoCAD индексация DWG

Плэйлист CAD        https://www.youtube.com/watch?v=tSxsxoAgbRc&list=PLBBTP9oVY7IZCI0Wsf_ziD9_vmk-9lHhK
 

Word Macros Макрос

Sub BLACK()
' BLACK Макрос черновик
'
Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

Selection.WholeStory
ActiveDocument.AttachedTemplate.LanguageID = wdRussian

With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = False
.HyphenationZone = CentimetersToPoints(0.6)
.ConsecutiveHyphensLimit = 0
End With

Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 6
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
End With

With ActiveDocument.PageSetup
'.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(1)
.LeftMargin = CentimetersToPoints(1)
.RightMargin = CentimetersToPoints(1)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(0)
.FooterDistance = CentimetersToPoints(0)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.OddAndEvenPagesHeaderFooter = True
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
End With

With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = False
.HyphenationZone = CentimetersToPoints(0.6)
.ConsecutiveHyphensLimit = 0
End With

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If

With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=3
.EvenlySpaced = True
.LineBetween = True
.Width = CentimetersToPoints(6.13)
.Spacing = CentimetersToPoints(0.3)
End With

Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

End Sub



Sub CLEAR()
' CLEAR Макрос чистовик
'
Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

Selection.WholeStory
ActiveDocument.AttachedTemplate.LanguageID = wdRussian

With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = False
.HyphenationZone = CentimetersToPoints(0.6)
.ConsecutiveHyphensLimit = 0
End With

Selection.Font.Name = "Times New Roman"
Selection.Font.Size = 14
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify

With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceAfter = 0
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
End With

With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimetersToPoints(1)
.BottomMargin = CentimetersToPoints(2.5)
.LeftMargin = CentimetersToPoints(2.5)
.RightMargin = CentimetersToPoints(1.2)
.Gutter = CentimetersToPoints(0)
.HeaderDistance = CentimetersToPoints(0)
.FooterDistance = CentimetersToPoints(0)
.PageWidth = CentimetersToPoints(21)
.PageHeight = CentimetersToPoints(29.7)
.FirstPageTray = wdPrinterDefaultBin
.OtherPagesTray = wdPrinterDefaultBin
.OddAndEvenPagesHeaderFooter = True
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = True
.MirrorMargins = False
End With

With ActiveDocument
.AutoHyphenation = False
.HyphenateCaps = False
.HyphenationZone = CentimetersToPoints(0.6)
.ConsecutiveHyphensLimit = 0
End With

If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If

If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Or ActiveWindow.ActivePane.View.Type _
= wdMasterView Then
ActiveWindow.ActivePane.View.Type = wdPageView
End If

With ActiveDocument.PageSetup.TextColumns
.SetCount NumColumns:=1
.EvenlySpaced = True
.LineBetween = True
'.Width = CentimetersToPoints(6.13)
'.Spacing = CentimetersToPoints(0.3)
End With

Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

End Sub



Sub ZNAK()
' ZNAK Макрос знаки препинания
'
Dim a(17), b(17) As Variant

a(1) = "--": b(1) = " " + ChrW(8211) + " "
a(2) = ChrW(31): b(2) = ""
a(3) = ChrW(8212): b(3) = ChrW(8211)
a(4) = ChrW(8213): b(4) = ChrW(8211)
a(5) = ChrW(9472): b(5) = ChrW(8211)
a(6) = ChrW(9644): b(6) = ChrW(8211)
a(7) = "№": b(7) = "№ "
a(8) = "№ №": b(8) = "№№ "
a(9) = "%": b(9) = "% "
a(10) = "% %": b(10) = "%% "
a(11) = " %": b(11) = "% "
a(12) = " % %": b(12) = "%% "
a(13) = "$": b(13) = " $ "
a(14) = "+": b(14) = " + "
a(15) = "/": b(15) = " / "
a(16) = "*": b(16) = " * "
a(17) = ":": b(17) = ": "

Dim n(138), y(138) As Variant

'Пробелы
n(1) = "   ": y(1) = " "
n(2) = "  ": y(2) = " "

'Кавычки
n(3) = ChrW(8220): y(3) = ChrW(171)
n(4) = ChrW(8221): y(4) = ChrW(187)
n(5) = ChrW(8222): y(5) = ChrW(187)
n(6) = ChrW(34): y(6) = ChrW(171)
n(7) = ChrW(171) + " ": y(7) = " " + ChrW(171)
n(8) = " " + ChrW(187): y(8) = ChrW(187) + " "
n(9) = ChrW(171): y(9) = " " + ChrW(171)
n(10) = ChrW(187): y(10) = ChrW(187) + " "

'Скобки
n(11) = " )": y(11) = ") "
n(12) = "( ": y(12) = " ("
n(13) = "(": y(13) = " ("
n(14) = ")": y(14) = ") "
n(15) = " ]": y(15) = "] "
n(16) = "[ ": y(16) = " ["
n(17) = "[": y(17) = " ["
n(18) = "]": y(18) = "] "

'Скобки и кавычки
n(19) = "( " + ChrW(171): y(19) = "(" + ChrW(171)
n(20) = ChrW(187) + " )": y(20) = ChrW(187) + ")"

n(21) = ChrW(171) + " (": y(21) = ChrW(171) + "("
n(22) = ") " + ChrW(187): y(22) = ")" + ChrW(187)

n(23) = "[ " + ChrW(171): y(23) = "[" + ChrW(171)
n(24) = ChrW(187) + " ]": y(24) = ChrW(187) + "]"

n(25) = ChrW(171) + " [": y(25) = ChrW(171) + "["
n(26) = "] " + ChrW(187): y(26) = "]" + ChrW(187)

'Препинание
n(27) = " ,": y(27) = ", "
n(28) = " .": y(28) = ". "
n(29) = " :": y(29) = ": "
n(30) = " ;": y(30) = "; "
n(31) = " !": y(31) = "! "
n(32) = " ?": y(32) = "? "
n(33) = ",": y(33) = ", "
n(34) = ".": y(34) = ". "
n(35) = ":": y(35) = ": "
n(36) = ";": y(36) = "; "
n(37) = "!": y(37) = "! "
n(38) = "?": y(38) = "? "
n(39) = ". . .": y(39) = ChrW(8230)
n(40) = "! ! !": y(40) = "!!! "
n(41) = "? ? ?": y(41) = "??? "
n(42) = ". .": y(42) = ".. "
n(43) = "! !": y(43) = "!! "
n(44) = "? ?": y(44) = "?? "
n(45) = " )": y(45) = ") "
n(46) = " ]": y(46) = "] "
n(47) = ") .": y(47) = "). "
n(48) = "] .": y(48) = "]. "
n(49) = ") ,": y(49) = "), "
n(50) = "] ,": y(50) = "], "
n(51) = "} ,": y(51) = "}, "
n(52) = ") :": y(52) = "): "
n(53) = "] :": y(53) = "]: "
n(54) = ") ;": y(54) = "); "
n(55) = "] ;": y(55) = "]; "
n(56) = ") !": y(56) = ")! "
n(57) = "] !": y(57) = "]! "
n(58) = ") ?": y(58) = ")? "
n(59) = "] ?": y(59) = "]? "
n(60) = ". ,": y(60) = "., "
n(61) = "..": y(61) = ". "
n(62) = ",,": y(62) = ", "
n(63) = ", .": y(63) = "., "
n(64) = ",.": y(64) = "., "

'Длинные тире
n(65) = "--": y(65) = " " + ChrW(8211) + " "
n(66) = ChrW(8212): y(66) = ChrW(8211)
n(67) = ChrW(8213): y(67) = ChrW(8211)
n(68) = ChrW(9472): y(68) = ChrW(8211)
n(69) = ChrW(9644): y(69) = ChrW(8211)
n(70) = " -": y(70) = " " + ChrW(8211)
n(71) = "- ": y(71) = ChrW(8211) + " "
n(72) = ChrW(8211): y(72) = " " + ChrW(8211) + " "

'Сочетания кавычек
n(73) = ChrW(187) + " ,": y(73) = ChrW(187) + ", "
n(74) = ChrW(187) + " .": y(74) = ChrW(187) + ". "
n(75) = ChrW(187) + " !": y(75) = ChrW(187) + "! "
n(76) = ChrW(187) + " ?": y(76) = ChrW(187) + "? "
n(77) = ChrW(187) + " ;": y(77) = ChrW(187) + "; "
n(78) = ChrW(187) + " :": y(78) = ChrW(187) + ": "

n(79) = ChrW(187) + " ," + " " + ChrW(8211): y(79) = ChrW(187) + "," + ChrW(8211)
n(80) = ChrW(187) + " !" + " " + ChrW(8211): y(80) = ChrW(187) + "!" + ChrW(8211)
n(81) = ChrW(187) + " ?" + " " + ChrW(8211): y(81) = ChrW(187) + "?" + ChrW(8211)

n(82) = ".. .": y(82) = ChrW(8230)
n(83) = "!! !": y(83) = "!!! "
n(84) = "?? ?": y(84) = "??? "

n(85) = "! " + ChrW(187): y(85) = "!" + ChrW(187)
n(86) = "? " + ChrW(187): y(86) = "?" + ChrW(187)

'дтн
n(87) = "к.  т.  н.": y(87) = "к.т.н. "
n(88) = "к.  и.  н.": y(88) = "к.и.н. "
n(89) = "к.  ю.  н.": y(89) = "к.ю.н. "
n(90) = "к.  э.  н.": y(90) = "к.э.н. "
n(91) = "к.  ф.  н.": y(91) = "к.ф.н. "
n(92) = "к.  м.  н.": y(92) = "к.м.н. "
n(93) = "д.  т.  н.": y(93) = "д.т.н. "
n(94) = "д.  и.  н.": y(94) = "д.и.н. "
n(95) = "д.  ю.  н.": y(95) = "д.ю.н. "
n(96) = "д.  э.  н.": y(96) = "д.э.н. "
n(97) = "д.  ф.  н.": y(97) = "д.ф.н. "
n(98) = "д.  м.  н.": y(98) = "д.м.н. "

'И т.д.
n(99) = " и т.  д.": y(99) = " и т.д. "
n(100) = " и т.  п.": y(100) = " и т.п. "
n(101) = " у.  е.": y(101) = " у.е. "
n(102) = " л.  с.": y(102) = " л.с. "
n(103) = " т.  е.": y(103) = " т.е. "
n(104) = " т.  к.": y(104) = " т.к. "
n(105) = "ъ ": y(105) = " "
n(106) = "Ъ ": y(106) = " "

'Ошибочные сочетания
n(107) = "? .": y(107) = "?"
n(108) = "? ,": y(108) = "?"
n(109) = "? ;": y(109) = "?"
n(110) = "? :": y(110) = "?"

n(111) = "! .": y(111) = "!"
n(112) = "! ,": y(112) = "!"
n(113) = "! ;": y(113) = "!"
n(114) = "! :": y(114) = "!"

n(115) = ". ?": y(115) = "?"
n(116) = ", ?": y(116) = "?"
n(117) = "; ?": y(117) = "?"
n(118) = ": ?": y(118) = "?"

n(119) = ". !": y(119) = "!"
n(120) = ", !": y(120) = "!"
n(121) = "; !": y(121) = "!"
n(122) = ": !": y(122) = "!"

n(123) = ". ?": y(123) = "?"
n(124) = ", ?": y(124) = "?"
n(125) = "; ?": y(125) = "?"
n(126) = ": ?": y(126) = "?"

n(127) = "? )": y(127) = "?)"
n(128) = "! )": y(128) = "!)"

n(129) = "? ]": y(129) = "?]"
n(130) = "! ]": y(130) = "!]"

'Пробелы
n(131) = "   ": y(131) = " "
n(132) = "   ": y(132) = " "
n(133) = "  ": y(133) = " "
n(134) = "  ": y(134) = " "
n(135) = "  ": y(135) = " "
n(136) = "  ": y(136) = " "

'Промежутки
n(137) = ChrW(11): y(137) = ChrW(13)
n(138) = "  ": y(138) = " "

'Много Enter подряд
'n(139) = ChrW(13) + ChrW(13) + ChrW(13): y(139) = ChrW(13)
'n(140) = ChrW(13): y(140) = " " + ChrW(13)

Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 17
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a(i)
.Replacement.Text = b(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

For i = 1 To 138
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = n(i)
.Replacement.Text = y(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True

With Selection.Find
.Text = " "
.Replacement.Text = "  "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.Find.Execute Replace:=wdReplaceAll
Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

End Sub



Sub DIGITAL()
' DIGITAL Макрос цифры
'
Dim a(17), b(17) As Variant

a(1) = "--": b(1) = " " + ChrW(8211) + " "
a(2) = ChrW(31): b(2) = ""
a(3) = ChrW(8212): b(3) = ChrW(8211)
a(4) = ChrW(8213): b(4) = ChrW(8211)
a(5) = ChrW(9472): b(5) = ChrW(8211)
a(6) = ChrW(9644): b(6) = ChrW(8211)
a(7) = "№": b(7) = "№ "
a(8) = "№ №": b(8) = "№№ "
a(9) = "%": b(9) = "% "
a(10) = "% %": b(10) = "%% "
a(11) = " %": b(11) = "% "
a(12) = " % %": b(12) = "%% "
a(13) = "$": b(13) = " $ "
a(14) = "+": b(14) = " + "
a(15) = "/": b(15) = " / "
a(16) = "*": b(16) = " * "
a(17) = ":": b(17) = ": "

Dim n(333), y(333) As Variant

n(1) = "0. 1": y(1) = "0.1"
n(2) = "0. 2": y(2) = "0.2"
n(3) = "0. 3": y(3) = "0.3"
n(4) = "0. 4": y(4) = "0.4"
n(5) = "0. 5": y(5) = "0.5"
n(6) = "0. 6": y(6) = "0.6"
n(7) = "0. 7": y(7) = "0.7"
n(8) = "0. 8": y(8) = "0.8"
n(9) = "0. 9": y(9) = "0.9"
n(10) = "1. 0": y(10) = "1.0"
n(11) = "1. 1": y(11) = "1.1"
n(12) = "1. 2": y(12) = "1.2"
n(13) = "1. 3": y(13) = "1.3"
n(14) = "1. 4": y(14) = "1.4"
n(15) = "1. 5": y(15) = "1.5"
n(16) = "1. 6": y(16) = "1.6"
n(17) = "1. 7": y(17) = "1.7"
n(18) = "1. 8": y(18) = "1.8"
n(19) = "1. 9": y(19) = "1.9"
n(20) = "2. 0": y(20) = "2.0"
n(21) = "2. 1": y(21) = "2.1"
n(22) = "2. 2": y(22) = "2.2"
n(23) = "2. 3": y(23) = "2.3"
n(24) = "2. 4": y(24) = "2.4"
n(25) = "2. 5": y(25) = "2.5"
n(26) = "2. 6": y(26) = "2.6"
n(27) = "2. 7": y(27) = "2.7"
n(28) = "2. 8": y(28) = "2.8"
n(29) = "2. 9": y(29) = "2.9"
n(30) = "3. 0": y(30) = "3.0"
n(31) = "3. 1": y(31) = "3.1"
n(32) = "3. 2": y(32) = "3.2"
n(33) = "3. 3": y(33) = "3.3"
n(34) = "3. 4": y(34) = "3.4"
n(35) = "3. 5": y(35) = "3.5"
n(36) = "3. 6": y(36) = "3.6"
n(37) = "3. 7": y(37) = "3.7"
n(38) = "3. 8": y(38) = "3.8"
n(39) = "3. 9": y(39) = "3.9"
n(40) = "4. 0": y(40) = "4.0"
n(41) = "4. 1": y(41) = "4.1"
n(42) = "4. 2": y(42) = "4.2"
n(43) = "4. 3": y(43) = "4.3"
n(44) = "4. 4": y(44) = "4.4"
n(45) = "4. 5": y(45) = "4.5"
n(46) = "4. 6": y(46) = "4.6"
n(47) = "4. 7": y(47) = "4.7"
n(48) = "4. 8": y(48) = "4.8"
n(49) = "4. 9": y(49) = "4.9"
n(50) = "5. 0": y(50) = "5.0"
n(51) = "5. 1": y(51) = "5.1"
n(52) = "5. 2": y(52) = "5.2"
n(53) = "5. 3": y(53) = "5.3"
n(54) = "5. 4": y(54) = "5.4"
n(55) = "5. 5": y(55) = "5.5"
n(56) = "5. 6": y(56) = "5.6"
n(57) = "5. 7": y(57) = "5.7"
n(58) = "5. 8": y(58) = "5.8"
n(59) = "5. 9": y(59) = "5.9"
n(60) = "6. 0": y(60) = "6.0"
n(61) = "6. 1": y(61) = "6.1"
n(62) = "6. 2": y(62) = "6.2"
n(63) = "6. 3": y(63) = "6.3"
n(64) = "6. 4": y(64) = "6.4"
n(65) = "6. 5": y(65) = "6.5"
n(66) = "6. 6": y(66) = "6.6"
n(67) = "6. 7": y(67) = "6.7"
n(68) = "6. 8": y(68) = "6.8"
n(69) = "6. 9": y(69) = "6.9"
n(70) = "7. 0": y(70) = "7.0"
n(71) = "7. 1": y(71) = "7.1"
n(72) = "7. 2": y(72) = "7.2"
n(73) = "7. 3": y(73) = "7.3"
n(74) = "7. 4": y(74) = "7.4"
n(75) = "7. 5": y(75) = "7.5"
n(76) = "7. 6": y(76) = "7.6"
n(77) = "7. 7": y(77) = "7.7"
n(78) = "7. 8": y(78) = "7.8"
n(79) = "7. 9": y(79) = "7.9"
n(80) = "8. 0": y(80) = "8.0"
n(81) = "8. 1": y(81) = "8.1"
n(82) = "8. 2": y(82) = "8.2"
n(83) = "8. 3": y(83) = "8.3"
n(84) = "8. 4": y(84) = "8.4"
n(85) = "8. 5": y(85) = "8.5"
n(86) = "8. 6": y(86) = "8.6"
n(87) = "8. 7": y(87) = "8.7"
n(88) = "8. 8": y(88) = "8.8"
n(89) = "8. 9": y(89) = "8.9"
n(90) = "9. 0": y(90) = "9.0"
n(91) = "9. 1": y(91) = "9.1"
n(92) = "9. 2": y(92) = "9.2"
n(93) = "9. 3": y(93) = "9.3"
n(94) = "9. 4": y(94) = "9.4"
n(95) = "9. 5": y(95) = "9.5"
n(96) = "9. 6": y(96) = "9.6"
n(97) = "9. 7": y(97) = "9.7"
n(98) = "9. 8": y(98) = "9.8"
n(99) = "9. 9": y(99) = "9.9"
n(100) = "0. 0": y(100) = "0.0"


n(101) = "0, 1": y(101) = "0,1"
n(102) = "0, 2": y(102) = "0,2"
n(103) = "0, 3": y(103) = "0,3"
n(104) = "0, 4": y(104) = "0,4"
n(105) = "0, 5": y(105) = "0,5"
n(106) = "0, 6": y(106) = "0,6"
n(107) = "0, 7": y(107) = "0,7"
n(108) = "0, 8": y(108) = "0,8"
n(109) = "0, 9": y(109) = "0,9"
n(110) = "1, 0": y(110) = "1,0"
n(111) = "1, 1": y(111) = "1,1"
n(112) = "1, 2": y(112) = "1,2"
n(113) = "1, 3": y(113) = "1,3"
n(114) = "1, 4": y(114) = "1,4"
n(115) = "1, 5": y(115) = "1,5"
n(116) = "1, 6": y(116) = "1,6"
n(117) = "1, 7": y(117) = "1,7"
n(118) = "1, 8": y(118) = "1,8"
n(119) = "1, 9": y(119) = "1,9"
n(120) = "2, 0": y(120) = "2,0"
n(121) = "2, 1": y(121) = "2,1"
n(122) = "2, 2": y(122) = "2,2"
n(123) = "2, 3": y(123) = "2,3"
n(124) = "2, 4": y(124) = "2,4"
n(125) = "2, 5": y(125) = "2,5"
n(126) = "2, 6": y(126) = "2,6"
n(127) = "2, 7": y(127) = "2,7"
n(128) = "2, 8": y(128) = "2,8"
n(129) = "2, 9": y(129) = "2,9"
n(130) = "3, 0": y(130) = "3,0"
n(131) = "3, 1": y(131) = "3,1"
n(132) = "3, 2": y(132) = "3,2"
n(133) = "3, 3": y(133) = "3,3"
n(134) = "3, 4": y(134) = "3,4"
n(135) = "3, 5": y(135) = "3,5"
n(136) = "3, 6": y(136) = "3,6"
n(137) = "3, 7": y(137) = "3,7"
n(138) = "3, 8": y(138) = "3,8"
n(139) = "3, 9": y(139) = "3,9"
n(140) = "4, 0": y(140) = "4,0"
n(141) = "4, 1": y(141) = "4,1"
n(142) = "4, 2": y(142) = "4,2"
n(143) = "4, 3": y(143) = "4,3"
n(144) = "4, 4": y(144) = "4,4"
n(145) = "4, 5": y(145) = "4,5"
n(146) = "4, 6": y(146) = "4,6"
n(147) = "4, 7": y(147) = "4,7"
n(148) = "4, 8": y(148) = "4,8"
n(149) = "4, 9": y(149) = "4,9"
n(150) = "5, 0": y(150) = "5,0"
n(151) = "5, 1": y(151) = "5,1"
n(152) = "5, 2": y(152) = "5,2"
n(153) = "5, 3": y(153) = "5,3"
n(154) = "5, 4": y(154) = "5,4"
n(155) = "5, 5": y(155) = "5,5"
n(156) = "5, 6": y(156) = "5,6"
n(157) = "5, 7": y(157) = "5,7"
n(158) = "5, 8": y(158) = "5,8"
n(159) = "5, 9": y(159) = "5,9"
n(160) = "6, 0": y(160) = "6,0"
n(161) = "6, 1": y(161) = "6,1"
n(162) = "6, 2": y(162) = "6,2"
n(163) = "6, 3": y(163) = "6,3"
n(164) = "6, 4": y(164) = "6,4"
n(165) = "6, 5": y(165) = "6,5"
n(166) = "6, 6": y(166) = "6,6"
n(167) = "6, 7": y(167) = "6,7"
n(168) = "6, 8": y(168) = "6,8"
n(169) = "6, 9": y(169) = "6,9"
n(170) = "7, 0": y(170) = "7,0"
n(171) = "7, 1": y(171) = "7,1"
n(172) = "7, 2": y(172) = "7,2"
n(173) = "7, 3": y(173) = "7,3"
n(174) = "7, 4": y(174) = "7,4"
n(175) = "7, 5": y(175) = "7,5"
n(176) = "7, 6": y(176) = "7,6"
n(177) = "7, 7": y(177) = "7,7"
n(178) = "7, 8": y(178) = "7,8"
n(179) = "7, 9": y(179) = "7,9"
n(180) = "8, 0": y(180) = "8,0"
n(181) = "8, 1": y(181) = "8,1"
n(182) = "8, 2": y(182) = "8,2"
n(183) = "8, 3": y(183) = "8,3"
n(184) = "8, 4": y(184) = "8,4"
n(185) = "8, 5": y(185) = "8,5"
n(186) = "8, 6": y(186) = "8,6"
n(187) = "8, 7": y(187) = "8,7"
n(188) = "8, 8": y(188) = "8,8"
n(189) = "8, 9": y(189) = "8,9"
n(190) = "9, 0": y(190) = "9,0"
n(191) = "9, 1": y(191) = "9,1"
n(192) = "9, 2": y(192) = "9,2"
n(193) = "9, 3": y(193) = "9,3"
n(194) = "9, 4": y(194) = "9,4"
n(195) = "9, 5": y(195) = "9,5"
n(196) = "9, 6": y(196) = "9,6"
n(197) = "9, 7": y(197) = "9,7"
n(198) = "9, 8": y(198) = "9,8"
n(199) = "9, 9": y(199) = "9,9"
n(200) = "0, 0": y(200) = "0,0"

n(201) = "0-1": y(201) = "0" & ChrW(8211) & "1"
n(202) = "0-2": y(202) = "0" & ChrW(8211) & "2"
n(203) = "0-3": y(203) = "0" & ChrW(8211) & "3"
n(204) = "0-4": y(204) = "0" & ChrW(8211) & "4"
n(205) = "0-5": y(205) = "0" & ChrW(8211) & "5"
n(206) = "0-6": y(206) = "0" & ChrW(8211) & "6"
n(207) = "0-7": y(207) = "0" & ChrW(8211) & "7"
n(208) = "0-8": y(208) = "0" & ChrW(8211) & "8"
n(209) = "0-9": y(209) = "0" & ChrW(8211) & "9"
n(210) = "1-0": y(210) = "1" & ChrW(8211) & "0"
n(211) = "1-1": y(211) = "1" & ChrW(8211) & "1"
n(212) = "1-2": y(212) = "1" & ChrW(8211) & "2"
n(213) = "1-3": y(213) = "1" & ChrW(8211) & "3"
n(214) = "1-4": y(214) = "1" & ChrW(8211) & "4"
n(215) = "1-5": y(215) = "1" & ChrW(8211) & "5"
n(216) = "1-6": y(216) = "1" & ChrW(8211) & "6"
n(217) = "1-7": y(217) = "1" & ChrW(8211) & "7"
n(218) = "1-8": y(218) = "1" & ChrW(8211) & "8"
n(219) = "1-9": y(219) = "1" & ChrW(8211) & "9"
n(220) = "2-0": y(220) = "2" & ChrW(8211) & "0"
n(221) = "2-1": y(221) = "2" & ChrW(8211) & "1"
n(222) = "2-2": y(222) = "2" & ChrW(8211) & "2"
n(223) = "2-3": y(223) = "2" & ChrW(8211) & "3"
n(224) = "2-4": y(224) = "2" & ChrW(8211) & "4"
n(225) = "2-5": y(225) = "2" & ChrW(8211) & "5"
n(226) = "2-6": y(226) = "2" & ChrW(8211) & "6"
n(227) = "2-7": y(227) = "2" & ChrW(8211) & "7"
n(228) = "2-8": y(228) = "2" & ChrW(8211) & "8"
n(229) = "2-9": y(229) = "2" & ChrW(8211) & "9"
n(230) = "3-0": y(230) = "3" & ChrW(8211) & "0"
n(231) = "3-1": y(231) = "3" & ChrW(8211) & "1"
n(232) = "3-2": y(232) = "3" & ChrW(8211) & "2"
n(233) = "3-3": y(233) = "3" & ChrW(8211) & "3"
n(234) = "3-4": y(234) = "3" & ChrW(8211) & "4"
n(235) = "3-5": y(235) = "3" & ChrW(8211) & "5"
n(236) = "3-6": y(236) = "3" & ChrW(8211) & "6"
n(237) = "3-7": y(237) = "3" & ChrW(8211) & "7"
n(238) = "3-8": y(238) = "3" & ChrW(8211) & "8"
n(239) = "3-9": y(239) = "3" & ChrW(8211) & "9"
n(240) = "4-0": y(240) = "4" & ChrW(8211) & "0"
n(241) = "4-1": y(241) = "4" & ChrW(8211) & "1"
n(242) = "4-2": y(242) = "4" & ChrW(8211) & "2"
n(243) = "4-3": y(243) = "4" & ChrW(8211) & "3"
n(244) = "4-4": y(244) = "4" & ChrW(8211) & "4"
n(245) = "4-5": y(245) = "4" & ChrW(8211) & "5"
n(246) = "4-6": y(246) = "4" & ChrW(8211) & "6"
n(247) = "4-7": y(247) = "4" & ChrW(8211) & "7"
n(248) = "4-8": y(248) = "4" & ChrW(8211) & "8"
n(249) = "4-9": y(249) = "4" & ChrW(8211) & "9"
n(250) = "5-0": y(250) = "5" & ChrW(8211) & "0"
n(251) = "5-1": y(251) = "5" & ChrW(8211) & "1"
n(252) = "5-2": y(252) = "5" & ChrW(8211) & "2"
n(253) = "5-3": y(253) = "5" & ChrW(8211) & "3"
n(254) = "5-4": y(254) = "5" & ChrW(8211) & "4"
n(255) = "5-5": y(255) = "5" & ChrW(8211) & "5"
n(256) = "5-6": y(256) = "5" & ChrW(8211) & "6"
n(257) = "5-7": y(257) = "5" & ChrW(8211) & "7"
n(258) = "5-8": y(258) = "5" & ChrW(8211) & "8"
n(259) = "5-9": y(259) = "5" & ChrW(8211) & "9"
n(260) = "6-0": y(260) = "6" & ChrW(8211) & "0"
n(261) = "6-1": y(261) = "6" & ChrW(8211) & "1"
n(262) = "6-2": y(262) = "6" & ChrW(8211) & "2"
n(263) = "6-3": y(263) = "6" & ChrW(8211) & "3"
n(264) = "6-4": y(264) = "6" & ChrW(8211) & "4"
n(265) = "6-5": y(265) = "6" & ChrW(8211) & "5"
n(266) = "6-6": y(266) = "6" & ChrW(8211) & "6"
n(267) = "6-7": y(267) = "6" & ChrW(8211) & "7"
n(268) = "6-8": y(268) = "6" & ChrW(8211) & "8"
n(269) = "6-9": y(269) = "6" & ChrW(8211) & "9"
n(270) = "7-0": y(270) = "7" & ChrW(8211) & "0"
n(271) = "7-1": y(271) = "7" & ChrW(8211) & "1"
n(272) = "7-2": y(272) = "7" & ChrW(8211) & "2"
n(273) = "7-3": y(273) = "7" & ChrW(8211) & "3"
n(274) = "7-4": y(274) = "7" & ChrW(8211) & "4"
n(275) = "7-5": y(275) = "7" & ChrW(8211) & "5"
n(276) = "7-6": y(276) = "7" & ChrW(8211) & "6"
n(277) = "7-7": y(277) = "7" & ChrW(8211) & "7"
n(278) = "7-8": y(278) = "7" & ChrW(8211) & "8"
n(279) = "7-9": y(279) = "7" & ChrW(8211) & "9"
n(280) = "8-0": y(280) = "8" & ChrW(8211) & "0"
n(281) = "8-1": y(281) = "8" & ChrW(8211) & "1"
n(282) = "8-2": y(282) = "8" & ChrW(8211) & "2"
n(283) = "8-3": y(283) = "8" & ChrW(8211) & "3"
n(284) = "8-4": y(284) = "8" & ChrW(8211) & "4"
n(285) = "8-5": y(285) = "8" & ChrW(8211) & "5"
n(286) = "8-6": y(286) = "8" & ChrW(8211) & "6"
n(287) = "8-7": y(287) = "8" & ChrW(8211) & "7"
n(288) = "8-8": y(288) = "8" & ChrW(8211) & "8"
n(289) = "8-9": y(289) = "8" & ChrW(8211) & "9"
n(290) = "9-0": y(290) = "9" & ChrW(8211) & "0"
n(291) = "9-1": y(291) = "9" & ChrW(8211) & "1"
n(292) = "9-2": y(292) = "9" & ChrW(8211) & "2"
n(293) = "9-3": y(293) = "9" & ChrW(8211) & "3"
n(294) = "9-4": y(294) = "9" & ChrW(8211) & "4"
n(295) = "9-5": y(295) = "9" & ChrW(8211) & "5"
n(296) = "9-6": y(296) = "9" & ChrW(8211) & "6"
n(297) = "9-7": y(297) = "9" & ChrW(8211) & "7"
n(298) = "9-8": y(298) = "9" & ChrW(8211) & "8"
n(299) = "9-9": y(299) = "9" & ChrW(8211) & "9"
n(300) = "0-0": y(300) = "0" & ChrW(8211) & "0"

n(301) = "- 1": y(301) = ChrW(8211) & "1"
n(302) = "- 2": y(302) = ChrW(8211) & "2"
n(303) = "- 3": y(303) = ChrW(8211) & "3"
n(304) = "- 4": y(304) = ChrW(8211) & "4"
n(305) = "- 5": y(305) = ChrW(8211) & "5"
n(306) = "- 6": y(306) = ChrW(8211) & "6"
n(307) = "- 7": y(307) = ChrW(8211) & "7"
n(308) = "- 8": y(308) = ChrW(8211) & "8"
n(309) = "- 9": y(309) = ChrW(8211) & "9"
n(310) = "- 0": y(310) = ChrW(8211) & "0"
n(311) = ChrW(8211) & " 1": y(311) = ChrW(8211) & "1"
n(312) = ChrW(8211) & " 2": y(312) = ChrW(8211) & "2"
n(313) = ChrW(8211) & " 3": y(313) = ChrW(8211) & "3"
n(314) = ChrW(8211) & " 4": y(314) = ChrW(8211) & "4"
n(315) = ChrW(8211) & " 5": y(315) = ChrW(8211) & "5"
n(316) = ChrW(8211) & " 6": y(316) = ChrW(8211) & "6"
n(317) = ChrW(8211) & " 7": y(317) = ChrW(8211) & "7"
n(318) = ChrW(8211) & " 8": y(318) = ChrW(8211) & "8"
n(319) = ChrW(8211) & " 9": y(319) = ChrW(8211) & "9"
n(320) = ChrW(8211) & " 0": y(320) = ChrW(8211) & "0"
n(321) = " " & ChrW(8211) & "1": y(321) = ChrW(8211) & "1"
n(322) = " " & ChrW(8211) & "2": y(322) = ChrW(8211) & "2"
n(323) = " " & ChrW(8211) & "3": y(323) = ChrW(8211) & "3"
n(324) = " " & ChrW(8211) & "4": y(324) = ChrW(8211) & "4"
n(325) = " " & ChrW(8211) & "5": y(325) = ChrW(8211) & "5"
n(326) = " " & ChrW(8211) & "6": y(326) = ChrW(8211) & "6"
n(327) = " " & ChrW(8211) & "7": y(327) = ChrW(8211) & "7"
n(328) = " " & ChrW(8211) & "8": y(328) = ChrW(8211) & "8"
n(329) = " " & ChrW(8211) & "9": y(329) = ChrW(8211) & "9"
n(330) = " " & ChrW(8211) & "0": y(330) = ChrW(8211) & "0"

n(331) = "   ": y(331) = " "
n(332) = "  ": y(332) = " "
n(333) = "  ": y(333) = " "

Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 17
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = a(i)
.Replacement.Text = b(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

For i = 1 To 333
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = n(i)
.Replacement.Text = y(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

Selection.Find.ClearFormatting
Selection.Find.Font.Bold = True
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True

With Selection.Find
.Text = " "
.Replacement.Text = "  "
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With

Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

End Sub




Sub CHRA()
' CHRA Макрос меняет похожие буквы: русские на английские
'
Dim n(30), y(30) As Variant

n(1) = "У": y(1) = "Y"
n(2) = "К": y(2) = "K"
n(3) = "Е": y(3) = "E"
n(4) = "Н": y(4) = "H"
n(5) = "Х": y(5) = "X"
n(6) = "В": y(6) = "B"
n(7) = "А": y(7) = "A"
n(8) = "Р": y(8) = "P"
n(9) = "О": y(9) = "O"
n(10) = "С": y(10) = "C"
n(11) = "М": y(11) = "M"
n(12) = "Ы": y(12) = "bI"
n(13) = "ы": y(13) = "bi"
n(14) = "Т": y(14) = "T"
n(15) = "Ь": y(15) = "b"
n(16) = "у": y(16) = "y"
n(17) = "к": y(17) = "k"
n(18) = "е": y(18) = "e"
n(19) = "и": y(19) = "u"
n(20) = "г": y(20) = "r"
n(21) = "х": y(21) = "x"
n(22) = "а": y(22) = "a"
n(23) = "р": y(23) = "p"
n(24) = "о": y(24) = "o"
n(25) = "с": y(25) = "c"
n(26) = "п": y(26) = "n"
n(27) = "ь": y(27) = "b"
n(28) = "н": y(28) = "h"
n(29) = "м": y(29) = "m"
n(30) = "т": y(30) = "t"

Selection.HomeKey Unit:=wdStory
ActiveWindow.View.Type = wdNormalView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

For i = 1 To 30
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = n(i)
.Replacement.Text = y(i)
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

Selection.EndKey Unit:=wdStory
ActiveWindow.View.Type = wdPageView
ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFitBestFit

End Sub



miniblock мини блоки mini-blocks autocad
мини-блоки автокад похожи на NFT

NFT = non-fungible token = невзаимозаменяемый токен
уникальный токен = вид криптографических токенов

когда простые блок = линия + текст = метка + шифр
означают элемент спецификации и внедрены в 2007 году


mini blocks mini blocks mine-blocks autocad are similar to NFT

NFT = nonfungible token = type of cryptographic tokens

when simple block = line + text = label + cipher
mean an element of specification and implemented in 2007