Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление и добавление строк в ворде - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Удаление и добавление строк в ворде (Макросы/Sub)
Удаление и добавление строк в ворде
Kaiyr Дата: Вторник, 02.07.2019, 07:49 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 38
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Добрый день! Задачка по VBA в ворде. Есть таблицы в ворде с повторяющими боковиками. Надо везде удалить строку "Оңтүстік Қазақстан", и добавить строку "Түркістан" (в первом столбце строки надпись Түркістан) после строки "Солтүстік Қазақстан", а также добавить "Шымкент қаласы" после строки "Алматы қаласы". Файл прикреплен.
К сообщению приложен файл: 8_.doc(95.0 Kb)


Активный участник Википедии, могу проконсультировать. Также по казахской генеалогии и программам.

Сообщение отредактировал Kaiyr - Вторник, 02.07.2019, 10:05
 
Ответить
СообщениеДобрый день! Задачка по VBA в ворде. Есть таблицы в ворде с повторяющими боковиками. Надо везде удалить строку "Оңтүстік Қазақстан", и добавить строку "Түркістан" (в первом столбце строки надпись Түркістан) после строки "Солтүстік Қазақстан", а также добавить "Шымкент қаласы" после строки "Алматы қаласы". Файл прикреплен.

Автор - Kaiyr
Дата добавления - 02.07.2019 в 07:49
krosav4ig Дата: Суббота, 06.07.2019, 13:33 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 2182
Репутация: 913 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Добрый день
[vba]
Код
Sub qwe()
    Application.ScreenUpdating = False
    With ThisDocument.Tables(1)
        rty .Range, "О" & ChrW(1187) & "т" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан"
        rty .Range, "Солт" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан", "Т" & ChrW(1199) & "ркістан"
        rty .Range, "Алматы " & ChrW(1179) & "аласы", "Шымкент " & ChrW(1179) & "аласы"
    End With
    Application.ScreenUpdating = True
End Sub
Sub rty(ByVal r As Range, s1$, Optional s2$)
    With r.Find
        .ClearFormatting
        .Execute s1
        If Not .Found Then Exit Sub
        If s2 = "" Then
            .Parent.Cells.Delete wdDeleteCellsEntireRow
        Else
            .Parent.Select
            With Selection
                .InsertRowsBelow 1: .Collapse 1: .TypeText s2
            End With
        End If
    End With
End Sub
[/vba]


email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 06.07.2019, 13:34
 
Ответить
СообщениеДобрый день
[vba]
Код
Sub qwe()
    Application.ScreenUpdating = False
    With ThisDocument.Tables(1)
        rty .Range, "О" & ChrW(1187) & "т" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан"
        rty .Range, "Солт" & ChrW(1199) & "стік " & ChrW(1178) & "аза" & ChrW(1179) & "стан", "Т" & ChrW(1199) & "ркістан"
        rty .Range, "Алматы " & ChrW(1179) & "аласы", "Шымкент " & ChrW(1179) & "аласы"
    End With
    Application.ScreenUpdating = True
End Sub
Sub rty(ByVal r As Range, s1$, Optional s2$)
    With r.Find
        .ClearFormatting
        .Execute s1
        If Not .Found Then Exit Sub
        If s2 = "" Then
            .Parent.Cells.Delete wdDeleteCellsEntireRow
        Else
            .Parent.Select
            With Selection
                .InsertRowsBelow 1: .Collapse 1: .TypeText s2
            End With
        End If
    End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 06.07.2019 в 13:33
Мир MS Excel » Вопросы и решения » Excel и другие приложения » Word » Удаление и добавление строк в ворде (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2019 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!