Найдите исполнителя для вашего проекта прямо сейчас!
Разместите заказ на фриланс-бирже и предложения поступят уже через несколько минут.

Доброго дня!

Макрос для підрахунку ключових слів в MS Word (vba)

Наприклад, дано текст, я якому має міститися:

 - трикотаж – 2 раза

- Київ– 1 раз і т.д

частина коду, для пошуку ключових слів є:

Option Compare Text

Function CountText(ByVal t As String) As Long

    Dim Count As Long

    With ActiveDocument.Range.Find

        .Text = t

        Do While .Execute = True

            Count = Count + 1

        Loop

    End With

       

    CountText = Count

End Function

Sub test1()

Dim Texts

Texts = Array("Дитячі шапочки", "Дитячі шапочки оптом", "Дитячі шапочки недорого", "шапочки для дітей", "трикотаж ", _

            "Україна", "Київ", "Недорого", "Дешево", "Від виробника", "Оптом", "Опт ", "Опт.", "в роздріб")

Dim Message As String

For Each Text In Texts

    Message = Message & Text & " - " & CountText(Text) & vbNewLine

Next

MsgBox (Message)

End Sub

Потрібно доробити:

1. Ключові слова вводити через діалогове вікно, з окремого файлу

2. Результат показувати як:

трикотаж - 1/2,

де - 1 - скільки в тексті знайдено,

2 - скільки має бути,

якщо не співпадає, 1!=2, виділити червоним кольором

3. знайдені ключові слова виділяти жовтим кольором

4. Результат виконання зберегти в файлі  .doc, в якому виконувався макрос

5. Знаходити і видаляти пробіли >=2

 

6 лет назад
natalia-stegnii
34 годаУкраина
8 лет в сервисе
Была
4 года назад
  • Похожие заказы
  • Имеется игра и моя программа, после очередного обновления игры перестал работать инжект в процесс игры. Нужно восстановить работу инжекта моей программы.

    Закрыт
    5 лет назад
  • Нужна небольшая программа для "складского учета". Дизайн не важен, пойдут обычные формы. Хотелось бы чтобы было удобно. В идеале, хотелось бы чтобы ПО было бы предустановленным, типа portable – без инсталлятора. Можно с инсталятором, но стремиться к минимум ...

    Прикладное ПО1 исполнитель
    Закрыт
    6 лет назад
  • $20

    Всем Привет !  есть желание сделать мини фин анализ (отчет) в Excel таблице следует добавить фильтры, чтоб по разным параметрам можно увидеть разные суммы  анализ по клиентам анализ по видам работ и группе товаров возможно добавить кошельки - наличные , счет ...

    Закрыт
    6 лет назад
  • Имеется swf-файл игры. Игра постоянно обменивается с сервером игры различными данными. Каждый запрос имеет подпись (сигнатуру). Необходимо разобрать swf-файл, вытащить код генерации этой сигнатуры/подписи (примерное местоположение укажу), реализовать подобную функцию на PHP (чтобы входные и ...

    Прикладное ПОнет заявок
    Закрыт
    6 лет назад
  • Бот должен залогиниться на все наши соцсети и месенджеры, он должен уметь отвечать на определённые запросы опрелёными ответами, при получении контакта(телефона), он должен соеденить нашего оператора и клиента(это можно сделать с помощью сервисов обратного звонка ...

    Закрыт
    6 лет назад
  • Доброго дня, необходимо создать программку для windows или на основе гуглформ или таблиц(может иное) программу тестирования водителей. Существует гуглтаблица со списком 100 вопросов и на каждый вопрос даны 3 варианта ответа(в таблице первый ответ всегда правильный). Принцип работы: 1. ...

    Закрыт
    6 лет назад