我已将3个word文档合并为Word Interop Library中的一个
Dim wrdApp As New Word.Application
Dim docNew As Word.Document
docNew = wrdApp.Documents.Add
docNew.Range.InsertFile(b)
myRange = docNew.Paragraphs(docNew.Paragraphs.Count).Range
myRange.InsertParagraph()
myRange.InsertFile(c)
myRange = docNew.Paragraphs(docNew.Paragraphs.Count).Range
myRange.InsertParagraph()
myRange.InsertFile(d)
myRange = docNew.Paragraphs(docNew.Paragraphs.Count).Range
myRange.InsertParagraph()
现在我想添加边框,字体。我试过以下代码来保证金:
docNew.PageSetup.TopMargin = 50
docNew.PageSetup.BottomMargin = 50
docNew.PageSetup.LeftMargin = 50
docNew.PageSetup.RightMargin = 50
我们如何为Borders和Font做些什么?