将宏 Word 2010 插入 Visual Basic 2008 速成版答案

【问题标题】：Insert Macros Word 2010 into a Visual Basic 2008 Express Edition将宏 Word 2010 插入 Visual Basic 2008 速成版
【发布时间】：2014-05-14 15:10:14
【问题描述】：

我用 Microsoft Word 2010 创建了一个宏：

Sub Macro1()
    Selection.WholeStory
End Sub

在 Button1_Click 事件中，我将执行宏：

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

我记得 Visual Basic 6 允许从 Microsoft 应用程序输入宏对象。现在使用 Visual Basic 2008 Express Edition？

【问题讨论】：

标签： visual-studio-2010 visual-studio visual-studio-2008 macros ms-word

【解决方案1】：

 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    'Funziona  Estrapola in un file HTML
    'Dim settaggio As New XsltSettings
    'Dim xslt As New XslCompiledTransform
    'xslt.Load("Stile.xslt", settaggio, New XmlUrlResolver())
    'xslt.Transform("Fascicolo.xml", "Fascicolo.html")
    'Fine funziona

    ' Create the XslTransform object and load the style sheet. File XSLT
    Dim xslt As New XslCompiledTransform()
    xslt.Load(Label4.Text)
    ' Load the file to transform. File XML
    Dim doc As New Xml.XPath.XPathDocument(Label2.Text)
    ' Create the writer.
    Dim writer As XmlWriter = XmlWriter.Create(DirListBox3.Path & "\" & "Fascicolo.doc", xslt.OutputSettings)
    ' Transform the file and send the output to the console.
    xslt.Transform(doc, writer)
    writer.Close()

    Process.Start(DirListBox3.Path & "\" & "Fascicolo.doc")

    Dim var As New Microsoft.Office.Interop.Word.Application()
    Dim ciao As New Microsoft.Office.Interop.Word.Document
    ciao.Activate()


    var.Documents.Open(FileName:="C:\Users\f.irrera\Desktop\Fascicolo.doc")
    var.Selection.WholeStory()
    var.Selection.Copy()

    var.ChangeFileOpenDirectory("C:\Users\f.irrera\Desktop\")
    var.ActiveDocument.SaveAs2(FileName:="Fascicolo.daf", FileFormat:=2)

    ciao.Close()
    var.Documents.Close()
    var.Application.Quit()

End Sub

【讨论】：