Trabajar con macros de VBA

Visual Basic para aplicaciones (VBA) para Microsoft Word es un lenguaje de programación simple pero potente que se puede utilizar para ampliar la funcionalidad. La API Aspose.Words proporciona tres clases para obtener acceso al código fuente del proyecto VBA:

• La clase VBAProject proporciona acceso a la información del proyecto VBA
• La clase VBAModulesCollection devuelve la colección de módulos de proyecto VBA
• La clase VbaModule proporciona acceso al módulo de proyecto de VBA

Crear un Proyecto VBA

La API Aspose.Words proporciona la propiedad Document.VbaProject para obtener o establecer VbaProject en el documento.

El siguiente ejemplo de código demuestra cómo crear un proyecto VBA y un módulo VBA junto con propiedades básicas, por ejemplo, Nombre y tipo:

For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-C
System::SharedPtr<Document> doc = System::MakeObject<Document>();

// Create a new VBA project.
System::SharedPtr<VbaProject> project = System::MakeObject<VbaProject>();
project->set_Name(u"AsposeProject");
doc->set_VbaProject(project);

// Create a new module and specify a macro source code.
System::SharedPtr<VbaModule> vbModule = System::MakeObject<VbaModule>();
vbModule->set_Name(u"AsposeModule");
vbModule->set_Type(VbaModuleType::ProceduralModule);
vbModule->set_SourceCode(u"New source code");

// Add module to the VBA project.
doc->get_VbaProject()->get_Modules()->Add(vbModule);

doc->Save(outputDataDir +  u"WorkingWithVbaMacros.CreateVbaMacros.docm");

Leer Macros

Aspose.Words también proporciona a los usuarios la capacidad de leer macros de VBA.

El siguiente ejemplo de código muestra cómo leer macros de VBA del documento:

For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-C
System::SharedPtr<Document> doc = System::MakeObject<Document>(inputDataDir + u"VbaProject.docm");

if (doc->get_VbaProject() != nullptr)
{
    for (System::SharedPtr<VbaModule> module : System::IterateOver(doc->get_VbaProject()->get_Modules()))
    {
        std::cout << module->get_SourceCode().ToUtf8String() << std::endl;
    }
}

Escribir o Modificar Macros

Con Aspose.Words, los usuarios pueden modificar las macros de VBA.

El siguiente ejemplo de código muestra cómo modificar macros de VBA usando la propiedad SourceCode:

For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-C
System::SharedPtr<Document> doc = System::MakeObject<Document>(inputDataDir + u"VbaProject.docm");
System::SharedPtr<VbaProject> project = doc->get_VbaProject();

System::String newSourceCode = u"Test change source code";

// Choose a module, and set a new source code.
project->get_Modules()->idx_get(0)->set_SourceCode(newSourceCode);

Proyecto Clon VBA

Con Aspose.Words también es posible clonar proyectos VBA.

El siguiente ejemplo de código muestra cómo clonar el proyecto VBA usando la propiedad Clone que crea una copia del proyecto existente:

For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-C
System::SharedPtr<Document> doc = System::MakeObject<Document>(inputDataDir + u"VbaProject.docm");
System::SharedPtr<VbaProject> project = doc->get_VbaProject();

System::SharedPtr<Document> destDoc = System::MakeObject<Document>();

// Clone the whole project.
destDoc->set_VbaProject(doc->get_VbaProject()->Clone());

destDoc->Save(outputDataDir + u"WorkingWithVbaMacros.CloneVbaProject.docm");

Módulo Clonar VBA

También puede clonar módulos VBA si es necesario.

El siguiente ejemplo de código muestra cómo clonar el módulo VBA usando la propiedad Clone que crea una copia del proyecto existente:

For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-C
System::SharedPtr<Document> doc = System::MakeObject<Document>(inputDataDir + u"VbaProject.docm");
System::SharedPtr<VbaProject> project = doc->get_VbaProject();

System::SharedPtr<Document> destDoc = System::MakeObject<Document>();

destDoc->set_VbaProject(System::MakeObject<VbaProject>());

// Clone a single module.
System::SharedPtr<VbaModule> copyModule = doc->get_VbaProject()->get_Modules()->idx_get(u"AsposeModule")->Clone();
destDoc->get_VbaProject()->get_Modules()->Add(copyModule);

destDoc->Save(outputDataDir + u"WorkingWithVbaMacros.CloneVbaModule.docm");