Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VBA Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов https://www.cyberforum.ru/ vba/ thread890926.html
Дана последовательность из М чисел. Подсчитать, сколько в ней отрицательных, положительных и нулевых элементов. Добавлено через 41 секунду помогите пожалуйста
VBA Сохранение книги по указанному пути
Здравствуйте, нужна помощь. Нужен макрос, который бы сохранял книгу в папку, заранее прописанную в коде макроса. И интересует почти такой же макрос, но который сохранял бы не всю книгу, а...
Как определить, является ли строка правильным скобочным выражением VBA
Дана строка символов до точки. Определить, является ли она правильным скобочным выражением? Рассматривать только круглые скобки.
VBA Как выяснить, есть ли в строке все буквы, входящие в слово "шина" Дана строка символов. Выяснить, есть ли в ней все буквы, входящие в слово "шина"? https://www.cyberforum.ru/ vba/ thread890769.html
VBA Подсчёт максимального количества символов, стоящих подряд https://www.cyberforum.ru/ vba/ thread890493.html
День добрый. Можете ли помочь в решении такой задачи? Дана символьная строка. Посчитать максимальное количество подряд стоящих букв "А" во всей строке.
Как уменьшить время работы макроса? VBA
Добрый вечер! Суть проблемы: Открыто две книги, в одной макрос, делаем активной ту в которой нет макроса, запускаем макрос. Макрос создает новую книгу в формате csv, присваивает ей имя,...
переход по формуле к источнику VBA
Добрый день! Как то раз видел макрос который позволяет по формуле переходит к источнику, но не смог найти, кто-нибудь может подскажет. Суть работы у неё следующий, при нажатии комбинации клавиш,...
VBA Условный оператор и оператор выбора Дано квадратное уравнение Ax^2 + Bx + C = 0. Числа A, B, C вводятся в поля ввода. Найти корни уравнения, предусмотреть вариант отсутствия корней. https://www.cyberforum.ru/ vba/ thread890046.html
VBA Excel.Pomogite ispravit oshibku https://www.cyberforum.ru/ vba/ thread890019.html
Здравствуйте.Дан список Excel сотрудников, в форме добавления строки вылезает ошибка ("Необходимо заполнить все поля").Помогите,пожалуйста,исправить ошибку.
VBA Области, описываемые логическими выражениями: принадлежит ли точка области? Для данных областей составить линейную программу, которая печатает true, если точка с координатами (х, у) принадлежит закрашенной области, и false — в противном случае: https://www.cyberforum.ru/ vba/ thread890017.html
5542 / 1347 / 148
Регистрация: 08.02.2009
Сообщений: 4,080
Записей в блоге: 30
04.06.2013, 22:03 0

Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами

04.06.2013, 22:03. Просмотров 1453. Ответов 3
Метки (Все метки)

Ответ


макрос в ворде(до 2000000000 пробелов на 1) — зачем мелочиться?!
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub zamena__na_probel()
'применяется к тексту в документе Word
 
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = " {2;}" 'здесь искомый текст: 2 и более пробелов (в Word 95 вместо ; ,)
  .Replacement.Text = Chr(32) 'пробел
  .Wrap = wdFindContinue
  .Format = False
  .MatchWildcards = True 'флажок Подстановочные знаки (см. по Ctrl-F в документе) 
  .Execute Replace:=wdReplaceAll
End With
End Sub


Вернуться к обсуждению:
Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.06.2013, 22:03

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

Отредактировать текст, удаляя лишние пробелы между словами
В текстовом файле хранится некоторый текст. Отредактировать текст, удаляя лишние пробелы между...

Отредактировать текст, удалив лишние пробелы и оставив только по одному пробелу
Помогите пожалуйста написать программу .В исходном предложении поставить произвольное число...

Отредактировать текст, удаляя лишние символы пробелов между словами
Отредактировать текст,удаляя лишние символы пробелов между словами;по нажатию произвольной клавиши...

Откорректировать файл, удаляя пустые строки, пробелы в конце и вначале строк и оставляя между словами по одному пробелу
Помогите пожалуйста. Задание. Дан текстовый файл Т. Откорректировать его, удаляя пустые строки,...

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