превращение автономеров в цифры

[Serge_Bliznykov]

raxp, Вы реально не понимаете, что нужно автору топика?
Создайте документ ворд, включите автонумерацию, заполните несколько пунктов.
Теперь выключите автонумерацию, но ТАК, чтобы НОМЕРА ОСТАЛИСЬ. Они должны остаться КАК ОБЫЧНЫЙ ТЕКСТ, чтобы их можно было легко изменять (редактировать, как любой другой текст).


caute, я тут на форуме просил помощи, мне нужно было нумерацию страниц превратить в обыкновенный текст. Мне помогли, написали макрос, который выполнил данную задачу. К сожалению, я в этом не силён, поэтому помочь Вам не смогу.

UPDATE
А если поступить в лоб:
выделяете текст, нажимаете копировать, запускаете из стандартных программ WordPAD, вставляете текст туда, выделяете, копируете,
возвращаетесь в MS Word, нажимаете вставить. Всё. задача решена.

p.s. А вообще, я не знаю нюансов решаемой Вами задачи, но вообще, строго говоря, Вы пытаетесь ПРАВИЛЬНО отформатированный текст, превратить в НЕПРАВИЛЬНО отформатированный.
Если бы Вы знали, сколько стоит сил и времени, чтобы подобный текст превратить в нормальный (убрать выравнивание пробелами, заменить цифры на автонумерацию, сделать нормальные заголовки, чтобы можно было собрать оглавление и т.д. и т.п.)

[Poma][a]

ActiveDocument.ConvertNumbersToText ?

UPDATE 23 : 12

запускаете из стандартных программ WordPAD

В WordPad'e есть списки. А вот в блокноте нет..

Не что подобное я когда-то делал на работе (ага.. самому смешно) Нужно было создавать архив, забивая в Вордовские документы название справок и их № страниц. Но была проблемка : где-то одна справка была на 2-х страницах, и тогда приходилось ручками вбивать числа, а затем снова вставлял список.. Геморрой был еще тот..

[caute]

Вы пытаетесь ПРАВИЛЬНО отформатированный текст, превратить в НЕПРАВИЛЬНО отформатированный.

формат текста задается СТИЛЕМ, например "нумерованный список" (встроен в Word)
отключение автонумерации меняет СТИЛЬ "нумерованный список" на "обычный", но ведь вы можете назначить выделенному тексту любой желаемый стиль - в том числе и стиль, по формату идентичный "нумерованному списку". Это легко сделать, дописав пару строк к макросу замены автонумерации на текстовую.
Только где он, тот макрос? raxp его, что ли, напишет...
Может, shanemac51 найдет, она мне раньше уже помогла.

выделяете текст, нажимаете копировать, запускаете из стандартных программ WordPAD, вставляете текст туда, выделяете, копируете, возвращаетесь в MS Word, нажимаете вставить.

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

[shanemac51]

попробуйте на копии

Sub zspis28()
'удаление автономеров
Dim pr As Paragraph, j1, s1, s2
j1 = Word.ActiveDocument.Paragraphs.Count
Do While j1 > 0
Set pr = Word.ActiveDocument.Paragraphs(j1)
pr.Range.Select
s1 = pr.Range.Text
With Selection.Range
s2 = .ListFormat.ListString
If Len(s2) > 0 Then
Debug.Print .ListFormat.ListLevelNumber; .ListFormat.ListString; s1
.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
.Text = s2 & " " & s1
End If
End With
j1 = j1 - 1
Loop
End Sub

[caute]

работает ОК, но только по всему тексту целиком
выделение не понимает
в принципе, для большинства случаев годится, спасибо!

[shanemac51]

для выделения

Sub zspis28s()
'
Dim pr As Paragraph, j1, s1, s2
j1 = Selection.Paragraphs.Count
Do While j1 > 0
Set pr = Selection.Paragraphs(j1)

s1 = pr.Range.Text
With pr.Range
s2 = .ListFormat.ListString
If Len(s2) > 0 Then
Debug.Print .ListFormat.ListLevelNumber; .ListFormat.ListString; s1
.ListFormat.RemoveNumbers NumberType:=wdNumberParagraph
.Text = s2 & " " & s1
End If
End With
j1 = j1 - 1
Loop
End Sub

[Vadim39]

Попробуйте это:

Sub Convert_Spisok()
    If Selection.Start <> Selection.End Then
           Selection.Range.ListFormat.ConvertNumbersToText
        Else: ActiveDocument.ConvertNumbersToText
    End If
End Sub

[Sasha_Smirnov]

Сообщение от Serge_Bliznykov

Если бы Вы знали, сколько стоит сил и времени, чтобы подобный текст превратить в нормальный (убрать выравнивание пробелами, заменить цифры на автонумерацию, сделать нормальные заголовки, чтобы можно было собрать оглавление и т.д. и т.п.)

Да секунды 3: макросом! Плюс семинар (для коллег) по правилам набора, минут на 45.

Сообщение от Poma][a

ActiveDocument.ConvertNumbersToText

Это пример из справки, так что raxp тоже прав.

Другое дело, что самому копать справку тяжелее, чем веткой форума!

[caute]

Vadim39, годится, отлично! спасибо
Sasha_Smirnov, грамотному человеку подсказка из справки помогает, только не мне - к тому же там еще If то, If сё

[Sasha_Smirnov]

Форум безусловно лучше справки! Я лет 5 искал это несчастное ConvertNumbersToText.

Интересно, сколько минут затратил профессионал Poma][a.