'在EXCEL中用VBA把文本文件中的內(nèi)容放到WORD文檔中,，并添加自動(dòng)目錄

Set wordApp = CreateObject("Word.application")

With wordApp

    .documents.Add

    With .Selection

        Do While Not EOF(i)

            Line Input #i, strTemp

                If InStr(strTemp, "　　") = 0 Then

                    .Style = wordApp.ActiveDocument.Styles("標(biāo)題 1")

                    .typetext Text:=strTemp

                    .typeparagraph

                Else

                    .Style = wordApp.ActiveDocument.Styles("標(biāo)題 1")

                    .typetext Text:=Left(strTemp, InStr(strTemp, "　　"))

                    .typeparagraph

                    .typetext Text:=Mid(strTemp, InStr(strTemp, "　　"))

                    .typeparagraph

                End If

            Else

                .typetext Text:=strTemp

                .typeparagraph

            End If

        Loop

    End With

    'CTRL+SHIFT+HOME鍵，回到左上角

    .Selection.HomeKey Unit:=6 'wdStory=6

    .Selection.MoveLeft Unit:=1, Count:=1 'wdCharacter=1

    '添加目錄

    Dim rngWord As Object

    Set rngWord = .Selection.Range

    With .ActiveDocument

        .TablesOfContents.Add Range:=rngWord, RightAlignPageNumbers:= _

            True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _

            LowerHeadingLevel:=3, IncludePageNumbers:=True, AddedStyles:="", _

            UseHyperlinks:=True, HidePageNumbersInWeb:=True, UseOutlineLevels:= _

            True

        .TablesOfContents(1).TabLeader = 1 ' wdTabLeaderDots=1

        .TablesOfContents.Format = 0 'wdIndexIndent=0

    End With

    .ActiveDocument.SaveAs Filename:=strOutFile '保存文件

End With

wordApp.Quit

Set wordApp = Nothing