Excel VBA 自動另存Word檔案到指定路徑

Option Explicit

' Test getting current working directory and opening word files.
'
' Note: Add the following references:
' Microsoft Word XXX Object Library
'
' Author: Shawn Chang
' Tested on Excel 2010 and Word 2010

Private Type WordInstances
    wordApp As Word.Application
    wordDoc As Word.Document
End Type

Public Sub TestGetCurrentWorkingDirectory()
    MsgBox GetCurrentWorkingDirectory()
End Sub

Public Sub TestOpenWord()
    ' Open word instances by document path
    Dim documentPath As String
    Dim instances As WordInstances
    
    documentPath = GetCurrentWorkingDirectory() & "\Document1.docx"

    instances = OpenWord(documentPath)

    ' Get first paragraph text
    Dim firstParagraphText As String
    
    firstParagraphText = GetWordParagraphText(instances.wordDoc, 1)
    
    ' Show first paragraph text
    MsgBox firstParagraphText
    
    ' Close word instances
    CloseWord instances
End Sub

Private Function GetCurrentWorkingDirectory() As String
    GetCurrentWorkingDirectory = ActiveWorkbook.Path
End Function

Private Function GetWordParagraphText(doc As Word.Document, paragraphIndex As Integer) As String
    Dim docParagraph As Word.Paragraph

    Set docParagraph = doc.Paragraphs(paragraphIndex)

    GetWordParagraphText = docParagraph.Range.Text
End Function

Private Function OpenWord(docPath As String) As WordInstances
    Dim instances As WordInstances

    With instances
        Set .wordApp = CreateObject("Word.Application")
        Set .wordDoc = GetObject(docPath)
    End With
    
    OpenWord = instances
End Function

Private Sub CloseWord(instances As WordInstances)
    With instances
        .wordDoc.Close
        .wordApp.Quit

        Set .wordApp = Nothing
        Set .wordDoc = Nothing
    End With
End Sub