Как разделить "слипшиеся" слова в Word?

@chypotuch · Регистрация: 02.12.2013

Author24 — интернет-сервис помощи студентам

Братья, подскажите, как решить такую проблему:

В документе Word часто встречаются "слипшиеся" слова с обычным и курсивным шрифтом.
Нужно разделить эти "слипшиеся" слова пробелом.

Пример:
В документе Word частовстречаются "слипшиеся" слова с обычным и курсивнымшрифтом.

Нужно получить:
В документе Word часто встречаются "слипшиеся" слова с обычным и курсивным шрифтом.

shanemac51 · 03.12.2013, 09:40

Visual Basic

Sub w131204_0926()  ''отделение курсива от обычного
Dim w1, s1, s2
For Each w1 In Word.ActiveDocument.Words
If w1.Italic > 999999 Then
 
s1 = w1.Text
s2 = InputBox("разделите слово ", , s1)
If s1 <> s2 Then
w1.Text = s1
End If
End If
Next w1
End Sub

@ViterAlex · 03.12.2013, 15:27

Visual Basic

Sub SplitItalic()
    Selection.HomeKey wdStory
    With Selection.Find
        .ClearFormatting
        .ClearHitHighlight
        .Text = ""
        .Font.Italic = True
        While (.Execute)
            If Not Selection.Characters.First.Previous.Font.Italic And _
                Selection.Characters.First.Previous.Text Like "[! ,.:;?!-]" Then
                Selection.InsertBefore " "
            ElseIf Not Selection.Characters.Last.Next.Font.Italic And _
                Selection.Characters.Last.Next.Text Like "[! ,.:;?!-]" Then
                Selection.InsertAfter " "
            End If
        Wend
    End With
End Sub

@chypotuch · 03.12.2013, 22:04 **[ТС]**

ViterAlex, гранд респект Вам и низкий поклон, все работает!...

Но в начальном примере я не указал, что в "слипшихся" элементах могут присутствовать не только буквы, но и !,.:;?!-) др.знаки, поэтому пробелом, по сути, в этих "слипшихся" элементах нужно отделить курсивный шрифт от обычного (макрос должен учесть и буквы и другие возможные знаки, которые встречаются в этих "слипшихся" элементах).

@chypotuch 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 8
		1
	Как разделить "слипшиеся" слова в Word? 02.12.2013, 23:51. Показов 33695. Ответов 3 Метки нет (Все метки) Братья, подскажите, как решить такую проблему: В документе Word часто встречаются "слипшиеся" слова с обычным и курсивным шрифтом. Нужно разделить эти "слипшиеся" слова пробелом. Пример: В документе Word частовстречаются "слипшиеся" слова с обычным и курсивнымшрифтом. Нужно получить: В документе Word часто встречаются "слипшиеся" слова с обычным и курсивным шрифтом. 0

@chypotuch 0 / 0 / 0 Регистрация: 02.12.2013 Сообщений: 8
	03.12.2013, 22:04 [ТС]	4
	ViterAlex, гранд респект Вам и низкий поклон, все работает!... Но в начальном примере я не указал, что в "слипшихся" элементах могут присутствовать не только буквы, но и !,.:;?!-) др.знаки, поэтому пробелом, по сути, в этих "слипшихся" элементах нужно отделить курсивный шрифт от обычного (макрос должен учесть и буквы и другие возможные знаки, которые встречаются в этих "слипшихся" элементах). 0