Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/26: Рейтинг темы: голосов - 26, средняя оценка - 4.96
0 / 0 / 0
Регистрация: 26.02.2016
Сообщений: 1
1

WORD 2003, вставить в тексте после каждой десятой точки перенос строки

09.07.2012, 16:55. Просмотров 4835. Ответов 3
Метки нет (Все метки)

Камрады, помогите решить такую задачу. Есть текст в WORD 2003, как вставить после каждой десятой точки перенос строки? Макрос нужен для деления сплошных массивов текста на блоки.

Видел похожую тему Написать макрос в word. Посимвольное прохождение документа. Но пример Казанского у меня не работает, выдаёт ошибку 6028 в строке №5 "не удается удалить диапазон". С примером Catstail не разобрался как получить символ и потом добавить к нему перенос строки.
Подскажите, если не сложно.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.07.2012, 16:55
Ответы с готовыми решениями:

Как вставить символ после каждой 5-ой строки (Word 2010)?
Здравствуйте. Подскажите пожалуйста кто знает, как вставить символ (например *) перед словом после...

Автоматический перенос данных с Ecxel в Word начиная с определенной строки с каждой страницы
Здравствуйте, Задача вот такая: есть excel файл с информацией по разъемам (1 разъем = 1 страница)....

Вставить в тексте после каждой цифры ее словесное описание.
Дан текст. Вставить в этом тексте после каждой цифры ее словесное описание.

В заданном тексте после каждой цифры, за которой стоит знак арифметического действия вставить пробел...
"В заданном тексте после каждой цифры, за которой стоит знак арифметического действия (‘+’, ‘–’,...

3
Эксперт WindowsАвтор FAQ
17591 / 7434 / 884
Регистрация: 25.12.2011
Сообщений: 11,227
Записей в блоге: 16
09.07.2012, 20:30 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Sub TC1()
Dim TC&, i&
Application.Browser.Previous
With ActiveDocument
  For i = 1 To .Range.End - 1
    Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
    If (Selection.Text) = "." Then TC = TC + 1
    If TC = 10 Then TC = 0: Selection.Text = "." & vbCrLf
    Selection.MoveRight Unit:=wdCharacter, Count:=1
  Next i
End With
End Sub
1
1299 / 401 / 22
Регистрация: 21.10.2011
Сообщений: 1,285
09.07.2012, 20:52 3
Visual Basic
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
Sub Procedure_1()
 
    Dim lСчётчик As Long
    Dim lStart As Long
    
    'Здесь нужно указать, после какой по счёту точки нужно
    'вставить знак абзаца.
    Const lPeriodNumber As Long = 2
 
    lСчётчик = 1
    
    Do
        With ActiveDocument.Range(Start:=lStart, End:=ActiveDocument.Range.End).Find
            .Text = "."
            .Wrap = wdFindStop
            Do While .Execute = True
                If lСчётчик = lPeriodNumber Then
                    
                    .Parent.InsertParagraphAfter
                    lStart = .Parent.Start + 1
                    Exit Do
                    
                End If
                lСчётчик = lСчётчик + 1
            Loop
            If .Found = False Then
                Exit Do
            End If
        End With
        lСчётчик = 1
    Loop
 
    MsgBox "Работа завершена!", vbInformation
    
End Sub
2
0 / 0 / 0
Регистрация: 26.02.2016
Сообщений: 1
09.07.2012, 21:43 4
Большое спасибо! Всё заработало. Поразбираюсь ещё завтра, как эти примеры работают, чтобы ещё чего-нить дописать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.07.2012, 21:43

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как в текстовый файл вставить пустые строки после каждой непустой строки, кроме последней?
Есть текстовый файл в котором n-е количество строк с записями. Надо после каждой строки с...

Вставить после каждой нечетной строки первую строку!
Нашел на форуме код, только с немного другим заданием(вставить первую после четной строки), но он...

Вставить после каждой нечетной строки первую строку
Вот такое задание. На форуме смотрел, но запутался во всех этих преобразованиях..

Вставить пустую строку после каждой пятой строки each
День добрый! Формирую корзину товаров перебирая таблицу с заказами с помощью each. Необходимо после...


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

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

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