2013-05-29 121 views
3

我正在嘗試創建一些LuaCOM編程文檔。我已經想出了大部分,但似乎無法理解頁眉/頁腳的工作方式。LuaCOM Word文檔頭文件

word = luacom.CreateObject("Word.Application") 


book = word.documents:Add() 
word.Visible = true 



paras = book.Paragraphs:Add() 
range = paras.Range 

range.Text = ([[Nam fabulas mnesarchum comprehensam ne, cu ullum euismod consulatu usu. Eam alii lobortis voluptatum id, denique eligendi pertinax quo ne. Vis congue eirmod ut. Duo probo soleat ex. Elit pertinax abhorreant eu his, ipsum dicam dissentiunt pri id. Kasd erant dolorum id sed, ei vim partem deseruisse, ne mea dico tantas alienum. 
Has cu facilisis mediocritatem. Fabellas lucilius vim ex. 
]]) 

book.InlineShapes:AddPicture("C:\\13.png", 0, 1); 
range.Style = ("Normal") 
range:InsertParagraphAfter() 

word.DisplayAlerts = false; 

doc = nil 
word = nil 

這裏我只是創建一個帶有段落的標準文檔,並在頂部附近添加一個圖像。我希望在標題中顯示圖像以及標題中的一些文字。

在此先感謝您的幫助!

+2

*懺悔熊*:我upvoted,因爲我剛剛發現LuaCOM存在。 –

回答

1

這個工作對我來說:

require("luacom") 
local word = luacom.CreateObject("Word.Application") 
local book = word.documents:Add() 
word.Visible = true 
local section = book.Sections(1) 
local headers = section.Headers 
local header = headers:Item(1) 
header.Range.Text = "HEADER" 
header.Range.InlineShapes:AddPicture("C:\\13.png", 0, 1); 
doc = nil 
word = nil