SharkyEXE
19-05-2019, 16:23
Всем здравствуйте.
В сети нашел макрос
Sub Процедура1()
With ActiveDocument.Content.Find
.Highlight = True
.Format = True
Do While .Execute = True
If .Parent.HighlightColorIndex = wdRed Then
.Parent.Delete
End If
Loop
End With
End Sub
Есть оригинальный файл 1.doc - внутри файла 2019-05-19_15-46-51.zip (https://yadi.sk/d/TnA421OM9_UaKg)
Если из файла 1.doc я вручную удаляю строки, выделенные желтым - у меня на выходе файл 1_вручную.doc
Если к файлу 1.doc применить макрос - у меня на выходе файл 1_macros.doc
Пожалуйста, я очень прошу, помогите, как сделать, чтобы после макроса было также, как в файле 1_вручную.doc, чтобы макрос удалял строки, выделенные жёлтым без удаления в конце строки "Enter" или символа каретка или как он правильно называется \n
Спасибо.
В сети нашел макрос
Sub Процедура1()
With ActiveDocument.Content.Find
.Highlight = True
.Format = True
Do While .Execute = True
If .Parent.HighlightColorIndex = wdRed Then
.Parent.Delete
End If
Loop
End With
End Sub
Есть оригинальный файл 1.doc - внутри файла 2019-05-19_15-46-51.zip (https://yadi.sk/d/TnA421OM9_UaKg)
Если из файла 1.doc я вручную удаляю строки, выделенные желтым - у меня на выходе файл 1_вручную.doc
Если к файлу 1.doc применить макрос - у меня на выходе файл 1_macros.doc
Пожалуйста, я очень прошу, помогите, как сделать, чтобы после макроса было также, как в файле 1_вручную.doc, чтобы макрос удалял строки, выделенные жёлтым без удаления в конце строки "Enter" или символа каретка или как он правильно называется \n
Спасибо.