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

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

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

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

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

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

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

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

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

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

3
Dragokas
Эксперт WindowsАвтор FAQ
17141 / 7195 / 864
Регистрация: 25.12.2011
Сообщений: 10,978
Записей в блоге: 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
Busine2012
1297 / 399 / 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
Anubiss
0 / 0 / 0
Регистрация: 26.02.2016
Сообщений: 1
09.07.2012, 21:43 4
Большое спасибо! Всё заработало. Поразбираюсь ещё завтра, как эти примеры работают, чтобы ещё чего-нить дописать.
0
09.07.2012, 21:43
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
09.07.2012, 21:43

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

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

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


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

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

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