Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Помогите разобраться.
мне нужно чтобы каким-либо образом (макросом или еще как) автоматически удалялись строки с людьми, у которых нет количества часов (в данном случае начиная с Петровского).
пример прилагаю.
Вот макрос который удаляет строки по Вашим параметрам:
Public Sub Удаление_строк()
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Do
With Selection.Find
.Text = "( за)([^0032]{1;})(час)(?{1;})([^0013])"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.MatchWildcards = True
.Execute
If .Found = True Then
Selection.Paragraphs(1).Range.Delete
Else
Exit Do
End If
End With
Loop
End SubОтредактировано aap77 (22.12.2013 09:35:17)
Sub GetOutParagraphsWithUserDefindContent_131222_1411()
Const UDC = "за часов" 'текст, наличие которого грохает абзац
Dim i As Long 'счётчик абзацев
With ActiveDocument 'работаем в активном документе Word
i = .Paragraphs.Count
'''''''''''''''''''''''''''''''''''''''''это незаконно''''''''
'.Range.Find.Execute Chr(11), replacewith:=Chr(13), Replace:=wdReplaceAll
'заменили разрывы строк (код 11) символами абзацев (код 13)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Переберём все абзацы и удалим те, в которых есть данный текст
Do While i > 0
If LCase(.Paragraphs(i).Range.Text) Like "*" & LCase(UDC) & "*" Then
Debug.Print i, .Paragraphs(i).Range.Text
.Paragraphs(i).Range.Delete 'удалили весь абзац, где был текст константы UDC
'ненужный абзац удалён
End If
i = i - 1
Loop
End With
End SubСпасибо большое, получилось.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Автоматическое удаление ненужных строк
Если сказать, что нет человека, хоть немного знакомого с компьютером, который бы не слышал о редакторе для набора текстов Microsoft Word, то это будет никакое не преувеличение. Наш сайт о Microsoft Office Word даст ответ про: как вставить в ворд стандартные рамки. Однако больше половины пользователей, активно работающих в программе, используют ее по минимуму.
Создать документ, оформить, сохранить, распечатать – это простейшие операции, но при больших объемах можно значительно сократить время и повысить производительность, если их автоматизировать. На портале о Microsoft Office Word вы узнаете про: возможно ли восстановить документ открывающийся квадратикати. Еще в большей степени это касается редактирования чужих, порой, неудобоваримых текстов.
На форуме сайта Ворд Эксперт, собрана коллекция лучших шаблонов, макросов и настроек приложения для различных задач, связанных с рецензированием, редактированием, набором и оформлением текста. Наш сайт о Microsoft Office Word даст ответ про: word 2010 шрифт по умолчанию.
Здесь вы найдете как принципы автоматизации для различных операций, так и готовые решения. Познакомитесь с отличиями и тонкостями в работе различных версиях Ворда, сможете выбрать литературу, необходимую для совершенствования ваших знаний и навыков, или оставить запрос на решение той либо иной проблемы. На портале о Microsoft Office Word вы узнаете про: word 2010 не ставится черта над сноской.
Кроме того, вы сможете поделиться с участниками своими собственными наработками и настройками. Сравнить эффективность различных способов решения задач по редактированию текстов. На портале о Microsoft Office Word вы узнаете про: как поменять страницу на альбомную в ворде 3.