vb控制word实例2.docVIP

?1、返回Word文档的段落文字，控制分页，设置页眉和页脚 [vb]?view plaincopy 先引用Microsoft?Word?11.0?Object?Library?? Option?Explicit?? ?? Dim?WordApp?As?Word.Application?创建Word应用程序?? ?? Private?Sub?Command1_Click()?? ????Dim?i?As?Long?? ????On?Error?GoTo?Errhandler?? ????CommonDialog1.Filter?=?Word(*.Doc)|*.Doc|AllFile(*.*)|*.*?? ????CommonDialog1.FilterIndex?=?1?? ????CommonDialog1.ShowOpen?? ????Set?WordApp?=?New?Word.Application?实例化?? ????WordApp.Documents.Open?CommonDialog1.FileName?打开Word文件?? ????WordApp.Visible?=?True?显示?Office?Word?界面?? ????或者Application.Visible?=?True?? ????WordApp.DisplayAlerts?=?False?不提示保存对话框?? ?????? ????返回段落文字，返回的段落文字在文本框控件中?? ????Text1.Text?=??? ????For?i?=?1?To?ActiveDocument.Paragraphs.Count?? ????????Text1.Text?=?Text1.Text??(ActiveDocument.Paragraphs(i).Range.Text??vbCrLf??vbCrLf)?? ????Next?? ?????? ????控制分页?? ????WordApp.Selection.EndKey?unit:=wdStory??将光标移到文档末尾?? ????WordApp.Selection.InsertBreak?wdPageBreak?在文档末尾插入一页?? ?????? ????设置图片格式的页眉?? ????If?ActiveWindow.View.SplitSpecial??wdPaneNone?Then?? ???????ActiveWindow.Panes(2).Close?? ????End?If?? ????If?ActiveWindow.ActivePane.View.Type?=?wdNormalView?Or?ActiveWindow.ActivePane.View.Type?=?wdOutlineView?Then?? ???????ActiveWindow.ActivePane.View.Type?=?wdPrintView?? ????End?If?? ????ActiveWindow.ActivePane.View.SeekView?=?wdSeekCurrentPageHeader?? ????Selection.InlineShapes.AddPicture?FileName:=F:\资料\My?Pictures\2013年元旦.gif,?LinkToFile:=False,?SaveWithDocument:=True?加载一图片文件作为页眉?? ????Selection.ParagraphFormat.Alignment?=?wdAlignParagraphLeft?? ????ActiveWindow.ActivePane.View.SeekView?=?wdSeekMainDocument?? ?????? ????设置文本格式的页眉?? ????If?ActiveWindow.View.SplitSpecial??wdPaneNone?Then?? ???????ActiveWindow.Panes(2).Close?? ????End?If?? ????If?ActiveWindow.ActivePane.View.Type?=?wdNormalView?Or?ActiveWindow.ActivePane.View.Type?=?wdOutlineView?Then?? ???????ActiveWindow.ActivePane.View.Type?=?wdPrintView?? ????End?If?? ????ActiveWindow.ActivePane.View.SeekView?=?wdSeekCurrentPageHeader?? ????Selection.Type