April, 2008

Dim pPart As PackagePart = p.CreatePart(pURI, contentType,CompressionOption.Fast)
'or
Dim pPart As PackagePart = p.CreatePart(pURI, contentType,CompressionOption.Maximum)
'or
Dim pPart As PackagePart = p.CreatePart(pURI, contentType,CompressionOption.Normal)
'or
Dim pPart As PackagePart = p.CreatePart(pURI, contentType,CompressionOption.NotCompressed)
'or
Dim pPart As PackagePart = p.CreatePart(pURI, contentType,CompressionOption.SuperFast)

Public Class Form1

#Region "NamespaceConstants"
    Private Structure constants
        Dim dummy
        Shared presentationmlNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/officeDocument"
        Shared relationshipNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships"
        Shared corePropertiesSchema As String = "http://schemas.openxmlformats.org/package/2006/metadata/core-properties"
        Shared docPropsVTypes As String = "http://schemas.openxmlformats.org/officeDocument/2006/docPropsVTypes"
        Shared slidePartNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/slide"
        Shared appPartNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/extended-properties"
        Shared themePartNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/theme"
        Shared slidelayoutNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/slideLayout"
        Shared slidemasterNamespace As String = "http://schemas.openxmlformats.org/officeDocument/2006/relationships/slideMaster"
        Shared mainpartNamespace As String = "http://schemas.openxmlformats.org/presentationml/2006/main"

        Shared mainPartContentType As String = "application/vnd.openxmlformats-officedocument.presentationml.presentation.main+xml"
        Shared slidePartContentType As String = "application/vnd.openxmlformats-officedocument.presentationml.slide+xml"
        Shared slideLayoutContentType As String = "application/vnd.openxmlformats-officedocument.presentationml.slideLayout+xml"
        Shared appPartContentType As String = "application/vnd.openxmlformats-officedocument.extended-properties+xml"
        Shared corePartContentType As String = "application/vnd.openxmlformats-package.core-properties+xml"
        Shared themePartContentType As String = "application/vnd.openxmlformats-officedocument.theme+xml"
        Shared slidemasterContentType As String = "application/vnd.openxmlformats-officedocument.presentationml.slideMaster+xml"

    End Structure


