执行宏到Visual Basic 2008

Question

我创造了这个微软Word 2010个中宏：

Sub Crea_DAF()   
    Selection.WholeStory() 
    Selection.Copy() 
    ChangeFileOpenDirectory("C:\Users\f.irrera\Desktop\") 
    ActiveDocument.SaveAs2(FileName:="Fascicolo.daf", FileFormat:= _ 
    wdFormatText, LockComments:=False, Password:="", AddToRecentFiles:=True, _ 
    WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ 
    SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ 
    False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False _ 
    , LineEnding:=wdCRLF, CompatibilityMode:=0) 
End Sub 

我会（使用Visual Basic 2008速成版）执行的情况下，本宏：

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl 

是否有可能？

我与Tryng：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    Dim var As New Microsoft.Office.Interop.Word.Application() 
    var.Selection.WholeStory() <--- Error 
    var.Selection.Copy() 
    var.ChangeFileOpenDirectory("C:\Users\f.irrera\Desktop\") 
    var.ActiveDocument.SaveAs2(FileName:="Fascicolo.daf") 
End Sub 

这是错误：

Answer 1

此运行：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
    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", LockComments:=False, Password:="", WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:=False, Encoding:=1252, InsertLineBreaks:=False, AllowSubstitutions:=False, CompatibilityMode:=0) 

End Sub 

Answer 2

我不知道你将能够通过对象模型来访问所有这些属性。你可以在这里看到（或duckduckgo搜索词/ vb.net编程）：

http://www.windowsdevcenter.com/pub/a/windows/2006/04/18/programming-word-from-net.html

另外，添加到代码字上的负荷，然后就“壳”打开该文档与宏选项：

“C：\ Program Files文件\的Microsoft Office \ OFFICE11 \ WinWord.exe进程” “C：\ the.doc” /mDoStuffMacro

OR

通过VBS

：

个

Run_Excel_Macro.vbs “C：\完全\路径\为\ Your_Excel_Workbook.xls”