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

Макрос для LibreOffice: заменять все буквы каждого пятого слова на вторые буквы следующего слова за ним

25.11.2012, 12:28. Просмотров 2505. Ответов 11
Метки нет (Все метки)

Здравсвуйте!
Нужен макрос для LibreOffice, который будет заменять все буквы каждого 5-го слова на вторые буквы следующего слова за ним.
Заранее очень благодарен!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
25.11.2012, 12:28
Ответы с готовыми решениями:

Все буквы слова, в котором содержится не менее двух букв а, заменить на заглавные буквы
Задача такая: Все буквы слова, в котором содержится не менее двух букв а,...

Сделать макрос в Word, вводишь строку и макрос произвольно меняет шрифт, цвет и размер для каждого слова из этого активного вордовского документа.
Началось VBA - лекций нет, только практика. Препод категоричеки отказывается...

Найти либо те слова в тексте, в которых есть все буквы определенного слова, либо те, в которых нет ни одной
1 - текстовое поле, куда пользователь вводит произвольный текст. 2 - текстовое...

Вычеркнуть из слова все руские буквы К
Создать макрос, вычеркивающий из слова все руские буквы К.

Вывести все слова в которых буквы не повторяются
Доброго времени суток, прошу помочь в решении экзаменационной задачи. Условие:...

11
ddegget
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 29
28.11.2012, 17:14  [ТС] 2
текст можно взять любой, помогите пожалуйста!
0
Казанский
14153 / 5852 / 1535
Регистрация: 24.09.2011
Сообщений: 9,193
28.11.2012, 20:20 3
Странно, задача явно учебная. Неужели где-то изучают LibreOffice вместо MS Office?
0
ddegget
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 29
29.11.2012, 20:23  [ТС] 4
да, изучают к сожалению
0
Sasha_Smirnov
5466 / 1309 / 143
Регистрация: 08.02.2009
Сообщений: 4,017
Записей в блоге: 29
30.11.2012, 08:41 5
Так поделились бы познаниями! Хоть какой-нибудь макрос запишите.
Цитата Сообщение от ddegget Посмотреть сообщение
текст можно взять любой
«Текст:Сегодня-то 30 ноября 2012 г.!”» — здесь 5-е слово 2012 (внутри внешних кавычек), а в 6-м — одна буква...

Добавлено через 3 часа 20 минут
Цитата Сообщение от Казанский Посмотреть сообщение
Странно, задача явно учебная.
Во всяком случае она необычная! Уж не знаю, кто что почерпнёт и познает, увидев следующий
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
Sub ПодиРазбери()
Const N = 5 'преобразуем каждое 5-е слово
Dim i, k, spoiler
Selection.HomeKey unit:=wdStory 'стали в начало текста (Ctrl-Shift-Home)    
    With Selection
            .Find.text = "<[! ^9^11^13]{1;}" 'шаблон поиска слов (см. Ctrl-F после выполнения)
            .Find.Wrap = wdFindContinue
            .Find.MatchWildcards = True
        Do
            For i = 1 To N
                If Not .Find.Execute Then Exit Do
            Next
                k = k + 1
                        'k·N-е слово найдено и, в нашем примере, выделено
            If Not .Find.Execute Then Exit Do
                        'k(N + 1)-е слово выделено - если найдено
            
                If Len(.text) < 2 Then
                    spoiler = Left(.text, 1) 'заменяем на 1-ю букву
                Else
                    spoiler = Mid(.text, 2, 1)   '(если нет 2-й)
                End If
'MsgBox spoiler
            Application.GoBack                      'вернулись на слово
            .text = String(Len(.text), spoiler)     'заменили!
            .Collapse wdCollapseEnd 'выделение сброшено (вправо); берём новую 5-ку (если есть)
        Loop
    MsgBox "Замена завершена. Испорчено слов: " & k & "."
    End With
End Sub
0
Миниатюры
Макрос для LibreOffice: заменять все буквы каждого пятого слова на вторые буквы следующего слова за ним   Макрос для LibreOffice: заменять все буквы каждого пятого слова на вторые буквы следующего слова за ним  
mc-black
2759 / 695 / 101
Регистрация: 04.02.2011
Сообщений: 1,421
30.11.2012, 09:35 6
Цитата Сообщение от ddegget Посмотреть сообщение
да, изучают к сожалению

Не по теме:

Ого! Такими темпами скоро в школах скоро bash скрипты начнут писать, темы курсовых в ВУЗах давать "создать собственный дистрибутив Linux" )))

0
ddegget
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 29
30.11.2012, 10:26  [ТС] 7
mc-black, и это только первый курс универа страшно подумать, что будет дальше)
0
ddegget
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 29
02.12.2012, 11:16  [ТС] 8
Sasha_Smirnov, у меня макрос работать не хочет..
0
Миниатюры
Макрос для LibreOffice: заменять все буквы каждого пятого слова на вторые буквы следующего слова за ним  
Sasha_Smirnov
5466 / 1309 / 143
Регистрация: 08.02.2009
Сообщений: 4,017
Записей в блоге: 29
03.12.2012, 19:22 9
Для начала удалите из него то, что вызвало «нежелание работать», а там посмотрим.
0
ddegget
0 / 0 / 0
Регистрация: 11.11.2012
Сообщений: 29
04.12.2012, 18:11  [ТС] 10
Sasha_Smirnov, ну при ошибке выделяется та строка, которая на скрине, я ее удалял и толку ноль..
0
SlavaRus
1091 / 205 / 29
Регистрация: 15.03.2010
Сообщений: 641
04.12.2012, 18:38 11
В Libre другая объектная модель. Работать скорее всего не будет.
0
Sasha_Smirnov
5466 / 1309 / 143
Регистрация: 08.02.2009
Сообщений: 4,017
Записей в блоге: 29
05.12.2012, 02:28 12
Ну так в режиме записи нажмите ‹CTRL›+‹F›, нажмите "Заменить всё", остановите запись.

Тогда мы и увидим, какой объект аналогичен Selection — и получим код без «капризов»!
0
05.12.2012, 02:28
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.12.2012, 02:28

Вывести те слова,перед которыми находятся слова с меньшей буквы
Здравствуйте, я не могу понять задание, как к нему &quot;подступиться&quot;, с чего...

Программа должна заменять все буквы Chl на Ch2
Странно, но передо мной девушка уже выступила с такой же темой =) Я тоже хочу...

Все слова, длиной более пяти символов, начинать с прописной буквы
Добрый день! Требуется написать программу в VBA: Дан текст, слова которого...


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

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

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