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

Тут можно читать бесплатно Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт. Жанр: Разная литература / Газеты и журналы. Так же Вы можете читать полную версию (весь текст) онлайн без регистрации и SMS на сайте 500book.net или прочесть краткое содержание, предисловие (аннотацию), описание и ознакомиться с отзывами (комментариями) о произведении.
Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт
  • Категория: Разная литература / Газеты и журналы
  • Автор: Вудворт
  • Страниц: 375
  • Добавлено: 2022-10-21 18:07:04
  • Внимание! Книга может содержать контент только для совершеннолетних. Для несовершеннолетних просмотр данного контента СТРОГО ЗАПРЕЩЕН! Если в книге присутствует наличие пропаганды ЛГБТ и другого, запрещенного контента - просьба написать на почту pbn.book@yandex.ru для удаления материала


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

Прочтите описание перед тем, как прочитать онлайн книгу «Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт» бесплатно полную версию:

Большой и увлекательный, научно-прикладной и образовательный, но некоммерческий интернет-журнал, созданный группой энтузиастов. Интернет-журнал содержит материалы, найденные в Интернет или написанные для Интернет. Основная тематика статей — то, что можно сделать самому, от садовых поделок до сверхпроводников, но есть и просто полезные материалы.

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

Интернет-журнал "Домашняя лаборатория", 2007 №3 - Вудворт - читать книгу онлайн бесплатно, автор Вудворт

�� �����. ������ ��� ����������� ������� ����� �������� "MsgBox Asc(Selection.Text)". ������ � �������� "Chr$" � "Asc" �����, ��������� � �������.)

����� ����, �� ������ �� ������� ���, ����� ��� ������� ��������� ���� "����������� �����" �� ��������� ������ �� �� ���������� � �������� ���������� � �� ������ �� ����� ��������� ��� �������������� ��������� � ��������� �����! ��� ������ ����� � ��������� �������� "Directory" ��� "ActiveDocument.Name" ����� ��������".Display":

With Dialogs(wdDialogCopyFile)

.Directory = ActiveDocument.Path

.Display

papka =.Directory

End With

If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) � 2)

��� � ���� ����������� ��� ��� ����������� ����������� ���� � ��������� ���� � ����� ��� ���������� ������������ ����������. �������, ������� ���, ����� ������� ������ "������" � ���������� ���� ��������� �� �� � �������� ����������� ������ ���������, � � ������ �� ���. ��� ����� � ������� �� �����".Display" ������, ��� ��� ������� �������� �������� � �� ���� ���������� ������������ ��������, � ����������� �� ����, ����� ������ ���� ������. ������� � ��������� ������� � ������� ������ �� ���������:

With Dialogs(wdDialogCopyFile)

.Directory = ActiveDocument.Path

If .Display = 0 Then Exit Sub

papka = .Directory

End With

If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) � 2)

������ ��� ������� ������ "������" � ���������� ���� ������ ����� ���������� ����� �� ���������.

������������� ��� ������ �������:

Sub ������1()

' ��������� ��� ��������� ����������

With Dialogs(wdDialogCopyFile)

.Directory = ActiveDocument.Path

If .Display = 0 Then Exit Sub

papka = .Directory

End With

If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) � 2)

metka:

Selection.Wholestory

With Selection.Font

� .Name = "Times New Roman"

� .Size = 12

� .Colorlndex = wdBlack

End With

With Selection.ParagraphFormat

� .Leftlndent = CentimetersToPoints(0)

� .Rightlndent = CentimetersToPoints(0)

� .SpaceBefore = 0.SpaceAfter = 0

� .LineSpacingRule = wdLineSpaceSingle

� .FirstLinelndent = CentimetersToPoints(1.27)

End With

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

ActiveDocument.Save

ActiveDocument.SaveAs FileName:=papka + Left(ActiveDocument.Name,

Len(ActiveDocument.Name) � 4), FileFormat:=wdFormatRTF

ActiveWindow.Close

If Documents.Count > 0 Then GoTo metka

signal = MsgBox("��������� ���������", vblnformation, "��������� �������")

End Sub

* * *

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

� ��� ������ ������:

1.���� ������ ������� ������ ������, � ����� ��� ���������, ����� ������� ������������� ���� ��� ����� �������������� ������ ��� ������� �������� ������������ Word, ���������� ������ ������������ �������� ������� ��������� VBA �� ���������� ������ ������ ���������������� � �������� ������ ��������. ������� �������� ������ �������� ��������� ������ � ����� ������� ���� ������ ��������� � ������ �� �������, � ����� ����� ������� ��������� ������, ����� ���������� "���������" �� ���� VBA �����-���� �������� ������������ Word.

2.���� ���������� ��������� ����, ��������� ��������� ����������� ������ ������� ������� ������ ������������ ����������� ��������� VBA, ������� ���������� ��� ������ ����� ��� ������ ����� ��� ���������� ����� �������.

3.�������� VBA � �������� �������� ������ �� ����� �����! ���

Перейти на страницу:
Вы автор?
Жалоба
Все книги на сайте размещаются его пользователями. Приносим свои глубочайшие извинения, если Ваша книга была опубликована без Вашего на то согласия.
Напишите нам, и мы в срочном порядке примем меры.
Комментарии / Отзывы
    Ничего не найдено.