MSO dokumentum generálás

• Szerző: Sallai András
• Copyright © Sallai András, 2015
• Licenc: GNU Free Documentation License 1.3
• Web: http://szit.hu

• http://www.docx4java.org/ (Docx4java)
• http://www.aspose.com/java/word-component.aspx (Aspose)
• http://poi.apache.org/ (POI)

Imports Microsoft.Office.Interop
Imports Word = Microsoft.Office.Interop.Word
Imports Office = Microsoft.Office.Core

Private Sub Gomb1_Click(sender As System.Object, e As System.EventArgs) Handles Gomb1.Click
        Dim oWord As Word.Application
        Dim oDoc As Word.Document
 
        oWord = New Word.Application
        oDoc = oWord.Documents.Open("C:\tesztFajl.docx")
 
        With oDoc
            .CustomDocumentProperties.Item("CustomPropertyName").value = "Teszt"
        End With
 
        oDoc.Fields.Update()
        oDoc.Close()
        oWord.Quit()
    End Sub

private void CreateDocument()
{
            try
            {
                //Készítünk egy word alkalmazás példányt
                Microsoft.Office.Interop.Word.Application winword = 
                   new Microsoft.Office.Interop.Word.Application();
 
                //Beállítjuk az animáció állapotát
                winword.ShowAnimation = false;
 
                //beállítjuk a word alkalmazás láthatóságát.
                winword.Visible = false;
 
                //A missing létrehozása
                object missing = System.Reflection.Missing.Value;
 
                //Új dokumentum készítése
                Microsoft.Office.Interop.Word.Document document = 
                    winword.Documents.Add(ref missing, ref missing, ref missing, ref missing);
 
 
                //szöveg dokumentumhoz adása
                document.Content.SetRange(0, 0);
                document.Content.Text = "This is test document "+ Environment.NewLine;
 
 
                //Dokumentum mentése
                object filename = @"c:\tesztFajl.docx";
                document.SaveAs2(ref filename);
                document.Close(ref missing, ref missing, ref missing);
                document = null;
                winword.Quit(ref missing, ref missing, ref missing);
                winword = null;
                MessageBox.Show("A dokumentum sikeresen elkészült !");
            }
            catch (Exception ex)
            {
                MessageBox.Show(ex.Message);
            }
}