ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пробелы в Word-e
16 сообщений из 16, страница 1 из 1
Пробелы в Word-e
    #36631499
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Есть программа справочник из которой методом Copy - Paste (программа так настроена чтобы только печатать, а не экспортировать) весь текст заношу в документ Word.
При вставке, в тексте появляется много пробелов скажем так
Код: plaintext
" А роза упала на лапу азора                        А роза упала на лапу азора. А роза упала на лапу азора А роза упала на лапу азора          А роза упала на лапу азора                                А роза упала на лапу азора                   А роза упала на лапу азора                                  А роза упала на лапу азораА роза упала на лапу азораА роза упала на лапу азора           А роза упала на лапу азора                                 А роза упала на лапу азора"
Как через макрос или чем то убрать все эти пробелы. попробовал форматом см. рис. ничего не получилось
...
Рейтинг: 0 / 0
17.05.2010, 10:43
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631500
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
...
Рейтинг: 0 / 0
17.05.2010, 10:43
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631648
f
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
f
Участник
Попробуй Специальная вставка - текст в формате RTF.
...
Рейтинг: 0 / 0
17.05.2010, 11:40
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631744
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Нет в любом случае никаких изменений
...
Рейтинг: 0 / 0
17.05.2010, 12:11
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631818
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Ser Artur,

Код: plaintext
1.
2.
3.
4.
5.
Dim strT As String
strT = ThisDocument.Content
Do Until InStr(strT, "  ") =  0 
    strT = Replace(strT, "  ", " ")
Loop
ThisDocument.Content = strT
...
Рейтинг: 0 / 0
17.05.2010, 12:40
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631892
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Да все получилось, но проблемка вышла.
Код: plaintext
1.
2.
3.
Ааааааааааааа аааааааааааааа              ааааааааааааааа        
бббббббббббббб                 
ввввввввввв                    ааааааааааааааааааааааа                      аааааааааааааа                   
гг      ааааааааааааааааааааааааааааааа                                             аааааааааааааааа


Получилось так
Код: plaintext
1.
2.
3.
4.
Ааааааааааааа аааааааааааааа
бббббббббббббб
аааааааааааааааааааа                 
ввввввввввв ааааааааааааааааааааааа аааааааааааааа                   
гг ааааааааааааааааааааааааааааааа аааааааааааааааа

А надо получить так то есть, чтоб текст был "растянут" на странице
Код: plaintext
1.
2.
Ааааааааааааа аааааааааааааа бббббббббббббб аааааааааааааааааааа
ввввввввввв ааааааааааааааааааааааа аааааааааааааа                   
гг ааааааааааааааааааааааааааааааа аааааааааааааааа
...
Рейтинг: 0 / 0
17.05.2010, 13:09
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631925
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Тогда добавляем строку
Код: plaintext
strT = Replace(strT, Chr( 13 ), "")
 
Код: plaintext
1.
2.
3.
4.
5.
6.
Dim strT As String
strT = ThisDocument.Content
strT = Replace(strT, Chr( 13 ), "")
Do Until InStr(strT, "  ") =  0 
    strT = Replace(strT, "  ", " ")
Loop
ThisDocument.Content = strT
...
Рейтинг: 0 / 0
17.05.2010, 13:19
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36631939
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Спасибочки
Уупс. Тогда все смешалось в оди текст. То бишь скажем было так

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
  Про розу
А роза упала на лапу азора                А роза упала на лапу азора                
А роза упала на лапу азора       А роза упала на лапу азора                
а) роза
б) азор              
лапу
в) упала
Конец

Стало так
Код: plaintext
  Про розу А роза упала на лапу азора А роза упала на лапу азора А роза упала на лапу азора А роза упала на лапу азора а) роза б) азор лапу в) упала Конец
Тогда как быть?????????????
...
Рейтинг: 0 / 0
17.05.2010, 13:24
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632018
Пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробуй камнем
Гость
Ser Artur,

Код: plaintext
1.
2.
3.
4.
ThisDocument.Content.Select
With Selection.Find
    .Execute FindText:="^w", ReplaceWith:=" ", Replace:=wdReplaceAll
    .Execute FindText:="^p", ReplaceWith:=" ", Replace:=wdReplaceAll
    .Execute FindText:="  ", ReplaceWith:=" ", Replace:=wdReplaceAll
End With
...
Рейтинг: 0 / 0
17.05.2010, 13:42
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632026
Пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробуй камнем
Гость
Ser Artur, или ещё короче

Код: plaintext
1.
2.
3.
4.
ThisDocument.Content.Select
With Selection.Find
    .Execute FindText:="^p", ReplaceWith:=" ", Replace:=wdReplaceAll
    .Execute FindText:="^w", ReplaceWith:=" ", Replace:=wdReplaceAll
End With
...
Рейтинг: 0 / 0
17.05.2010, 13:44
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632058
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Нет ничего не получается
...
Рейтинг: 0 / 0
17.05.2010, 13:53
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632068
Фотография vlth
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
vlth
Участник
Ser Artur, гадаем "на кофейной гуще": получится-не получится
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Dim pr As Paragraph, strTmp As String
Dim strT As String

For Each pr In ThisDocument.Paragraphs
    strTmp = pr.Range.Text
    strTmp = Replace(strTmp, Chr( 13 ), "")
    Do Until InStr(strTmp, "  ") =  0 
        strTmp = Replace(strTmp, "  ", " ")
    Loop
    strT = strT & strTmp & vbCr
Next
ThisDocument.Content = strT
...
Рейтинг: 0 / 0
17.05.2010, 13:55
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632075
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Было так
...
Рейтинг: 0 / 0
17.05.2010, 13:59
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632086
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Стало так
...
Рейтинг: 0 / 0
17.05.2010, 14:02
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632308
Пробуй камнем
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробуй камнем
Гость
Ser Artur,
Код: plaintext
1.
2.
3.
4.
ThisDocument.Content.Select
With Selection.Find
    .Execute FindText:="^w^p", ReplaceWith:=" ", Replace:=wdReplaceAll
    .Execute FindText:="^w", ReplaceWith:=" ", Replace:=wdReplaceAll
End With
а такой вариант, чем не устроит?
...
Рейтинг: 0 / 0
17.05.2010, 15:21
| Ответить | Цитировать | Написать  
Пробелы в Word-e
    #36632414
Фотография Ser Artur
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ser Artur
Участник
Код обьединяет все. Начиная от абзацев кончая под абзацами. Спасибо
...
Рейтинг: 0 / 0
17.05.2010, 16:02
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пробелы в Word-e
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=36632018&tid=2178124]:
 0ms
get settings:
 9ms
get forum list:
 11ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 159ms
get topic data:
 6ms
get forum data:
 1ms
get page messages:
 28ms
get tp. blocked users:
 1ms
others: 284ms
total:  503ms
созд. / загр.: 503ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]