Удаление строк из документа Word

TimV · 22.11.2005, 01:46

Здравствуйте
Намекните пожалуйста какие объекты и свойства нужно использовать для удаления ненужной строки(т.е. пустая строка или строка содержащая текст "удали меня") в документе Word. Удалять надо в цикле(кол-во параграфов, абзацев может быть разное).
Подразумеваю, что надо использовать Paragraph, но только непойму как. В документе есть таблицы.

Silver · 22.11.2005, 14:27

Цитата:

Sub ReadSentences()
Dim l As Long

For l = 1 To ThisDocument.Sentences.Count
MsgBox ThisDocument.Sentences(l)
Next l
End Sub

Данный пример перебирает предложения в тексте. Думаю, что тебе нужны все-же предложения, а не строки.

TimV · 22.11.2005, 21:28

Спасибо за ответ.
Подскажите пожалуйста как удалить пустую строку следующую за таблицей.
Замена "^p" на ""-не помогает.

flower2005 · 24.11.2005, 17:02

Может быть, такой вариант подойдет?
Sub Del_parag()
'
'удаляет пустой абзац после таблицы, если он есть
'
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
Selection.Start = Selection.End
Selection.Expand wdParagraph
If Selection.Characters.Count = 1 Then
MsgBox "Пусто"
Selection.Delete
End If
Next i
End Sub

Если пустых абзацев несколько, надо немного доработать.

TimV · 24.11.2005, 19:14

to: flower2005
Ваш макрос заработал, но появилась другая проблема. В файле между таблицами есть какието символы. Как их удалить ? Файл прилагается.

flower2005 · 01.12.2005, 14:37

Пример текста содержит примечания от нескольких рецензентов
После удаления примечаний удаляется пустая строка. Если все таблицы должны объединиться в одну, то требуется доработка. (хотя можно и два раза запустить процедуру

)
Sub udal2()
On Error Resume Next
'l = ActiveDocument.Comments.Count
'MsgBox l
WordBasic.DeleteAllCommentsInDoc
For i = 1 To ActiveDocument.Tables.Count
ActiveDocument.Tables(i).Select
Selection.Start = Selection.End
Selection.Expand wdParagraph
stroka = Trim(Selection.Range.Text)
If Len(stroka) = 1 Then
'MsgBox "Ïóñòî" & " " & i
Selection.Delete
End If
Next i
End Sub

TimV · 02.12.2005, 23:19

Спасибо. Сработало!

MaxMor · 26.08.2009, 20:51

а как решить вот такую задачу:

-имеем документы WORD, в которых есть пустые строки, количество их разное от 1 до 10-20 подряд

надо чтобы все пустые строки (подряд более одной) удалялись макросом

ну чтобы к примеру из пяти пустых строк подряд осталась одна, из двух тоже одна и тд.

22.11.2005, 01:46	#1
TimV Местный Регистрация: 27.04.2005 Сообщений: 112	Удаление строк из документа Word Здравствуйте Намекните пожалуйста какие объекты и свойства нужно использовать для удаления ненужной строки(т.е. пустая строка или строка содержащая текст "удали меня") в документе Word. Удалять надо в цикле(кол-во параграфов, абзацев может быть разное). Подразумеваю, что надо использовать Paragraph, но только непойму как. В документе есть таблицы.

22.11.2005, 21:28	#3
TimV Местный Регистрация: 27.04.2005 Сообщений: 112	RE: Удаление строк из документа Word Спасибо за ответ. Подскажите пожалуйста как удалить пустую строку следующую за таблицей. Замена "^p" на ""-не помогает.

24.11.2005, 17:02	#4
flower2005 Пользователь Регистрация: 21.01.2005 Сообщений: 76	RE: Удаление строк из документа Word Может быть, такой вариант подойдет? Sub Del_parag() ' 'удаляет пустой абзац после таблицы, если он есть ' For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Select Selection.Start = Selection.End Selection.Expand wdParagraph If Selection.Characters.Count = 1 Then MsgBox "Пусто" Selection.Delete End If Next i End Sub Если пустых абзацев несколько, надо немного доработать.

