Aspose::Words::Vba::VbaModule class

VbaModule class

Обеспечивает доступ к модулю проекта VBA. Чтобы узнать больше, посетите статью документации Working with VBA Macros.

class VbaModule : public System::Object

Методы

МетодОписание
Clone()Выполняет копирование VbaModule.
get_Name() constПолучает или задаёт имя модуля проекта VBA.
get_SourceCode() constПолучает или задаёт исходный код модуля проекта VBA.
get_Type() constУказывает, является ли модуль процедурным, документным, классным или дизайнерским.
GetType() const override
Is(const System::TypeInfo&) const override
set_Name(const System::String&)Сеттер для Aspose::Words::Vba::VbaModule::get_Name.
set_SourceCode(const System::String&)Сеттер для Aspose::Words::Vba::VbaModule::get_SourceCode.
set_Type(Aspose::Words::Vba::VbaModuleType)Сеттер для Aspose::Words::Vba::VbaModule::get_Type.
static Type()
VbaModule()Создаёт пустой модуль.

Примеры

Показывает, как получить доступ к информации о VBA‑проекте документа.

auto doc = System::MakeObject<Aspose::Words::Document>(get_MyDir() + u"VBA project.docm");

// Проект VBA содержит коллекцию модулей VBA.
System::SharedPtr<Aspose::Words::Vba::VbaProject> vbaProject = doc->get_VbaProject();
std::cout << (vbaProject->get_IsSigned() ? System::String::Format(u"Project name: {0} signed; Project code page: {1}; Modules count: {2}\n", vbaProject->get_Name(), vbaProject->get_CodePage(), vbaProject->get_Modules()->LINQ_Count()) : System::String::Format(u"Project name: {0} not signed; Project code page: {1}; Modules count: {2}\n", vbaProject->get_Name(), vbaProject->get_CodePage(), vbaProject->get_Modules()->LINQ_Count())) << std::endl;

System::SharedPtr<Aspose::Words::Vba::VbaModuleCollection> vbaModules = doc->get_VbaProject()->get_Modules();

ASSERT_EQ(vbaModules->LINQ_Count(), 3);

for (auto&& module_ : vbaModules)
{
    std::cout << System::String::Format(u"Module name: {0};\nModule code:\n{1}\n", module_->get_Name(), module_->get_SourceCode()) << std::endl;
}

// Установите новый исходный код для модуля VBA. Вы можете получить доступ к модулям VBA в коллекции либо по индексу, либо по имени.
vbaModules->idx_get(0)->set_SourceCode(u"Your VBA code...");
vbaModules->idx_get(u"Module1")->set_SourceCode(u"Your VBA code...");

// Удалите модуль из коллекции.
vbaModules->Remove(vbaModules->idx_get(2));

См. также

Aspose::Words::Vba::VbaModuleCollection class