powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Удаление макросов в Word'e
5 сообщений из 5, страница 1 из 1
Удаление макросов в Word'e
    #35036387
Maart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Есть некий Word документ, который содержит макрос генерирующие контент.

Иногда этот контент требуется отсылать партнерам, и естественно макросов в том документе нельзя оставлять и поэтому генерация идет в новый файл, создающийся по такому коду

Код: plaintext
1.
2.
   pth = ThisDocument.Path
   ThisDocument.SaveAs (pth & "\Отчет за период с " & inpstr1 & " по " & inpstr2 & ".doc")

Этот файл содержит весь макрос, и все формы, а мне нужно скопировать только содержимое листа.

Знающие люди подсказали копать в сторону Application.VBE.ActiveVBProject.VBComponents.Remove,
и с помощью него удалять компоненты VB, но у меня это толком не получилось...

пароль для тестового примера из приложения 123
...
Рейтинг: 0 / 0
Удаление макросов в Word'e
    #35036450
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MaartЗнающие люди подсказали копать в сторону Application.VBE.ActiveVBProject.VBComponents.Remove,
и с помощью него удалять компоненты VB, но у меня это толком не получилось...Не стоит туда ходить. Чтобы заработала модификация макросов надо снижать уровень безопасности, а это открытая дыра для макровирусов и будешь по ее поводу иметь проблемы с шибко умными антивирусами.
Да и проще можно:
Код: plaintext
1.
2.
3.
4.
5.
    ThisDocument.Content.Copy
    Application.Documents.Add
    ActiveDocument.Content.Paste
    ActiveDocument.SaveAs .....
    ActiveDocument.Close
...
Рейтинг: 0 / 0
Удаление макросов в Word'e
    #35036484
Maart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
White Owl
Да и проще можно:


Огромное спасибо, это как раз то что мне требовалось.
Остался только один нюанс.

Хотелось чтобы в конце концов остался открытым файл без макросов.
По идее надо программно закрыть файл с макросами и открыть файл без макросов.
...
Рейтинг: 0 / 0
Удаление макросов в Word'e
    #35036496
Maart
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Maart
Хотелось чтобы в конце концов остался открытым файл без макросов.
По идее надо программно закрыть файл с макросами и открыть файл без макросов.
Сорри, спросил не подумав.
Убрал строку ActiveDocument.Close и все получилось.

Заметил что с шрифтами какая-то неразбериха. В одном документе он 14 в другом 12.
Копирование контента не подразумевает копирования стилей ?
...
Рейтинг: 0 / 0
Удаление макросов в Word'e
    #35036540
White Owl
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
MaartЗаметил что с шрифтами какая-то неразбериха. В одном документе он 14 в другом 12.
Копирование контента не подразумевает копирования стилей ?Нет. Content это текст без форматирования. С форматированием - Range. Остальное тоже самое.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Удаление макросов в Word'e
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]