//1.Add
workbook = Workbook()

# Add VBA project to document
vbaProject = workbook.VbaProject
vbaProject.Name = "SampleVBAMacro"
text = "Code page before modification: " + str(vbaProject.CodePage) + "\n"
vbaProject.CodePage = 936  # Set encoding to support Chinese characters

text += "Code page after modification: " + str(vbaProject.CodePage) + "\n"
File.WriteAllText(outputFile_TXT, text)

vbaModule = vbaProject.Modules.Add("SampleModule", VbaModuleType.Module)
# Does not support Chinese characters
vbaModule.SourceCode = """
    Sub ExampleMacro()
        ' Declare variables
        Dim ws As Worksheet
        Dim i As Integer
        ' Set reference to active worksheet
        Set ws = ActiveSheet
        ' Clear worksheet content (optional)
        ws.Cells.Clear
        ' Fill sample data
        With ws
            ' Write header row
            .Range("A1: C1").Value = Array("Serial No.", "Project Name", "Amount")
            ' Loop to fill 10 rows of data
            For i = 1 To 10
                .Cells(i + 1, 1).Value = i  ' Serial number column
                .Cells(i + 1, 2).Value = "Project " & i  ' Project name column
                .Cells(i + 1, 3).Value = i * 100  ' Amount column (sample calculation)
            Next i
            ' Auto-fit column widths
            .Columns("A:C").AutoFit
            ' Format header row
            With.Range("A1:C1")
                .Font.Bold = True
                .Interior.Color = RGB(200, 220, 255)  ' Light blue background
            End With
            ' Format amount column
            .Range("C2:C11").NumberFormat = "$#,##0.00"
        End With
        ' Show completion message
        MsgBox "Data population complete!", vbInformation, "Operation Prompt"
    End Sub"""

workbook.SaveToFile(outputFile_Xls, FileFormat.Version97to2003)
workbook.SaveToFile(outputFile_Xlsb, FileFormat.Xlsb2007)
workbook.SaveToFile(outputFile_Xlsm, FileFormat.Xlsm)
workbook.SaveToFile(outputFile_Xltm, FileFormat.XLTM)
workbook.Dispose()

//2.Obtain and modify
workbook = Workbook()
workbook.LoadFromFile(inputFile)  

worksheet = workbook.Worksheets[0]
vbaProject = workbook.VbaProject

// Modify worksheet module
mod = vbaProject.Modules.GetWorksheetModule(worksheet)
mod.Name = "IVbaModule"
mod.SourceCode = "Dim lRow As Long"
mod.Type = VbaModuleType.Module

// Save file
workbook.SaveToFile(outputFile)
workbook.Dispose()

//3. Delete
workbook1 = Workbook()
workbook1.LoadFromFile(inputFile_Module)
vbaProject1 = workbook1.VbaProject
vbaProject1.Modules.Remove("SampleModule")
workbook1.SaveToFile(outputFile_1)
workbook1.Dispose()

            workbook = Workbook()
            #Load a excel document
            workbook.LoadFromFile(inputFile)   
            #Set permission password and permissions to encrypt converted pdf
            workbook.ConverterSetting.PdfSecurity.Encrypt("123", PdfPermissionsFlags.Print)
            #Convert excel to pdf
            workbook.SaveToFile(outputFile, FileFormat.PDF)
            workbook.Dispose()

ppt = Presentation()
ppt.LoadFromFile(inputFile)
SaveToVideoOption saveOption = new SaveToVideoOption(ffmpegDir)
ppt.SaveToVideoOption=saveOption
ppt.SaveToFile(outputFile_mp4, FileFormat.MP4)
ppt.SaveToFile(outputFile_wmv, FileFormat.WMV)
ppt.Dispose()

 rect = RectangleF(100.0, 100.0, 10.0, 15.0)
  annotation = PdfCaretAnnotation(page, rect)
  annotation.Title = "CaretTest"
  annotation.Contents = "A caret annotation with default (None) symbol."
  annotation.Color = PdfRGBColor(0, 0, 255)
  annotation.Border.Width = 1
  annotation.Intent = "ParaCaret"
  PdfAnnotationCollection.Create(page).Add(annotation)

annotation = PdfCircleAnnotation(page, rect)
  annotation.Color = PdfRGBColor(128, 0, 128)
  annotation.InteriorColor = PdfRGBColor(255, 255, 200)
  annotation.Border.Width = 2
  annotation.Border.Style = PdfBorderStyle.Solid
  annotation.Border.Effect = PdfBorderEffect.Cloudy
  annotation.Border.EffectIntensity = 2
  PdfAnnotationCollection.Create(page).Add(annotation)

annotation = PdfSquareAnnotation(page, rect)
  annotation.Color = PdfRGBColor(128, 0, 128)
  annotation.InteriorColor = PdfRGBColor(255, 255, 200)
  annotation.Border.Width = 2
  annotation.Border.Style = PdfBorderStyle.Dashed
  PdfAnnotationCollection.Create(page).Add(annotation)

fileSpecification = PdfFileSpecification("SalesReportChart.png", data)
  annotation = PdfFileAttachmentAnnotation(page, bounds, fileSpecification)
  annotation.Icon = PdfFileIcon.Graph
  annotation.Color = PdfRGBColor(Color.get_Teal())
  PdfAnnotationCollection.Create(page).Add(annotation)

annotation = PdfMovieAnnotation(page, rect, "sample.wmv")
  annotation.Title = "My Movie Player"
  annotation.Movie.Poster = False
  annotation.Movie.Aspect = SizeF(16.0, 9.0)
  PdfAnnotationCollection.Create(page).Add(annotation)

annotation = PdfScreenAnnotation(page, rect)
  annotation.Title = "ScreenWithBorder"
  annotation.Border.Width = 3.0
  annotation.Border.Style = PdfBorderStyle.Dashed
  PdfAnnotationCollection.Create(page).Add(annotation)

annotation = PdfRichMediaAnnotation(page, rect, content)
  annotation.Content = PdfRichMediaContent()
  annotation.Color = PdfRGBColor(Color.get_Green())
  PdfAnnotationCollection.Create(page).Add(annotation)

 doc.LoadFromFile("widget.pdf")
  a = PdfAnnotationCollection.Create(page).get_Item(0)
  a.Characteristics.BackgroundColor
  a.Characteristics.BorderColor
  a.Flatten()

message = '0123456789'
Code128 = PdfCode128ABarcode(message)
Code128.BarcodeToTextGapHeight = 1.0
Code128.TextDisplayLocation = TextLocation.Bottom
Code128.TextColor = PdfRGBColor(Color.get_Blue())
Code128.Draw(page, PointF(0.0, y))

 from spire.pdf import *

  pdf = PdfDocument()
  builder = PdfContentBuilder(pdf)

  template = PdfPageTemplate()
  template.SetHeader("Product Manual", PdfTextAlignment.Center)
  template.SetFooter("Page {page} of {totalPages}", PdfTextAlignment.Center)
  section = builder.AddSection(template)

  section.AddHeading1("1. Introduction")
  section.AddParagraph("Content flows across pages automatically.")
  section.AddBulletList(["Fast", "Stable", "Easy to use"])

  builder.Build()
  pdf.SaveToFile("output.pdf")
  pdf.Close()