Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Управление документами Word и Excel на VBA - eDrive
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
10<br />
.Text = "^p"<br />
.Replacement.Text = " "<br />
.Execute Replace:=wdReplaceAll<br />
.Text = "ГРАНИЦА АБЗАЦА"<br />
.Replacement.Text = "^p^p"<br />
.Execute Replace:=wdReplaceAll<br />
.Text = "АБЗАЦНЫЙ ОТСТУП"<br />
.Replacement.Text = "^p^t"<br />
.Execute Replace:=wdReplaceAll<br />
End With<br />
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify<br />
Selection.HomeKey Unit:=wdLine<br />
End Sub<br />
Sub ЧтоВыделять ()<br />
дл<strong>и</strong><strong>на</strong> = Len (Selection.Text)<br />
If дл<strong>и</strong><strong>на</strong> 0 And <strong>и</strong>нтервал < 10 Then<br />
<strong>и</strong>нтервал = "00:0" & Right (Str (<strong>и</strong>нтервал), 1)<br />
ElseIf <strong>и</strong>нтервал >= 10 And <strong>и</strong>нтервал < 60 Then<br />
<strong>и</strong>нтервал = "00:" & Right(Str (<strong>и</strong>нтервал), 2)<br />
Else<br />
КакЧастоСохранятьФайл = False<br />
End If<br />
End Function<br />
Sub Фраза ()<br />
слово = ""<br />
For счет = 1 To Len (Selection.Text)<br />
буква = Mid (Selection.Text, счет, 1)<br />
слово = слово & буква<br />
Next<br />
Selection.TypeText (слово)<br />
End Sub<br />
Sub Выдел<strong>и</strong>ть ()<br />
For Each с<strong>и</strong>мвол In Selection.Characters<br />
с<strong>и</strong>мвол.Font.Bold = True<br />
Next<br />
End Sub