用word宏制作紅頭文件格式

1、用word宏制作紅頭文件格式 2010-09-29 20:53現(xiàn)在把代碼貼出來,以后進行說明Sub redup() ' 一鍵設置紅頭文件格式'一、定義變量   Dim am, nam, row, nrow As Integer   Dim bt As String   Dim fso As New FileSystemObject'=    '二、獲得標題信息    Selection.HomeKey Unit:=wdStory &#

2、160;  WordBasic.SelectSimilarFormatting    bt = Selection'=    '三、獲得文件編號    Set 自動 = fso.OpenTextFile("D:dcf 日記發(fā)文autonum.txt")    am = 自動.ReadLine    自動.Close    '四、獲得編號后，編號按順序+1，以共下次

3、使用     nam = am + 1     Open "D:dcf 日記發(fā)文autonum.txt" For Output As #1 'output是輸出到txt中     Print #1, Str(nam)     Close #1'=    '獲得本文檔的名字，以便以后激活文檔用     myname = Act

4、iveDocument.Name'=        '五、讀取登記本中的列數(shù)    Set 登記表 = fso.OpenTextFile("D:dcf 日記發(fā)文登記本的列數(shù).txt")    row = 登記表.ReadLine    登記表.Close'=    '六、打開并激活登記本    ChangeFileOpenDirecto

5、ry "D:dcf 日記發(fā)文"    Documents.Open FileName:="發(fā)文登記表.doc"    Windows("發(fā)文登記表.doc").Activate'=    '七、填寫內容    ActiveDocument.Tables(1).Cell(row, 6).Range.Text = bt    ActiveDocument.Tables(1).

6、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

7、.Tables(1).Cell(row, 7).Range.Text = "6"    ActiveDocument.Tables(1).Cell(row, 8).Range.Text = "孝城文"    ActiveDocument.Tables(1).Cell(row, 9).Range.Text = "黃永紅"'=    '八、下次使用，行數(shù)+1     nrow = row + 1

8、     Open "D:dcf 日記發(fā)文登記本的列數(shù).txt" For Output As #1 'output是輸出到txt中     Print #1, Str(nrow)     Close #1'=     '九、用激活的方式，返回正文     Windows(myname).Activate'=' 十、全選、復制、刪除-清理頁

9、面（方便下步處理），同時將文件保存在內存中    Selection.WholeStory    Selection.Copy    Selection.Delete Unit:=wdCharacter, Count:=1'=   '十一、插入文件頭    Selection.Font.Name = "宋體"    Selection.Font.Size = 10  &#

10、160; For n = 0 To 24     Selection.TypeParagraph '設置回車的次數(shù)，讓光標到達制定地點     Next    Selection.Font.Name = "仿宋_GB2312"    Selection.Font.Size = 18    '將讀取txt內容的變量am（自動編號），寫入word中    Selec

11、tion.TypeText Text:="孝城投文2010" & Str(am) & "號"    '空格11下    For n = 0 To 11    Selection.TypeText Text:=" "    Next    Selection.TypeText Text:="簽發(fā)人：黃永紅"    S

12、election.TypeParagraph    Selection.TypeParagraph    Selection.TypeParagraph    Selection.TypeParagraph    Selection.TypeBackspace    Selection.TypeBackspace    Selection.TypeParagraph    Selecti

13、on.TypeBackspace'=    '十二、打開文件末尾.doc"，并復制里面的內容，復制后關閉    Selection.Paste    ChangeFileOpenDirectory "D:dcf 日記發(fā)文"    Documents.Open FileName:="文件末尾.doc"    Selection.WholeStory    Selection.Copy    ActiveWindow.Close'=&#