Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт

Читать бесплатно Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт. Жанр: Газеты и журналы / Периодические издания / Сделай сам / Хобби и ремесла год 2004. Так же читаем полные версии (весь текст) онлайн без регистрации и SMS на сайте kniga-online.club или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.

Назад 1 ... 213 214 215 216 217 ... 375 Вперед

Перейти на страницу:

�� VBA �� , �� . �� "��"-"��" �� , �� . �� , �� , �� , �� , �� , � �� . � �� , � � �� .

�� , �� "��"-"��" �� , � �� .

�� , �� , �� , �� .

�� , �� , � � �� , �� . �� .

�� , �� "��"-"�� " �� "��"-"��" �� , � �� , �� , �� .

* * *

�� .

Selection.Find.ClearFormatting

Selection.Find.ParagraphFormat.Alignment = wdAlignParagraphLeft

Selection.Find.Replacement.ClearFormatting

Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify

With Selection.Find

� .Text = ""

� .Replacement.Text = ""

� .Forward = True

� .Wrap = wdFindContinue

� .Format = True

� .MatchCase = False

� .MatchWholeWord = False

� .MatchWildcards = False

� .MatchSoundsLike = False

� .MatchAllWordForms = False

End With

Selection.Find.Execute Replace:=wdReplaceAll

�� , �� Word �� . � �� , �� VBA. �� , �� "Selection.Find.ClearFormatting" �� "�� ", � �� "Selection.Find.ParagraphFormat.Alignment = wdAlign ParagraphLeft" � "Selection.Find.Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify"�� , �� "Left" (�� ) � ��, �� "Justify" (�� ). �� , �� : "Selection"�� , "Find.Replacement"�� , "ParagraphFormat"�� , "Alignment"�� , "AlignParagraphJustify"�� "��". �� , ��. �� "With" �� "�� ".

�� , �� "Selection.Find" (�� ) �� "�� ": ".MatchWholeWord"�� "�� ", ".MatchCase"�� "�� ".".Text"�� , ��, �� , �".Replacement.Text"�� , �� . � �� , � ��, �� .

�� "Selection.Find" � �� , �� , �� "With". ��-�� . �� : "Sub experiencel()" (�� "Sub" �� , �� , �� -�� VBA). �� VBA ��: "End Sub". � �� "��" � "��" �� "With Selection.Find". � �� , �� "�� " � �� "With Selection.Find", �� "Selection.Find":

Sub experiencel()

With Selection.Find

� .ClearFormatting

� .ParagraphFormat.Alignment = wdAlignParagraphLeft

� .Replacement.ClearFormatting

� .Replacement.ParagraphFormat.Alignment = wdAlignParagraphJustify

� .Text = ""

� .Replacement.Text = ""

� .Forward = True.Wrap = wdFindContinue

� .Format = True.MatchCase = False

� .MatchWholeWord = False

� .MatchWildcards = False