#End Region


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Using myPackage As Package = Package.Open("C:\somepath\GuineaPig.pptx", FileMode.Create, FileAccess.ReadWrite, FileShare.None)

  


            'Add package parts app,core and doc
            Dim docPart As PackagePart = CreateBasicPart(New StreamReader("C:\somepath\presentation.xml").BaseStream, myPackage, "ppt/presentation.xml", constants.mainPartContentType, constants.presentationmlNamespace)
            'end add


            'add other *required* parts slide,slidemaster,theme,slidelayout
            '
            Dim pp() As PackagePart

            'add slide part

            pp = New PackagePart() {docPart}
            Dim slidePart As PackagePart = CreateExtendedPart(myPackage, "C:\somepath\slide1.xml", "ppt/slides/slide1.xml", constants.slidePartContentType, constants.slidePartNamespace, pp)
            AdjustPartXML("//p:sldIdLst/p:sldId/@r:id", docPart, constants.slidePartNamespace)

            'end add slide part

            'add theme part

            pp = New PackagePart() {docPart}
            Dim themePart As PackagePart = CreateExtendedPart(myPackage, "C:\somepath\theme1.xml", "ppt/theme/theme1.xml", constants.themePartContentType, constants.themePartNamespace, pp)
            'end add theme part

            'add slide layout part
            pp = New PackagePart() {slidePart}
            Dim slidelayoutPart As PackagePart = CreateExtendedPart(myPackage, "C:\somepath\slidelayout1.xml", "ppt/slideLayouts/slideLayout1.xml", constants.slideLayoutContentType, constants.slidelayoutNamespace, pp)
            'end add slide layout part

            'add slide layout part
            pp = New PackagePart() {docPart, slidelayoutPart}
            Dim slidemasterPart As PackagePart = CreateExtendedPart(myPackage, "C:\somepath\slidemaster1.xml", "ppt/slideMasters/slideMaster1.xml", constants.slidemasterContentType, constants.slidemasterNamespace, pp)
            AdjustPartXML("//p:sldMasterIdLst/p:sldMasterId/@r:id", docPart, constants.slidemasterNamespace)
            'end add slide layout part

            'add other *required* parts slide,slidemaster,theme,slidelayout

            'add other relationships
            AddRelationship(slidemasterPart, themePart, constants.themePartNamespace)
            AddRelationship(slidemasterPart, slidelayoutPart, constants.slidelayoutNamespace)
            AdjustPartXML("//p:sldLayoutIdLst/p:sldLayoutId/@r:id", slidemasterPart, constants.slidelayoutNamespace)
            'end add other relationships


        End Using


        Me.Close()
    End Sub
    Public Sub AdjustPartXML(ByVal xpath As String, ByVal p As PackagePart, ByVal relationship As String)
        Dim nt As New NameTable
        Dim nsManager As New XmlNamespaceManager(nt)
        nsManager.AddNamespace("p", constants.mainpartNamespace)
        nsManager.AddNamespace("r", constants.relationshipNamespace)
        Dim adoc As New XmlDocument(nt)

        adoc.Load(p.GetStream())
        If Not IsNothing(adoc.SelectSingleNode(xpath, nsManager)) Then
            For Each r As PackageRelationship In p.GetRelationshipsByType(relationship)
                adoc.SelectSingleNode(xpath, nsManager).Value = r.Id
                adoc.Save(p.GetStream(FileMode.Create, FileAccess.ReadWrite))
            Next r
        End If
    End Sub
    Private Sub AddRelationship(ByVal frompart As PackagePart, ByVal topart As PackagePart, ByVal relationship As String)
        frompart.CreateRelationship(topart.Uri, TargetMode.Internal, relationship)
    End Sub
    Private Function CreateExtendedPart(ByVal p As Package, ByVal filename As String, ByVal uri As String, ByVal contenttype As String, ByVal relationship As String, ByVal relatewith() As PackagePart) As PackagePart
        Dim xmlDoc As New XmlDocument, xmlFile As New XmlDocument

        Dim pURI As Uri = PackUriHelper.CreatePartUri(New Uri(uri, UriKind.Relative))
        Dim pPart As PackagePart = p.CreatePart(pURI, contenttype)


        For Each pp As PackagePart In relatewith
            pp.CreateRelationship(pPart.Uri, TargetMode.Internal, relationship)
        Next

        xmlDoc.Load(filename)
        xmlDoc.Save(pPart.GetStream(FileMode.Create, FileAccess.Write))
        xmlDoc = Nothing
        Return pPart
    End Function


    Private Function CreateBasicPart(ByVal fileStream As Stream, ByVal pptPackage As Package, ByVal uri As String, ByVal contentType As String, ByVal relType As String) As PackagePart

        Dim documentUri As Uri = PackUriHelper.CreatePartUri(New Uri(uri, UriKind.Relative))

        Dim documentPart As PackagePart = pptPackage.CreatePart(documentUri, contentType)

        pptPackage.CreateRelationship(documentPart.Uri, TargetMode.Internal, relType)

        Dim xmlDoc As New XmlDocument

        xmlDoc.Load(fileStream)
        xmlDoc.Save(documentPart.GetStream(FileMode.Create, FileAccess.Write))


        Return documentPart
    End Function


End Class

Public Function getGradientStopColor(ByVal iSlide As Integer, ByVal iShape As Integer, ByVal iGS As Integer) As Long
      getGradientStopColor = ActivePresentation.Slides(iSlide).Shapes(iShape).Fill.GradientStops(iGS).Color.RGB
End Function

object[] oParam = { 1, 1, 1 };
object retVal = Globals.ThisAddIn.Application.Run("getGradientStopColor", ref oParam);
Debug.WriteLine(retVal.ToString());

oParam[0] = 1; oParam[1] = 1; oParam[2] = 2;
retVal = Globals.ThisAddIn.Application.Run("getGradientStopColor", ref oParam);
Debug.WriteLine(retVal.ToString());

oParam[0] = 1; oParam[1] = 1; oParam[2] = 3;
retVal = Globals.ThisAddIn.Application.Run("getGradientStopColor", ref oParam);
Debug.WriteLine(retVal.ToString());

Module LocalExtensions
    ' How to create and extension method
    <Extension()> _
    Function GetXDocument(ByVal part As OpenXmlPart) As XDocument
        Dim xdoc As XDocument = part.Annotation(Of XDocument)()
        If (xdoc Is Nothing = False) Then
            Return xdoc
        End If

        Using streamReader As StreamReader =
                               new StreamReader(part.GetStream())
            xdoc = XDocument.Load(XmlReader.Create(streamReader))
            part.AddAnnotation(xdoc)
        End Using

        Return xdoc
    End Function
End Module

Imports Word = Microsoft.Office.Interop.Word
Imports System.IO

