Нужен макрос для word, устанавливающий для всех точек в документе 40 размера шрифта

@bik2454 · Регистрация: 11.12.2013

Author24 — интернет-сервис помощи студентам

помогите пожалуста

shanemac51 · 21.01.2014, 16:08

может так

Visual Basic

Sub w140121_1605()
'
' w140121_1605 Макрос
'
'
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 Selection.Find.Replacement.Font.Size = 36    ''40 нет
 With Selection.Find
  .Text = "."
  .Replacement.Text = "."
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@bik2454 0 / 0 / 0 Регистрация: 11.12.2013 Сообщений: 8
		1
	Нужен макрос для word, устанавливающий для всех точек в документе 40 размера шрифта 21.01.2014, 15:36. Показов 2123. Ответов 1 Метки нет (Все метки) помогите пожалуста 0

	21.01.2014, 16:08

Нужен макрос для word, устанавливающий для всех точек в документе 40 размера шрифта

Решение