用word宏制作红头文件格式.docVIP

用word宏制作红头文件格式 2010-09-29 20:53现在把代码贴出来,以后进行说明Sub redup() 一键设置红头文件格式一、定义变量 Dim am, nam, row, nrow As Integer Dim bt As String Dim fso As New FileSystemObject= 二、获得标题信息 Selection.HomeKey Unit:=wdStory WordBasic.SelectSimilarFormatting bt = Selection= 三、获得文件编号 Set 自动 = fso.OpenTextFile(D:dcf 日记发文autonum.txt) am = 自动.ReadLine 自动.Close 四、获得编号后，编号按顺序+1，以共下次使用 nam = am + 1 Open D:dcf 日记发文autonum.txt For Output As #1 output是输出到txt中 Print #1, Str(nam) Close #1= 获得本文档的名字，以便以后激活文档用 myname = ActiveDocument.Name= 五、读取登记本中的列数 Set 登记表 = fso.OpenTextFile(D:dcf 日记发文登记本的列数.txt) row = 登记表.ReadLine 登记表.Close= 六、打开并激活登记本 ChangeFileOpenDirectory D:dcf 日记发文 Documents.Open FileName:=发文登记表.doc Windows(发文登记表.doc).Activate= 七、填写内容 ActiveDocument.Tables(1).Cell(row, 6).Range.Text = bt ActiveDocument.Tables(1).Cell(row, 6).Range.Text = bt ActiveDocument.Tables(1).Cell(row, 2).Range.Text = Str(am) ActiveDocument.Tables(1).Cell(row, 1).Range.Text = Str(am) ActiveDocument.Tables(1).Cell(row, 5).Range.Text = 市政府 ActiveDocument.Tables(1).Cell(row, 7).Range.Text = 6 ActiveDocument.Tables(1).Cell(row, 8).Range.Text = 孝城文 ActiveDocument.Tables(1).Cell(row, 9).Range.Text = 黄永红= 八、下次使用，行数+1 nrow = row + 1 Open D:dcf 日记发文登记本的列数.txt For Output As #1 output是输出到txt中 Print #1, Str(nrow) Close #1= 九、用激活的方式，返回正文 Windows(myname).Activate= 十、全选、复制、删除-清理页面（方便下步处理），同时将文件保存在内存中 Selection.WholeStory Selection.Copy Selection.Delete Unit:=wdCharacter, Count:=1= 十一、插入文件头 Selection.Font.Name = 宋体 Selection.Font.Size = 10 For n = 0 To 24 Selection.TypeParagraph 设置回车的次数，让光标到达制定地点 Next Selection.Font.Name = 仿宋_GB2312 Selection.Font.Size = 18 将读取txt内容的变量am（自动编号），写入word中 Selection.TypeText Text:=孝城投文2010 & Str(am) & 号 空格11下 For n = 0 To 11 Selection.TypeText Text:= Next Selection.TypeText Text:=签发人：黄永红 Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeBackspace Selection.TypeBackspace Selection.TypeParagraph Selection.TypeBackspace= 十二、打开文件末尾.doc，并复制里面的内容，复制后关闭 Selection.Paste ChangeFileOpenDirectory D:dcf 日记发文 Documents.Open FileName:=文件末尾.doc Selection.WholeStory Selection.Copy ActiveWindow.Close= 十三、激活返回文档，将光标移动到文件末