Архив: Макрос для підрахунку ключових слів
Бюджет
По договоренности
Создан: 7 лет назад
Закрыт
- Описание
- Доброго дня!
Макрос для підрахунку ключових слів в 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
- Категория
Похожие проекты
0
4
Предоставляем услуги по написанию отзывов на Яндекс Карты, Гугл Карты, 2ГИС и другие платформы. Цены варьируются: от 2 рублей за отзыв на 2ГИС до 50 рублей на Яндекс Карты. Количество отзывов неограничено, что позволяет вам увеличить видимость и репутацию на этих сайтах....
2 месяца назад
0
8
$143
0
21
$71
0
11
Задача: написать отзыв . Цена: 20 рублей за отзыв. Объем: 50-100 отзывов за день....
4 месяца назад
$21
0
55
0
59
Написать текст-предостережения о вреде алкоголя. На 200 слов с аргументами и фактами,но без лишней агрессии,так как текст будет показываться в школе. Можно приводить примеры. Фотографии не нужны Написать нужно как рассказ от первого лица. Отпишите куратору в тлг- Teo8n Оплата фиксированная!...
7 месяцев назад
$43
0
8
Ищем людей для программы приведи друга от банков. Нужно оформлять банковские карты и активировать их, 1 карта - 2000р. Карту оформляете себе и оставляете себе, мы лишь вместе зарабатываем на рекламных агентствах которым платят деньги банки....
8 месяцев назад
$643
0
31
Анкетирование (900руб/ч). Ha caйтe: sesov....
1 год назад
$43
0
51
$143
0
34
$10
145
12
145
36
$28
119
30
2083
663
Добрый день! В поисках копирайтеров для написания несложных текстов под различные ресурсы. В перспективе сотрудничество на постоянной основе, ориентировочный объем в сутки-5 000 знаков. Оплата 40 рублей-1 000 знаков. Задания даю сама, придумывать ничего не нужно. Оплата постоянная, после сдачи текстов.......
1 год назад
1200
295
Поиск копирайтера в издательство Рассмотрим кандидатов без опыта, главный критерий умение работать в Word и наличие стабильного интернета с ПК Основная задача: перенос текста в вордовый документ (без вёрстки) Возможна полная/частичная занятость Коммуникация происходит в удобных для вас мессенджерах,......
1 год назад
$17
367
24
Нужно написать и разместить 10 отзывов на Яндекс карты, 2 гис и тд. Количевство символов в тексте около 200-300 штук....
1 год назад
429
31
$100
4537
1077
$1
513
61
Нужно будет написать небольшой текст по заданным критериям. Работа на несколько минут, оплата по выполнению и скриншотам результата. Плюсом будет наличие прокачанного аккаунта в Яндекс. Картах. Рассмотрим все отклики. Пишите за подробностями....
1 год назад
$50
743
122
$1111
520
0
Необходимо писать отзывы о криптовалютных сервисах! Работа простая, подойдет для начинающих писателей! Оплата по факту! Необходимо много сотрудников!...
1 год назад
Похожая удалённая работа
- Удаленная работа для копирайтера
- Удаленная работа для контент-менеджера
- Удаленная работа для журналиста
- Удаленная работа для переводчика
- Удаленная работа для специалиста по написанию текстов / речей / резюме
- Удаленная работа для писателя, поэта
- Удаленная работа для редактора, корректора
- Удаленная работа для рерайтера
- Удаленная работа для неймера
- Удаленная работа для транскрибатора
Перетащите