Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пробелы в Word-e / 16 сообщений из 16, страница 1 из 1
17.05.2010, 10:43
    #36631499
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Есть программа справочник из которой методом Copy - Paste (программа так настроена чтобы только печатать, а не экспортировать) весь текст заношу в документ Word.
При вставке, в тексте появляется много пробелов скажем так
Код: plaintext
" А роза упала на лапу азора                        А роза упала на лапу азора. А роза упала на лапу азора А роза упала на лапу азора          А роза упала на лапу азора                                А роза упала на лапу азора                   А роза упала на лапу азора                                  А роза упала на лапу азораА роза упала на лапу азораА роза упала на лапу азора           А роза упала на лапу азора                                 А роза упала на лапу азора"
Как через макрос или чем то убрать все эти пробелы. попробовал форматом см. рис. ничего не получилось
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 10:43
    #36631500
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 11:40
    #36631648
f
f
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Попробуй Специальная вставка - текст в формате RTF.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 12:11
    #36631744
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Нет в любом случае никаких изменений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 12:40
    #36631818
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
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, 13:09
    #36631892
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Да все получилось, но проблемка вышла.
Код: plaintext
1.
2.
3.
Ааааааааааааа аааааааааааааа              ааааааааааааааа        
бббббббббббббб                 
ввввввввввв                    ааааааааааааааааааааааа                      аааааааааааааа                   
гг      ааааааааааааааааааааааааааааааа                                             аааааааааааааааа


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

А надо получить так то есть, чтоб текст был "растянут" на странице
Код: plaintext
1.
2.
Ааааааааааааа аааааааааааааа бббббббббббббб аааааааааааааааааааа
ввввввввввв ааааааааааааааааааааааа аааааааааааааа                   
гг ааааааааааааааааааааааааааааааа аааааааааааааааа
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 13:19
    #36631925
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Тогда добавляем строку
Код: 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:24
    #36631939
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Спасибочки
Уупс. Тогда все смешалось в оди текст. То бишь скажем было так

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

Стало так
Код: plaintext
  Про розу А роза упала на лапу азора А роза упала на лапу азора А роза упала на лапу азора А роза упала на лапу азора а) роза б) азор лапу в) упала Конец
Тогда как быть?????????????
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 13:42
    #36632018
Пробуй камнем
Пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
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:44
    #36632026
Пробуй камнем
Пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
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:53
    #36632058
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Нет ничего не получается
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 13:55
    #36632068
vlth
vlth
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
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:59
    #36632075
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Было так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 14:02
    #36632086
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Стало так
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
17.05.2010, 15:21
    #36632308
Пробуй камнем
Пробуй камнем
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
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, 16:02
    #36632414
Ser Artur
Ser Artur
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пробелы в Word-e
Код обьединяет все. Начиная от абзацев кончая под абзацами. Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Пробелы в Word-e / 16 сообщений из 16, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 560ms
Закрыть
start [/forum/topic.php?fid=61&mobile=1&tid=2178124]:
 0ms
get settings:
 11ms
get forum list:
 21ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 212ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 51ms
get tp. blocked users:
 1ms
others: 241ms
total:  560ms
x
x
Закрыть


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