Create Word Document (and Write with Excel) | Excel VBA Macro

แชร์
ฝัง
  • เผยแพร่เมื่อ 3 ต.ค. 2024
  • Excel VBA Macro: Create Word Document (and Write with Excel). In this video, we go over how to use excel vba to open a new word doc and type text into the document. We go over how to type directly from a string in our code, and by using a string from a cell in an excel workbook.
    Code:
    Sub create_word_doc()
    Dim objWord
    Dim objDoc
    Set objWord = CreateObject("Word.Application")
    Set objDoc = objWord.Documents.Add
    With objWord
    .Visible = True
    .Activate
    .Selection.typetext ("Hello World!")
    .Selection.typeparagraph
    .Selection.typetext (ThisWorkbook.Sheets("Sheet1").Cells(1, 1).Text)
    End With
    End Sub
    #ExcelVBA #ExcelMacro

ความคิดเห็น • 19

  • @francesoutlaw7021
    @francesoutlaw7021 ปีที่แล้ว +3

    Holy mother of God! This one works!!! All else failed!!! Thank you, Greg!

    • @greggowaffles
      @greggowaffles  ปีที่แล้ว

      No problem! So happy to hear that!!

  • @filipeempis5781
    @filipeempis5781 ปีที่แล้ว +9

    Can you make a video on how to create a template word document and type the text present in a given excel cell to a specific place (specific paragraph, range of characters or specific textbox) in the word document: For instance, there is a excel sheet with with several fields (name, age, town..). The point is to creat a macro so that after you fill those fields in Excel, a word document is created with those same fields filled

    • @Andrew-gr4nd
      @Andrew-gr4nd 7 หลายเดือนก่อน

      Hey did you ever figure this out? If so any good resources?

    • @chawchaw1918
      @chawchaw1918 2 หลายเดือนก่อน

      Hay, I'm looking for similar sort of solution for my worksheet, have you found any?

    • @greggowaffles
      @greggowaffles  2 วันที่ผ่านมา

      Just made one using the fields you provided! Hope it helps!! Excel VBA Macro: Create Word Document (Template File) Based on Cell Values
      th-cam.com/video/CNMhOj6JSUo/w-d-xo.html

    • @filipeempis5781
      @filipeempis5781 วันที่ผ่านมา

      @@greggowaffles Thank you very much!

  • @francesoutlaw7021
    @francesoutlaw7021 ปีที่แล้ว

    Subscribed, BTW! 😊

  • @darkzlord8436
    @darkzlord8436 ปีที่แล้ว

    why mine got "user defined - not define" pls helppp

  • @nixnews2267
    @nixnews2267 ปีที่แล้ว

    Please make a video of mailmerge..

    • @greggowaffles
      @greggowaffles  ปีที่แล้ว

      I’ll do that soon. Thanks for sharing that idea!

  • @alializadeh8195
    @alializadeh8195 2 ปีที่แล้ว

    Thanx

    • @greggowaffles
      @greggowaffles  2 ปีที่แล้ว

      No prob!

    • @haideraljubouri
      @haideraljubouri ปีที่แล้ว

      @@greggowaffles I have a really interesting project and would love your input on it my man.

  • @francesoutlaw7021
    @francesoutlaw7021 ปีที่แล้ว

    Mr. Greg, may I request you write a script to open an existing Word document, pweeeez! The Word document I need to open has an AutoExec macro to finalize the mail merge. The AutoExec macro works well that when I open the file, it is already merged with the data. Now, I just need to open that Word file from the Userform. Thanks in advance!

    • @greggowaffles
      @greggowaffles  ปีที่แล้ว +1

      I’ve got a backlog of requests I need to catch up on but I can look into this soon!

    • @francesoutlaw7021
      @francesoutlaw7021 ปีที่แล้ว

      @@greggowaffles, Thanks a million! I'm in the second part of my project that is due mid-July, and that script will be used later toward the deadline. I'm currently re-formatting 44 500-page Word documents, inserting merge fields, and formulating conditional fields, which take time, too. That script is best to do after all the templates are done. So, no hurry! Thanks again! 👍👍👍

    • @francesoutlaw7021
      @francesoutlaw7021 ปีที่แล้ว

      @@greggowaffles, Hello! Never mind my question above. I figured it out myself with the help of two VBA posts I combined together. Here's the script (for reference if anyone needs it):
      Public Sub CheckBox1_Click()
      Dim WrdPara As Paragraph
      Dim ActDom As Document
      Set ActDom = ActiveDocument
      Set WrdPara = ActDom.Paragraphs(2)
      If (CheckBox1.Value = True) Then
      ActiveDocument.Bookmarks("Para2").Range.Font.Hidden = CheckBox1.Value
      Else
      ActiveDocument.Bookmarks("Para2").Range.Font.Hidden = False
      End If
      End Sub
      It works perfectly.

  • @jeffiesconiers7798
    @jeffiesconiers7798 2 ปีที่แล้ว

    💘 𝘱𝘳𝘰𝘮𝘰𝘴𝘮