Excel VBA Macro: Create Word Document (Template File) Based on Cell Values

Excel VBA Macro: Create Word Document (Template File) Based on Cell Values 💥Subscribe: https://youtube.com/@greggowaffles From Worksheet: SERVICE AGREEMENT This Service Agreement is made between The Service Provider agrees to provide their service(s) from: The Client agrees to pay Both parties agree to the terms outlined in this Agreement and will cooperate to ensure satisfactory completion of the services. Code: Sub create_word_template() Dim objWord As Object Dim objDoc As Object Dim ws As Worksheet Set ws = ThisWorkbook.Sheets("Sheet1") Set objWord = CreateObject("Word.Application") objWord.Visible = True Set objDoc = objWord.Documents.Add objDoc.SaveAs "C:\Users\greggowaffles\Documents\" & _ "Youtube Videos\Test\Service Agreements\" & _ "Service Agreement_" & _ ws.Range("B1").Text & "_" & ws.Range("B4").Text & ".docx" With objWord .Activate .Selection.typetext ws.Range("A10").Text .Selection.typeparagraph .Selection.typeparagraph .Selection.typetext ws.Range("A11").Text & " " & _ ws.Range("B1").Text & ", age " & ws.Range("B2").Text & _ ", from " & ws.Range("B3").Text & ", and " & _ ws.Range("B4").Text & "." .Selection.typeparagraph .Selection.typetext ws.Range("A12").Text & " " & _ ws.Range("B5").Text & " to " & ws.Range("B6").Text & "." .Selection.typeparagraph .Selection.typetext ws.Range("A13").Text & " " & _ ws.Range("B7").Text & "for these services." .Selection.typeparagraph .Selection.typetext ws.Range("A14").Text & " " & _ ws.Range("A15").Text .Selection.typeparagraph .Selection.typeparagraph .Selection.typeparagraph .Selection.typeparagraph .Selection.typetext "Client Signature" .Selection.typeparagraph .Selection.typeparagraph .Selection.typetext "______________________________________" .Selection.typeparagraph .Selection.typeparagraph .Selection.typetext "Service Provider Signature" .Selection.typeparagraph .Selection.typeparagraph .Selection.typetext "______________________________________" End With objDoc.Close objWord.Quit Set objDoc = Nothing Set objWord = Nothing End Sub #ExcelVBA #ExcelMacro