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

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

24.03.2011, 22:37. Просмотров 878. Ответов 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

http://www.cyberforum.ru/vba/thread260495.html
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.03.2011, 22:37
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Откладка программ (VBA):

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

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

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

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

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

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

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

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

составление программ. символьные выражения
здравствуйте! мне помощь очень нужна нужно 1. составить программу...

Написание программ на школьном Basic
Помогите пожалуйста написать программы на обычном школьном Basic : 1. найти...


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

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

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