Tartalomjegyzék

< Programozás

MSO dokumentum generálás

MSO dokumentum Java környezetben

VisualBasic

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

C#

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