Trabalhar com VBA Macros

Visual Basic for Applications (VBA) for Microsoft Word é uma linguagem de programação simples, mas poderosa, que pode ser usada para estender a funcionalidade. Aspose.Words API fornece três classes para obter acesso ao código-fonte do projeto VBA:

• A classe VBAProject fornece acesso às informações do projeto VBA
• A classe VBAModulesCollection retorna a coleção de VBA módulos do projeto
• A classe VbaModule fornece acesso ao módulo do projeto VBA

Criar um projecto VBA

Aspose.Words API fornece Document.VbaProject propriedade para obter ou definir VbaProject no documento.

O exemplo de código a seguir demonstra como criar um projeto VBA e um módulo VBA juntamente com propriedades básicas, por exemplo, Nome e 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");

Ler Macros

Aspose.Words também fornece aos usuários a capacidade de ler VBA macros.

O exemplo de código a seguir mostra como ler VBA Macros do 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;
    }
}

Escrever ou modificar Macros

Usando Aspose.Words, os usuários podem modificar VBA macros.

O exemplo de código a seguir mostra como modificar as Macros VBA usando a propriedade 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);

Clone VBA Projecto

Com Aspose.Words também é possível clonar VBA projetos.

O exemplo de código a seguir mostra como clonar o projeto VBA usando a propriedade Clone que cria uma cópia do projeto 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 Clone VBA

Você também pode clonar VBA módulos, se necessário.

O exemplo de código a seguir mostra como clonar o módulo VBA usando a propriedade Clone que cria uma cópia do projeto 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");