用word宏制作紅頭文件格式

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

2、160;  WordBasic.SelectSimilarFormatting    bt = Selection'=    '三、獲得文件編號(hào)    Set 自動(dòng) = fso.OpenTextFile("D:dcf 日記發(fā)文autonum.txt")    am = 自動(dòng).ReadLine    自動(dòng).Close    '四、獲得編號(hào)后，編號(hào)按順序+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'=    '六、打開(kāi)并激活登記本    ChangeFileOpenDirecto

5、ry "D:dcf 日記發(fā)文"    Documents.Open FileName:="發(fā)文登記表.doc"    Windows("發(fā)文登記表.doc").Activate'=    '七、填寫(xiě)內(nèi)容    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'=' 十、全選、復(fù)制、刪除-清理頁(yè)

9、面（方便下步處理），同時(shí)將文件保存在內(nèi)存中    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è)置回車的次數(shù)，讓光標(biāo)到達(dá)制定地點(diǎn)     Next    Selection.Font.Name = "仿宋_GB2312"    Selection.Font.Size = 18    '將讀取txt內(nèi)容的變量am（自動(dòng)編號(hào)），寫(xiě)入word中    Selec

11、tion.TypeText Text:="孝城投文2010" & Str(am) & "號(hào)"    '空格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'=    '十二、打開(kāi)文件末尾.doc"，并復(fù)制里面的內(nèi)容，復(fù)制后關(guān)閉    Selection.Paste    ChangeFileOpenDirectory "D:dcf 日記發(fā)文"    Documents.Open FileName:="文件末尾.doc"    Selection.WholeStory    Selection.Copy    ActiveWindow.Close'=&#