使用 Go OLE 绑定创建 MS Word 文档

Creating MS Word documents with Go OLE binding

我一直在尝试并学习如何以编程方式制作 Word 文档。我知道使用 pywin32 可以轻松完成。这个简单的片段在新的 Word 文档中检索默认的 Visual Basic“代码”。

import win32com.client
 
word = win32com.client.Dispatch("Word.Application")
word.Visible = True
document = word.Documents.Add()
document.VBProject.Name = "TEST"
wordModule = document.VBProject.VBComponents("ThisDocument") # WORKS

input()

然后您可以将 VB 代码添加到 wordModule

我想用 Golang 做同样的事情。 Go有一个OLE绑定,代码在Github -> https://github.com/go-ole/go-ole

它的用户友好性有点低,但我设法让它工作,除了我无法检索默认值 VBComponents

默认代码位于“ThisDocument”中,可以使用简单的 python 代码 document.VBProject.VBComponents("ThisDocument") 检索,但它在 Go 中不起作用... 您可以在下面的代码中看到,我尝试使用多种方式获取“ThisDocument”,但没有成功。每次,错误消息都是 panic: Unknown name.

// +build windows

package main

import (
    "fmt"

    ole "github.com/go-ole/go-ole"
    "github.com/go-ole/go-ole/oleutil"
)

func main() {
    defer ole.CoUninitialize()

    ole.CoInitialize(0)
    unknown, _ := oleutil.CreateObject("Word.Application")
    word, _ := unknown.QueryInterface(ole.IID_IDispatch)
    oleutil.PutProperty(word, "Visible", true)

    documents := oleutil.MustGetProperty(word, "Documents").ToIDispatch()
    document := oleutil.MustCallMethod(documents, "Add").ToIDispatch()

    vbproject := oleutil.MustGetProperty(document, "VBProject").ToIDispatch()
    oleutil.PutProperty(vbproject, "Name", "TEST")

    // oleutil.MustCallMethod(vbproject, "VBComponents", "ThisDocument").ToIDispatch() --> panic: Unknown name.

    // oleutil.MustGetProperty(vbproject, "VBComponents", "ThisDocument").ToIDispatch() --> panic: Unknown name.

    // vbcomponents := oleutil.MustGetProperty(vbproject, "VBComponents").ToIDispatch()
    // oleutil.MustGetProperty(vbcomponents, "ThisDocument").ToIDispatch() --> panic: Unknown name.

    var input string
    fmt.Scanln(&input)

    oleutil.PutProperty(document, "Saved", true)
    oleutil.CallMethod(documents, "Close", false)
    oleutil.CallMethod(word, "Quit")
    word.Release()
}

关于它为什么不起作用的任何想法? 非常感谢。

原来 "github.com/go-ole/go-ole" 在使用 ForEach 时有一个错误。 VBComponetsCollection,因此您必须按照 Microsoft 文档

所述进行迭代

Use the VBComponents collection to access, add, or remove components in a project. A component can be a form, module, or class. The VBComponents collection is a standard collection that can be used in a For...Each block.

这一行 -> https://github.com/go-ole/go-ole/blob/master/oleutil/oleutil.go#L106 应替换为

newEnum, err := disp.CallMethod("_NewEnum")

现在它按预期工作了。