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

@EriCKinG · Регистрация: 11.11.2012

toiai · 04.06.2013, 20:33

Примерно так:

Visual Basic

Sub pr3()
    Dim s$
    s = "Äàíà  ñòðîêà ñèìâîëîâ.   Âûÿñíèòü, åñòü ëè â íåé âñå  áóêâû, âõîäÿùèå  â ñëîâî"
    MsgBox ("Îòðåäàêòèðîâàííàÿ ñòðîêà - " & Application.Trim(s))
End Sub

shanemac51 · 04.06.2013, 21:58

макрос в ворде(до 20пробелов на 1)

Код

Sub zamena_probel()
'

'
 Selection.Find.ClearFormatting
 Selection.Find.Replacement.ClearFormatting
 With Selection.Find
  .Text = " {1;20}"
  .Replacement.Text = " "
  .Forward = True
  .Wrap = wdFindContinue
  .Format = False
  .MatchCase = False
  .MatchWholeWord = False
  .MatchByte = False
  .MatchAllWordForms = False
  .MatchSoundsLike = False
  .MatchWildcards = True
 End With
 Selection.Find.Execute Replace:=wdReplaceAll
End Sub

@Sasha_Smirnov · 04.06.2013, 22:03

макрос в ворде(до 2000000000 пробелов на 1) — зачем мелочиться?!

Visual Basic

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

@EriCKinG 1 / 1 / 0 Регистрация: 11.11.2012 Сообщений: 22
		1
	Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами 04.06.2013, 20:28. Просмотров 1418. Ответов 3 Метки нет (Все метки) Ввести текст.Отредактировать текст,удаляя из него лишние пробеоы,оставляя только по одному пробелу между словами 0

Опции темы