Работа с таблицами в word через макрос

@mockingbirdnew · Регистрация: 15.05.2015

Студворк — интернет-сервис помощи студентам

Суть такова, есть программа выводящая на печать отчет через word. В самой программе( и в БД тоже, исходника нет и поменять неполучится) весь адрес пишется в одно поле. До этого выводили на печать это поле, без каких либо примочек. Сейчас нужно чтобы из этого поля делилось на шесть полей в отчете(город, населенный пункт, район, улица, дом, квартира). Если правильно понимаю, можно сделать таблицу в word файле, и чтобы по выполнению макроса, происходила обработка адреса целеком, а далее расбрасывание по условию на ячейки. Как это можно сделать? Или даже лучше чтобы раскидывало не как в таблицу, а на отдельные поля помещенные произвольно на листе.

@KoGG · 17.12.2015, 16:14

Может помочь. Но если в адресе нет квартиры совсем, например дом частный, то нет.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function Квартира(Адрес)
    Квартира = Replace(Split(Адрес, " кв")(1), ".", "")
End Function
 
Function Дом(Адрес)
    Dim T
    T = Trim(Split(Адрес, " кв")(0))
    Дом = Trim(Mid(T, InStrRev(T, " ")))
End Function
 
Function Улица(Адрес)
    Dim T
    T = Trim(Split(Адрес, "кв")(0))
    Улица = Trim(Left(T, InStrRev(T, " ")))
End Function

Все зависит от стандартизации поля адрес: запятых, пробелов, количества записей.

shanemac51 · 17.12.2015, 16:26

есть программа выводящая на печать отчет через word. В самой программе( и в БД тоже, исходника нет и поменять не получится

а откуда формируется отчет, где таблица
--access
--excel

каков вид отчета?

Новые блоги и статьи Все статьи Все блоги /
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .

@mockingbirdnew 0 / 0 / 0 Регистрация: 15.05.2015 Сообщений: 10

	Работа с таблицами в word через макрос 17.12.2015, 13:20. Показов 3046. Ответов 2 Метки нет (Все метки) Суть такова, есть программа выводящая на печать отчет через word. В самой программе( и в БД тоже, исходника нет и поменять неполучится) весь адрес пишется в одно поле. До этого выводили на печать это поле, без каких либо примочек. Сейчас нужно чтобы из этого поля делилось на шесть полей в отчете(город, населенный пункт, район, улица, дом, квартира). Если правильно понимаю, можно сделать таблицу в word файле, и чтобы по выполнению макроса, происходила обработка адреса целеком, а далее расбрасывание по условию на ячейки. Как это можно сделать? Или даже лучше чтобы раскидывало не как в таблицу, а на отдельные поля помещенные произвольно на листе. 0