Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Sear
WebDeveloper
88 / 88 / 1
Регистрация: 02.02.2011
Сообщений: 1,770
1

Откладка программ

24.03.2011, 22:37. Просмотров 887. Ответов 0
Метки нет (Все метки)

как в этом коде добавет чтоб он в конце документа вводил например
Пример:Абзаце-4
Номера абзацев с наибольшем предложением-5 но типо вот этого
PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
Sub P1()
Dim i As Long
Dim НомерАбзаца As Long
Dim КоличествоПредложений As Long
НомерАбзаца = 1
With ActiveDocument
    КоличествоПредложений = .Paragraphs(1).Range.Sentences.Count
    For i = 2 To .Paragraphs.Count
        If .Paragraphs(i).Range.Sentences.Count > КоличествоПредложений Then
            НомерАбзаца = i
            КоличествоПредложений = .Paragraphs(i).Range.Sentences.Count
        End If
    Next i
    With .Paragraphs(НомерАбзаца).Range.Font
        .Color = wdColorRed
        .Italic = True
    End With
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = .Paragraphs.Count - 1
    .Content.InsertParagraphAfter
    .Range(Start:=.Range.End - 1, End:=.Range.End - 1).Text = НомерАбзаца
End With
Dim l As Long
Dim Подсчёт As Long
With ActiveDocument
    If .Paragraphs.Count < 4 Then
        MsgBox "В документе меньше 4 абзацев; программа будет завершена", vbCritical
        Exit Sub
    End If
    For l = 1 To .Paragraphs(4).Range.Words.Count - 1
        If Left(Trim(.Paragraphs(4).Range.Words(l)), 1) = _
                Right(Trim(.Paragraphs(4).Range.Words(l)), 1) Then
            Подсчёт = Подсчёт + 1
        End If
    Next l
End With
MsgBox "Количество слов в 4 абзаце, начинающихся и заканчивающихся на одну и ту же букву: " & _
    Подсчёт
    Dim k As Long
Dim НомерСлова As Long
Dim ДлинаСлова As Long
НомерСлова = 1
With ActiveDocument
    ДлинаСлова = .Words(1).Characters.Count
    For k = 2 To .Words.Count
        If .Words(k).Characters.Count > ДлинаСлова Then
            НомерСлова = k
            ДлинаСлова = .Words(k).Characters.Count
        End If
    Next k
    .Words(НомерСлова).Sentences(1).Copy
    .Content.InsertParagraphBefore
    .Range(Start:=0, End:=0).Paste
End With
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2011, 22:37
Ответы с готовыми решениями:

Отладка программ
как это сделать в word не как не могу сделать эту программу 1.Опредилит...

Создание программ с формами
добрый день,форумчанам:) помогите,пожалуйста,с задачей по формам вот мой...

Отладка программ на VBA
В текстовом редакторе Microsoft Word ввести текст. Написать программу на VBA,...

Создание программ с функциями
Напишите процедуру на языке VBA для нахождения функции...

Написать пару программ
3.9. В данной действительной квадратной матрице A порядка N найти наибольший по...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.03.2011, 22:37

Увеличение быстродействия программ VBA
достаточно ли для увеличения быстродействия программы вцелом (а не только...

отключение совместимости программ в vba
Доброго времени суток уважаемые форумчане. Подскажите возможно ли программно...

Объединения мелких программ в одну
Здраствуйте сначала задание полностью чтоб было ясней. Дано систему...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
1
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru