用word宏制作红头文件格式

用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 =
'===========================================================================
'五、读取登记本中的列数
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.Size = 10
Selection.TypeParagraph '设置回车的次数，让光标到达制定地点 Next
= "仿宋_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.TypeBackspace
Selection.TypeBackspace
Selection.TypeParagraph
Selection.TypeBackspace
'=========================================================================== ============================================================
'十二、打开文件末尾.doc"，并复制里面的内容，复制后关闭
Selection.Paste
ChangeFileOpenDirectory "D:\dcf 日记\发文\"
Documents.Open FileName:="文件末尾.doc"
Selection.WholeStory
Selection.Copy
ActiveWindow.Close
'=========================================================================== ===============================================================
'十三、激活返回文档，将光标移动到文件末尾,粘贴文件底部 Windows(myname).Activate
Selection.EndKey Unit:=wdStory
Selection.PasteAndFormat (wdPasteDefault)
End Sub。