vb控制word实例2.doc

1、返回Word文档的段落文字，控制分页，设置页眉和页脚vbview plaincopy1. 先引用MicrosoftWord11.0ObjectLibrary2. OptionExplicit3. 4. DimWordAppAsWord.Application创建Word应用程序5. 6. PrivateSubCommand1_Click()7. DimiAsLong8. OnErrorGoToErrhandler9. CommonDialog1.Filter=Word(*.Doc)|*.Doc|AllFile(*.*)|*.*10. CommonDialog1.FilterIndex=111. CommonDialog1.ShowOpen12. SetWordApp=NewWord.Application实例化13. WordApp.Documents.OpenCommonDialog1.FileName打开Word文件14. WordApp.Visible=True显示OfficeWord界面15. 或者Application.Visible=True16. WordApp.DisplayAlerts=False不提示保存对话框17. 18. 返回段落文字，返回的段落文字在文本框控件中19. Text1.Text=20. Fori=1ToActiveDocument.Paragraphs.Count21. Text1.Text=Text1.Text&(ActiveDocument.Paragraphs(i).Range.Text&vbCrLf&vbCrLf)22. Next23. 24. 控制分页25. WordApp.Selection.EndKeyunit:=wdStory将光标移到文档末尾26. WordApp.Selection.InsertBreakwdPageBreak在文档末尾插入一页27. 28. 设置图片格式的页眉29. IfActiveWindow.View.SplitSpecialwdPaneNoneThen30. ActiveWindow.Panes(2).Close31. EndIf32. IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow.ActivePane.View.Type=wdOutlineViewThen33. ActiveWindow.ActivePane.View.Type=wdPrintView34. EndIf35. ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader36. Selection.InlineShapes.AddPictureFileName:=F:资料MyPictures2013年元旦.gif,LinkToFile:=False,SaveWithDocument:=True加载一图片文件作为页眉37. Selection.ParagraphFormat.Alignment=wdAlignParagraphLeft38. ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument39. 40. 设置文本格式的页眉41. IfActiveWindow.View.SplitSpecialwdPaneNoneThen42. ActiveWindow.Panes(2).Close43. EndIf44. IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow.ActivePane.View.Type=wdOutlineViewThen45. ActiveWindow.ActivePane.View.Type=wdPrintView46. EndIf47. ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader48. Selection.TypeTextText:=办公室常用工具49. ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument50. 51. 隐藏页眉的横线52. WordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Borders(wdBorderBottom).Visible=False53. 54. 取得页眉的内容55. Debug.PrintWordApp.ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text获取WORD第一节的页眉的文字内容56. 57. 58. 设置页脚59. IfActiveWindow.View.SplitSpecialwdPaneNoneThen60. ActiveWindow.Panes(2).Close61. EndIf62. IfActiveWindow.ActivePane.View.Type=wdNormalViewOrActiveWindow.ActivePane.View.Type=wdOutlineViewThen63. ActiveWindow.ActivePane.View.Type=wdPrintView64. EndIf65. ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader66. IfSelection.HeaderFooter.IsHeader=TrueThen67. ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageFooter68. Else69. ActiveWindow.ActivePane.View.SeekView=wdSeekCurrentPageHeader70. EndIf71. Selection.TypeTextText:=2013年设置页脚72. Selection.Fields.AddRange:=Selection.Range,Type:=wdFieldNumPages73. ActiveWindow.ActivePane.View.SeekView=wdSeekMainDocument74. 75. ActiveDocument.SaveAsc:MyWord.doc保存最后生成的word文档76. 77. Errhandler:78. ExitSub79. EndSub80. 81. PrivateSubForm_Unload(CancelAsInteger)82. OnErrorResumeNext83. WordApp.Quit84. SetWordApp=Nothing85. EndSub 效果图如下： 2、控制Word文档中的文本框对象vbview plaincopy1. 先引用MicrosoftWord11.0ObjectLibrary2. OptionExplicit3. 4. DimWordAppAsWord.Application创建Word应用程序5. 6. PrivateSubCommand1_Click()7. OnErrorGoToErrhandler8. CommonDialog1.Filter=MSOfficeWord(*.Doc)|*.Doc|AllFile(*.*)|*.*9. CommonDialog1.FilterIndex=110. CommonDialog1.ShowOpen11. SetWordApp=NewWord.Application实例化12. WordApp.Documents.OpenCommonDialog1.FileName打开Word文件13. IfDocuments.Count=1Then14. Text1.Text=打开的Word文件是：&ActiveDocument.Name&vbCrLf&vbCrLf15. EndIf16. WordApp.Visible=True显示OfficeWord界面17. 或者Application.Visible=True18. WordApp.DisplayAlerts=False不提示保存对话框19. 20. WordApp.Selection.EndKeyunit:=wdStory将光标移到文档末尾21. WordApp.Selection.Font.Bold=122. WordApp.Selection.Font.Name=黑体23. WordApp.Selection.Font.Size=1824. WordApp.Selection.TypeTextText:=在Word文件中插入文本框对象25. WordApp.Selection.ParagraphFormat.Alignment=Word.WdParagraphAlignment.wdAlignParagraphCenter居中显示26. 27. 创建文本框对象,座标（100，100），宽度200，高度20028. WithActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,100,100,400,300).Fill29. .Transparency=1设置透明色30. .ForeColor=vbRed设置前景颜色31. .UserPicture(F:资料MyPictures758254_960x1000_0.jpg)设置文本框对象的背景图片32. EndWith33. ActiveDocument.Shapes(1).TextFrame.TextRange.Text=这是一个美女给文本框赋值34. ActiveDocument.Shapes(1).Line.Transparency=1设置透明边框线条35. 36. 再创建一个透明背景的文本框对象37. WithActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal,100,400,400,300).Fill38. .Transparency=1设置透明色背景39. .ForeColor=vbRed设置前景颜色40. EndWith41. ActiveDocument.Shapes(2).TextFrame.TextRange.Text=这是一个透明背景的文本框给文本框赋值42. ActiveDocument.Shapes(2).Line.Transparency=1设置透明边框线条43. 44. 下面是获取文本框对象的内容45. DimiAsLong46. Fori=1ToActiveDocument.Shapes.Count47. Text1.Text=Text1.Text&(第&i&个文本框的内容：&ActiveDocument.Shapes(i).TextFrame.TextRange.Text&vbCrLf)48. Next49. 50. ActiveDocument.SaveAsc:MyWord.doc保存最后生成的word文档51. 52. Errhandler:53. ExitSub54. EndSub55. 56. PrivateSubForm_Unload(CancelAsInteger)57. OnErrorResumeNext58. WordApp.Quit59. SetWordApp=Nothing60. EndSub 效果图如下： 3、在Word文档中设置Excel风格的页码vbview plaincopy1. 先引用MicrosoftWord11.0ObjectLibrary2. OptionExplicit3. 4. DimWordAppAsWord.Application创建Word应用程序5. DimWordDocAsWord.Document创建Word文档对象6. 7. PrivateSubCommand1_Click()8. DimiAsLong9. OnErrorGoToErrhandler10. CommonDialog1.Filter=Word(*.Doc)|*.Doc|AllFile(*.*)|*.*11. CommonDialog1.FilterIndex=112. CommonDialog1.ShowOpen13. SetWordApp=NewWord.Application实例化14. SetWordDoc=WordApp.Documents.Open(CommonDialog1.FileName)选择并打开Word文件15. WordApp.Visible=True显示OfficeWord界面16. 或者Application.Visible=True17. WordApp.DisplayAlerts=False不提示保存对话框18. 19. 设置Word文档第一页页码20. DimWordRangeAsRange21. SetWordRange=WordApp.ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).Range22. 23. WithWordRange24. .InsertAfter第25. .Font.Size=1426. .CollapseDirection:=wdCollapseEnd27. 28. 插入页码域29. .Fields.AddRange:=WordRange,Type:=wdFieldEmpty,Text:=PAGE*Arabic,PreserveFormatting:=True30. .Expandunit:=wdWord31. .InsertAfter页32