Public Class Form1
    Dim wdApp As Word.Application
    Dim wdDoc As Word.Document
    Dim wdSelect As Word.Range

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        wdApp = New Word.Application
        wdApp.Documents.Open("<DOCNAME>")
        wdApp.Visible = True

        Dim emfData As Byte()
        Dim ms As MemoryStream
        Dim mf As Imaging.Metafile
        Dim pn As Long


        pn = wdApp.ActiveDocument.ActiveWindow.Panes(1).Pages.Count() 'Get the page count

        For i As Long = 1 To pn
            wdApp.Selection.GoTo(Word.WdGoToItem.wdGoToPage, Word.WdGoToDirection.wdGoToAbsolute, i) ' Go to the next page
            wdApp.ActiveDocument.Bookmarks("\Page").Range.Select() 'Select using the magic bookmark "\page"
            Debug.Print("Selected " & i & " page")

            emfData = wdApp.Selection.EnhMetaFileBits 'Get the metafile bits
            ms = New MemoryStream(emfData)
            mf = New Imaging.Metafile(ms)

            mf.Save("c:\upload\page" & i & ".emf") ' Save
            Debug.Print("Saved " & i & " page")

        Next i

        Debug.Print("Done!")
    End Sub
End Class

using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Word = Microsoft.Office.Interop.Word;
using System.Reflection;
using System.Runtime.InteropServices;
using COM = System.Runtime.InteropServices.ComTypes;

namespace IDataObjectFromWord
{
    public partial class Form1 : Form
    {

        [DllImport("kernel32.dll", CharSet = CharSet.Auto, ExactSpelling = true, SetLastError = true)]
        private static extern IntPtr GlobalLock(HandleRef handle);

        [DllImport("kernel32.dll", CharSet = CharSet.Auto, ExactSpelling = true, SetLastError = true)]
        private static extern bool GlobalUnlock(HandleRef handle);

        [DllImport("kernel32.dll", CharSet = CharSet.Auto, ExactSpelling = true, SetLastError = true)]
        private static extern int GlobalSize(HandleRef handle);


        
        Word.Application wdApp;
        Word._Document wdDoc;
        object o=Missing.Value;    
       
        public Form1()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            wdApp= new Word.Application();
            wdDoc=wdApp.Documents.Add(ref o,ref o, ref o, ref o);
            wdDoc.Range(ref o, ref o).Text = "Hello World ...";
            wdApp.Visible = true;


            COM.IDataObject dt = (COM.IDataObject)wdDoc;
            COM.IPersistFile pp = (COM.IPersistFile)wdDoc;
            COM.FORMATETC format= new COM.FORMATETC();
            COM.STGMEDIUM stgmedium= new COM.STGMEDIUM();
            
            pp.Save(@"C:\upload\Something.doc",false);
            
            format.cfFormat = (short)DataFormats.GetFormat(DataFormats.Html).Id;
            format.dwAspect = COM.DVASPECT.DVASPECT_CONTENT;
            format.lindex = -1;
            format.tymed = COM.TYMED.TYMED_HGLOBAL;

       
            stgmedium.tymed = COM.TYMED.TYMED_HGLOBAL;
            stgmedium.pUnkForRelease = null;

            dt.GetData(ref format, out stgmedium);

            IntPtr pointer = stgmedium.unionmember;
            
            HandleRef handleRef = new HandleRef(null, pointer);

            byte[] rawArray = null;
  
            try
            {
                IntPtr ptr1 = GlobalLock(handleRef);

                int length = GlobalSize(handleRef);

                rawArray = new byte[length];

                Marshal.Copy(ptr1, rawArray, 0, length);          

            }
            catch (Exception exp)
            {
                System.Diagnostics.Debug.WriteLine("HtmlFromIDataObject.GetHtml -> Html Import threw an exception: " + Environment.NewLine + exp.ToString());
            }
            finally
            {
                GlobalUnlock(handleRef);

            }

            //return rawArray;
            pp.Save(@"C:\upload\Something.doc", false);
            System.Diagnostics.Debug.WriteLine(Encoding.UTF8.GetString(rawArray));
        }

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
using Word = Microsoft.Office.Interop.Word;
using System.Reflection;
using System.Runtime.InteropServices;
using COM = System.Runtime.InteropServices.ComTypes;

namespace IPersistFileFromWord
{
    public partial class Form1 : Form
    {

        Word.Application wdApp;
        Word._Document wdDoc;
        object o=Missing.Value;
        public Form1()
        {
             InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            wdApp= new Word.Application();
            wdDoc=wdApp.Documents.Add(ref o,ref o, ref o, ref o);
            wdDoc.Range(ref o, ref o).Text = "Hello World ...";
            wdApp.Visible = true;
            COM.IPersistFile pp = (COM.IPersistFile)wdDoc;
            pp.Save(@"C:\upload\Something.doc",false);
        }
    }
}