Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Добрый день!
Подскажите как можно выделить в документе только текст без выделения таблиц и рисунков?
Документы очень большие, работать с зажатой CTRL не удобно, и постоянно встречаются таблицы, которые не должны выделяться.
Может решение заключается в макросе?
С уважением, Максим.
а что надо с выделенным делать?
Нужно его выровнять по ширине и добавить интервалы до и после абзаца. Но интервалы не всегда.
Соответственное если выделить весь документ, то выровняется текст и в таблицах, а этого не надо.
Меня смутила фраза
как можно выделить в документе только текст без выделения таблиц и рисунков?
примерно так ---попробуйте сначала на копии
Sub a_130531_1433()
'интервалы для гладкого текста
'выравнивание по ширине
Dim pr As Paragraph
Dim j1 'текст в таблице
Dim s1 'текст параграфа
For Each pr In Word.ActiveDocument.Paragraphs
pr.Range.Select
j1 = Selection.Information(wdWithInTable)
s1 = pr.Range.Text
If Len(s1) > 3 Then
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
End If
If j1 = False Then
With Selection.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 3
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
End If
Next pr
End SubДанные в таблицах тоже выравнивает по ширине, чего делать не нужно.
Можно ли просто выделить весь текст, а я сам потом уже вручную нажму выравнивание по ширине?
Потому что мне не всегда надо добавлять интервалы, а выравнивать надо всегда.
shanemac51, это гениально!
Немного преобразовал код shanemac51, который должен отличать обычный текст от текста в таблице и от рисунков.
Sub a_130531_1433()
'интервалы для гладкого текста
'выравнивание по ширине
Dim pr As Paragraph
Dim j1 'текст в таблице
Dim s1 'текст параграфа
For Each pr In Word.ActiveDocument.Paragraphs
pr.Range.Select
j1 = Selection.Information(wdWithInTable)
s1 = pr.Range.Text
'Отделение таблиц, рисунков и пустых строк
If j1 = False And Len(s1) > 3 Then
'(Обработка выделенного фрагмента)
MsgBox ("Обработка выделенного фрагмента")
End If
Next pr
End SubМакрос обрабатывает абзацы по одному. Все выделить, кроме таблиц и рисунков, пока не получается.
Пометьте таблицы и рисунки или остальной текст, после чего, используйте поиск для выделения всех вхождений того или другого. Способов пометки множество, например:
- изменить уровень абзацев, например на 9
- использовать выделение цветом
...
По-моему, использование уровней довольно удобно. Если же, при оформлении документа, использовались стили, то выделение сильно упрощается.
Пометьте таблицы и рисунки или остальной текст, после чего, используйте поиск для выделения всех вхождений того или другого. Способов пометки множество, например:
- изменить уровень абзацев, например на 9
- использовать выделение цветом
...
По-моему, использование уровней довольно удобно. Если же, при оформлении документа, использовались стили, то выделение сильно упрощается.
То есть Вы предлагаете опять же вручную выделять?
У меня часто бывают тексты по 200 страниц, на каждой второй скажем странице идет небольшая таблица, которую трогать не надо. Получается очень много времени уходит просто на выделение текста.
С уважением, Максим.
Немного преобразовал код shanemac51, который должен отличать обычный текст от текста в таблице и от рисунков.
Sub a_130531_1433() 'интервалы для гладкого текста 'выравнивание по ширине Dim pr As Paragraph Dim j1 'текст в таблице Dim s1 'текст параграфа For Each pr In Word.ActiveDocument.Paragraphs pr.Range.Select j1 = Selection.Information(wdWithInTable) s1 = pr.Range.Text 'Отделение таблиц, рисунков и пустых строк If j1 = False And Len(s1) > 3 Then '(Обработка выделенного фрагмента) MsgBox ("Обработка выделенного фрагмента") End If Next pr End SubМакрос обрабатывает абзацы по одному. Все выделить, кроме таблиц и рисунков, пока не получается.
Выскакивает окошко "Обработка выделенного фрагмента", выделяется следующий фрагмент, потом снова окошко, но форматирование текста не меняется.
удалите строку
MsgBox ("Обработка выделенного фрагмента")
Sub a_130531_1433()
'интервалы для гладкого текста
'выравнивание по ширине
Dim pr As Paragraph
Dim j1 'текст в таблице
Dim s1 'текст параграфа
For Each pr In Word.ActiveDocument.Paragraphs
pr.Range.Select
j1 = Selection.Information(wdWithInTable)
s1 = pr.Range.Text
If j1 = False and Len(s1) > 3 Then
With Selection.ParagraphFormat
.Alignment = wdAlignParagraphJustify
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 3
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpaceSingle
.Alignment = wdAlignParagraphJustify
.WidowControl = True
.KeepWithNext = False
.KeepTogether = False
.PageBreakBefore = False
.NoLineNumber = False
.Hyphenation = True
.FirstLineIndent = CentimetersToPoints(0)
.OutlineLevel = wdOutlineLevelBodyText
.CharacterUnitLeftIndent = 0
.CharacterUnitRightIndent = 0
.CharacterUnitFirstLineIndent = 0
.LineUnitBefore = 0
.LineUnitAfter = 0
.MirrorIndents = False
.TextboxTightWrap = wdTightNone
.AutoAdjustRightIndent = True
.DisableLineHeightGrid = False
.FarEastLineBreakControl = True
.WordWrap = True
.HangingPunctuation = True
.HalfWidthPunctuationOnTopOfLine = False
.AddSpaceBetweenFarEastAndAlpha = True
.AddSpaceBetweenFarEastAndDigit = True
.BaseLineAlignment = wdBaselineAlignAuto
End With
End If
Next pr
End SubБлагодарю, работает.
Подскажите что удалить из макроса, чтобы он только выравнивал текст по ширине без изменения интервалов.
убери строки
.SpaceBefore = 12
.SpaceBeforeAuto = False
.SpaceAfter = 3
.SpaceAfterAuБлагодарю!
Все замечательно работает!
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться