VBAマクロの操作

Visual Basic For Applications(VBA)forMicrosoft Wordは、機能を拡張するために使用できるシンプルで強力なプログラミング言語です。 Aspose.WordsAPIには、VBAプロジェクトのソースコードにアクセスするための3つのクラスが用意されています:

  • VBAProjectクラスは、VBAプロジェクト情報へのアクセスを提供します
  • VBAModulesCollectionクラスは、VBAプロジェクトモジュールのコレクションを返します
  • VbaModuleクラスは、VBAプロジェクトモジュールへのアクセスを提供します

VBAプロジェクトを作成する

Aspose.WordsAPIは、ドキュメント内でVbaProjectを取得または設定するDocument.VbaProjectプロパティを提供します。

次のコード例では、VbaプロジェクトとVBAモジュールを、NameやTypeなどの基本的なプロパティとともに作成する方法を示します:

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");

マクロの読み取り

Aspose.Wordsは、vbaマクロを読み取る機能もユーザーに提供します。

次のコード例は、ドキュメントからVBAマクロを読み取る方法を示しています:

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;
}
}

マクロの書き込みまたは変更

Aspose.Wordsを使用すると、ユーザーはVBAマクロを変更できます。

次のコード例は、SourceCodeプロパティを使用してVBAマクロを変更する方法を示しています:

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);

Vbaプロジェクトのクローン

Aspose.Wordsを使用すると、VBAプロジェクトを複製することもできます。

次のコード例は、既存のプロジェクトのコピーを作成するCloneプロパティを使用してVBAプロジェクトを複製する方法を示しています:

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");

Vbaモジュールのクローン

必要に応じてVBAモジュールを複製することもできます。

次のコード例は、既存のプロジェクトのコピーを作成するCloneプロパティを使用してVBAモジュールを複製する方法を示しています:

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");