24.11.2005, 19:14	#5
TimV Местный Регистрация: 27.04.2005 Сообщений: 112	RE: Удаление строк из документа Word to: flower2005 Ваш макрос заработал, но появилась другая проблема. В файле между таблицами есть какието символы. Как их удалить ? Файл прилагается.

01.12.2005, 14:37	#6
flower2005 Пользователь Регистрация: 21.01.2005 Сообщений: 76	RE: Удаление строк из документа Word Пример текста содержит примечания от нескольких рецензентов После удаления примечаний удаляется пустая строка. Если все таблицы должны объединиться в одну, то требуется доработка. (хотя можно и два раза запустить процедуру ) Sub udal2() On Error Resume Next 'l = ActiveDocument.Comments.Count 'MsgBox l WordBasic.DeleteAllCommentsInDoc For i = 1 To ActiveDocument.Tables.Count ActiveDocument.Tables(i).Select Selection.Start = Selection.End Selection.Expand wdParagraph stroka = Trim(Selection.Range.Text) If Len(stroka) = 1 Then 'MsgBox "Ïóñòî" & " " & i Selection.Delete End If Next i End Sub

02.12.2005, 23:19	#7
TimV Местный Регистрация: 27.04.2005 Сообщений: 112	RE: Удаление строк из документа Word Спасибо. Сработало!

26.08.2009, 20:51	#8
MaxMor Новичок Регистрация: 19.11.2005 Сообщений: 11	RE: Удаление строк из документа Word а как решить вот такую задачу: -имеем документы WORD, в которых есть пустые строки, количество их разное от 1 до 10-20 подряд надо чтобы все пустые строки (подряд более одной) удалялись макросом ну чтобы к примеру из пяти пустых строк подряд осталась одна, из двух тоже одна и тд.

Опции темы
Версия для печати Отправить по электронной почте

Похожие темы
Тема	Автор
Нужно создать объект validation в ячейке, позволяющий вводить дату-время в формате "dd.mm.yyyy hh:mi". VBA Нужно создать объект validation в ячейке, позволяющий вводить дату-время в формате "dd.mm.yyyy hh:mi". Что - то вроде with range("a1").validation .delete .add type=xlvalidationcustom ???...	Well78
Ошибка '91' на одном из компьютеров. VBA Помогите, плиз кто знает !!! Уже месяц не могу разобраться - на нескольких компьютерах работает нормально, а на одном выделяет строку (Комп нулевый, на нем установлен 2003 офис, до этого ничего не...	mix888
VBA Как програмно вписываться коментарий? Я написал макрос, где в яйчейке А4 шита Sheet1 должен вписываться коментарий, но проблема в том что коментарий не похож на слово , которое вписанно в яйчейке А4 шита Sheet2 Sub Macro4() ...	Ser Artur
VBA Событе MouseDown блокирует все остальные Ситуация следующая: при нажатии кнопки мыши в любой области формы Microsoft Access XP выполнение других событий в форме блокируется. Можно ли это как-нибудь обойти? Вообще, мне нужно решить...	MOP3E
Как сделать через VBA поиск по полю "Дата" в Excel не полной даты? Буду очень признателен за помощь, прошу прощения если это обсуждалось, но поиск не работает, полистал сколько смог но... Вопрос: Как сделать через VBA поиск по полю "Дата" в Excel не полной даты...	MaxMor
заполнение формы в Excel-е VBA Уважаемые Асы в Excel-е помогите с примером Я создал форму заполнения счёта-фактуры. Нужно чтобы в книге PRIMER1 из шита Start, при запуске формы, добавлялся новый шит счёт-фактуры, по порядку...	Ser Artur

Ads

Удаление строк из документа Word

VBA