Práce s VBA Macros

Visual Basic pro aplikace (VBA) pro Microsoft Word je jednoduchý, ale výkonný programovací jazyk, který lze použít k rozšíření funkčnosti. Aspose.Words API poskytuje tři třídy pro přístup ke zdrojovému kódu projektu VBA:

• The VBAProject třída poskytuje přístup k informacím o projektu VBA
• The VBAModuleCollection třída vrací kolekci projektových modulů VBA
• The VbaModule třída poskytuje přístup k modulu projektu VBA
• The VbaModuleType počet definuje typy modelu v projektu VBA. Modul může být procesní modul, modul dokumentů, modul třídy nebo modul návrháře

Vytvořit projekt VBA

Aspose.Words API poskytuje vba_project vlastnost pro získání nebo nastavení VbaProject v dokumentu.

Následující příklad kódu ukazuje, jak vytvořit projekt VBA a modul VBA spolu se základními vlastnostmi např. name a type:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document()

project = aw.vba.VbaProject()
project.name = "AsposeProject"
doc.vba_project = project

# Create a new module and specify a macro source code.
module = aw.vba.VbaModule()
module.name = "AsposeModule"
module.type = aw.vba.VbaModuleType.PROCEDURAL_MODULE
module.source_code = "New source code"

# Add module to the VBA project.
doc.vba_project.modules.add(module)

doc.save(docs_base.artifacts_dir + "WorkingWithVba.create_vba_project.docm")

Čti Macros

Aspose.Words také poskytuje uživatelům možnost číst VBA makra.

Následující příklad kódu ukazuje, jak číst VBA Macros z dokumentu:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document(docs_base.my_dir + "VBA project.docm")

if (doc.vba_project != None) :
    for module in doc.vba_project.modules :
        print(module.source_code)
    

Napsat nebo upravit makra

Použití Aspose.Words, uživatelé mohou upravit VBA makra.

Následující příklad kódu ukazuje, jak upravit VBA Macros pomocí source_code vlastnost:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document(docs_base.my_dir + "VBA project.docm")

project = doc.vba_project

newSourceCode = "Test change source code"
project.modules[0].source_code = newSourceCode
    
doc.save(docs_base.artifacts_dir + "WorkingWithVba.modify_vba_macros.docm")

Klon VBA Projekt

S Aspose.Words je také možné naklonovat VBA projekty.

Následující příklad kódu ukazuje, jak naklonovat projekt VBA pomocí clone vlastnost, která vytváří kopii stávajícího projektu:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document(docs_base.my_dir + "VBA project.docm")
destDoc = aw.Document()
destDoc.vba_project = doc.vba_project.clone() 

destDoc.save(docs_base.artifacts_dir + "WorkingWithVba.clone_vba_project.docm")

Klon VBA Modul

Můžete také klonovat VBA moduly v případě potřeby.

Následující příklad kódu ukazuje, jak naklonovat VBA modul pomocí clone vlastnost, která vytváří kopii stávajícího projektu:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document(docs_base.my_dir + "VBA project.docm")
destDoc = aw.Document()
destDoc.vba_project = aw.vba.VbaProject() 
    
copyModule = doc.vba_project.modules.get_by_name("Module1").clone()
destDoc.vba_project.modules.add(copyModule)

destDoc.save(docs_base.artifacts_dir + "WorkingWithVba.clone_vba_module.docm")

Práce s Referencemi projektu VBA

Aspose.Words API poskytuje VbaReferenceCollection třída pro práci s projektem VBA Reference představující sbírku referencí na projekt VBA.

Následující příklad kódu ukazuje, jak odstranit některé odkazy ze sběru odkazů z projektu VBA:

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
doc = aw.Document(docs_base.my_dir + "VBA project.docm")

# Find and remove the reference with some LibId path.
brokenPath = "brokenPath.dll"
references = doc.vba_project.references
for i in range(references.count - 1, 0) :
    
    reference = doc.vba_project.references.element_at(i)

    path = get_lib_id_path(reference)
    if (path == brokenPath) :
        references.remove_at(i)
    

doc.save(docs_base.artifacts_dir + "WorkingWithVba.remove_broken_ref.docm")

# For complete examples and data files, please go to https://github.com/aspose-words/Aspose.Words-for-Python-via-.NET
# <summary>
# Returns string representing LibId path of a specified reference. 
# </summary>
def get_lib_id_path(self, reference) :
    
    if reference.type == aw.vba.VbaReferenceType.REGISTERED or reference.type == aw.vba.VbaReferenceType.ORIGINAL or reference.type == aw.vba.VbaReferenceType.CONTROL :
        return self.get_lib_id_reference_path(reference.lib_id)
    elif reference.type == aw.vba.VbaReferenceType.PROJECT :
        return self.get_lib_id_project_path(reference.lib_id)
    else :
        raise RuntimeError()


# <summary>
# Returns path from a specified identifier of an Automation type library.
# </summary>
# <remarks>
# Please see details for the syntax at [MS-OVBA], 2.1.1.8 LibidReference. 
# </remarks>
@staticmethod
def get_lib_id_reference_path(libIdReference : str) :
    
    if (libIdReference != None) :
        
        refParts = libIdReference.split('#')
        if (refParts.length > 3) :
            return refParts[3]
        
    return ""
    

# <summary>
# Returns path from a specified identifier of an Automation type library.
# </summary>
# <remarks>
# Please see details for the syntax at [MS-OVBA], 2.1.1.12 ProjectReference. 
# </remarks>
@staticmethod
def get_lib_id_project_path(libIdProject : str) :
    
    if (libIdProject != None) :
       return libIdProject.substring(3) 
       
    return ""