Go-ole - word tables

word_tables.go

package main

import (
	"fmt"
	"reflect"
	"time"

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

var pl = fmt.Println // Monkeys hate typing
var mpp = oleutil.MustPutProperty
var mgp = oleutil.MustGetProperty
var mcm = oleutil.MustCallMethod

func main() {
	ole.CoInitialize(0)
	defer ole.CoUninitialize()

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

	documents := mgp(word, "Documents").ToIDispatch()
	document := mcm(documents, "Add").ToIDispatch()

	paragraphs := mgp(document, "Paragraphs").ToIDispatch()
	paragraph := mcm(paragraphs, "Add").ToIDispatch()
	rnge := mgp(paragraph, "Range").ToIDispatch()
	mpp(rnge, "Text", "This is a Word document created with Go and go-ole.")
	mcm(rnge, "InsertAfter", "\nIt is being programmed by a primate. A fat one.")
	mcm(rnge, "InsertParagraphAfter")

	lastPara := mgp(paragraphs, "Last").ToIDispatch()
	lastRange := mgp(lastPara, "Range").ToIDispatch()

	tables := mgp(document, "Tables").ToIDispatch()
	table1 := mcm(tables, "Add", lastRange, 5, 11).ToIDispatch()
	// Created an object, so it needs 'ToIDispatch'
	mpp(table1, "Style", "Table Grid")

	tableRange := mgp(table1, "Range").ToIDispatch()
	fmt.Println(reflect.TypeOf(tableRange))
	cell1 := mcm(table1, "Cell", 1, 1).ToIDispatch()
	fmt.Println(reflect.TypeOf(cell1))
	cell1Range := mgp(cell1, "Range").ToIDispatch()
	mcm(cell1Range, "InsertAfter", "Gross")

	rows := mgp(table1, "Rows").ToIDispatch()
	rowCount := mgp(rows, "Count")
	numRows := rowCount.Val
	pl(numRows)

	cols := mgp(table1, "Columns").ToIDispatch()
	colCount := mgp(cols, "Count")
	numCols := colCount.Val
	pl(numCols)

	lastCell := mcm(table1, "Cell", numRows, numCols).ToIDispatch()
	lastCellRange := mgp(lastCell, "Range").ToIDispatch()
	mcm(lastCellRange, "InsertAfter", "Yuk.").ToIDispatch()

	time.Sleep(5 * time.Second)
	// mpp(document, "Saved", true)
	mcm(document, "SaveAs", `C:\work\Word\monkey business.docx`)
	mcm(document, "Close", false)
	mcm(word, "Quit")
	word.Release()
	pl("Finished")
	//ole.CoUninitialize() - took care of this with 'defer' above
}