Обновление данных в Word

Public Sub changeSource() Set MyRange = ActiveDocument.Content MyRange.Find.Execute FindText:=»», ReplaceWith:=Format(Date, «dd/mm/yyyy»), Replace:=wdReplaceAll Dim dlgSelectFile As FileDialog ‘FileDialog object ‘ Dim thisField As Field Dim selectedFile As Variant ‘must be Variant to contain filepath of selected item Dim newFile As Variant Продолжить чтение Обновление данных в Word

Удалить разделы (разделители страниц) в ворде

Sub Удалить_раделы() ‘ Удаляет разделы в Ворде Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find Application.DisplayAlerts = False .Text = «^b» .Replacement.Text = «^p» .Wrap = wdFindContinue Application.DisplayAlerts = True End With Selection.Find.Execute Replace:=wdReplaceAll End Sub

Word Шифты

Sub Шрифт8() ‘ ‘ Макрос2 Макрос ‘ ‘ Selection.Font.Name = «Times New Roman» Selection.Font.Size = 8 End Sub Sub Шрифт9() ‘ ‘ Макрос3 Макрос ‘ ‘ Selection.Font.Name = «Times New Roman» Selection.Font.Size = 9 WordBasic.OpenOrCloseParaAbove WordBasic.OpenOrCloseParaAbove End Sub