Dim wordapp as word application

postrelll Пользователь Сообщений: 7 Регистрация: 28.03.2016

#1 02.09.2016 12:23:58 Добрый день, столкнулся со следующей проблемой в 2016 офисе. Есть макрос, выполняющий роль заполнялки документов по шаблону. Выполняется макрос из excel файлика, среди шаблонов есть Word документы, соответсвенно приходится в самом макросе оперировать с этими word объектами через Word.Application. Макрос корректно работал на версии офиса 2010 и младше. Сейчас установили 2016 офис и возникла проблема — при выполнении одной из строк кода возникает ошибка Код Run-Time Error 4605 Данная команда недоступна Начальная инициализация Код Dim WordApp As Object Set WordApp = CreateObject("Word.Application") With WordApp         .Visible = False         .WindowState = wdWindowStateNormal         .ScreenUpdating = False End With Проблемная функция Код Private Sub WordReplacement(word_selection As String, _                             replacement_text As String, _                             appobject As Object)                                  appobject .Application.Selection.Find.ClearFormatting     appobject .Application.Selection.Find.Replacement.ClearFormatting     With appobject.Application.Selection.Find         .Text = word_selection         .Replacement.Text = replacement_text         appobject .Application.Selection.Find.Execute Replace:=wdReplaceAll     End With Проблемная строка на которой светится ошибка 4605 Код appobject .Application.Selection.Find.Execute Replace:=wdReplaceAll End Sub Буду рад любой помощи

The_Prist Пользователь Сообщений: 14181 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office

А на этой строке нет ошибки? .WindowState = wdWindowStateNormal точно? Зачем Вам позднее связывание, если внутри кода напихали констант ворда? Советую ознакомиться: Как из Excel обратиться к другому приложению проблема в том, что Excel ничего не знает о константах Word-а, в том числе и про эту: wdReplaceAll Изменено: The_Prist — 02.09.2016 12:29:09 Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

postrelll Пользователь Сообщений: 7 Регистрация: 28.03.2016

#3 02.09.2016 12:43:05 The_Prist Да, все верно, именно поэтому приходится в начале инициализировать экземпляр объекта Word.Application .WindowState = wdWindowStateNormal — на эту строку не ругается Инициализация объекта Word.Application идет в самом начале макроса. Если я убираю вот эту строку из кода Код appobject .Application.Selection.Find.Execute Replace:=wdReplaceAll То макрос выполняется без ошибок. Шаблон с Word документом сохраняется с нужным мне именем. Однако нужных мне замен в этом шаблоне не производится. ПОдключенные библиотеки <#1><#2>

Hugo Пользователь Сообщений: 23249 Регистрация: 22.12.2012	#4 02.09.2016 12:48:58 Вместо констант пишите явно значение этих констант. Код Const wdReplaceAll = 2     Member of Word.WdReplace Изменено: Hugo — 02.09.2016 13:00:20

postrelll Пользователь Сообщений: 7 Регистрация: 28.03.2016	Проблема решена  — поменял формат шаблонов на .docx и переместил их с системного диска в документы пользователя.

The_Prist Пользователь Сообщений: 14181 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office

#6 02.09.2016 13:51:39 Цитата postrelll написал: Проблема решена не хотите Вы прислушиваться и читать…Она обязательно может всплыть в другой раз. Т.к. библиотека Word 16 может не подхватиться на более ранних. Сказать, почему макрос выполняется без ошибок? потому что все остальные переменные Word-а, возможно, тупо как 0 воспринимаются, т.к. директива Option Explicit не объявлена. И это тоже может повлечь свои ошибки. Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы…

postrelll Пользователь Сообщений: 7 Регистрация: 28.03.2016

The_Prist Да, я понимаю значение директивы Option Explicit. Макрос выполняется корректно и результат так же корректен. Проблема была в «безопасном режиме» шаблона, который открывался. В моем случае макрос открывал шаблон из указанного пути. В шаблоне в цикле делал замены в нужные места документов и затем сохранял шаблон под определенным именем. Ошибка изначально была связана с тем, что при открытии шаблона в безопасном режиме его невозможно редактировать, соответственно и делать замены в нём так же нельзя. А этот безопасный режим появился только в 2016 офисе (возможно и в 2013 он так же есть), поскольку в 2010 все открывалось нормально в обычном режиме. Стоит так же сказать, что шаблоны были в .doc формате для лучшей совместимости с более старыми офисами, поскольку макросом пользуются на самых разных ПК. Из-за этого и выползала ошибка. Плюс я изначально все шаблоны загонял в отдельную папку на диске С.  Учитывая, что макрос сейчас запускается из-под WIn 10, проблему так же создавала встроенная защита системы, поскольку она любит подтверждать через UAC все процедуры перезаписи/удаления. Поэтому и перенес папку с шаблонами в документы пользователя. Изменено: postrelll — 02.09.2016 17:05:03

Сергей Редькин Пользователь Сообщений: 1 Регистрация: 11.07.2021	#8 19.01.2022 08:58:23 У меня была похожая проблема со вставкой неформатированных значений из ячеек в размеченные закладками места в Word. Ошибки периодически вылазили на этой строке: Код .Application.Selection.PasteAndFormat (wdFormatPlainText) Перенос файла шаблона в папку шаблонов по умолчанию не помог. Насколько понимаю проблемы возникают при вызове функций Word из VBA, запущенном в Excel, но до конца в причинах я так и не разобрался. Заменил Copy/Paste на вставку значения текстовой переменной. Самое интересное, что один Selection.Copy / Selection.PasteAndFormat (wdFormatPlainText) в самом конце макроса работает корректно, но как только вставляю в макрос несколько — вылазят ошибки. Код Sub CreateLetter() Dim wdApp As Word.Application Dim wdDoc As Word.Document Dim SaveAsName As String Set wdApp = CreateObject("Word.Application") wdApp.Visible = True Set wdDoc = wdApp.Documents.Add(Template:="C:____.dotx", NewTemplate:=False, DocumentType:=0) With wdDoc            Text = Cells(6, 2).Text     .Application.Selection.Goto wdGoToBookmark, , , "Должность"     .Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter     .Application.Selection.InsertAfter (Text)            Text = Cells(6, 1).Text     .Application.Selection.Goto wdGoToBookmark, , , "Организация"     .Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter     .Application.Selection.InsertAfter (Text)     Text = Cells(6, 3).Text     .Application.Selection.Goto wdGoToBookmark, , , "Кому"     .Application.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter     .Application.Selection.InsertAfter (Text)          Text = Cells(6, 4).Text     .Application.Selection.Goto wdGoToBookmark, , , "Обращение"     .Application.Selection.InsertAfter (Text)                Text = Cells(2, 11).Text     .Application.Selection.Goto wdGoToBookmark, , , "Должность_подписант"     .Application.Selection.InsertAfter (Text)          Text = Cells(2, 10).Text     .Application.Selection.Goto wdGoToBookmark, , , "Подписант"     .Application.Selection.InsertAfter (Text)          Text = Cells(1, 10).Text     .Application.Selection.Goto wdGoToBookmark, , , "Исполнитель"     .Application.Selection.InsertAfter (Text)          Text = Cells(1, 11).Text     .Application.Selection.Goto wdGoToBookmark, , , "Телефон"     .Application.Selection.InsertAfter (Text)          ActiveSheet.PivotTables("Заезжающие").PivotSelect _         "'[#Inbox люди].[Фамилия Имя Отчество].[Фамилия Имя Отчество]'[All]", _         xlLabelOnly + xlFirstRow, True     Selection.Copy     .Application.Selection.Goto wdGoToBookmark, , , "Список"     .Application.Selection.PasteAndFormat (wdFormatPlainText)          .SaveAs2 Filename:=("D:_______ & Format(Now, "yyyy-mm-dd hh-mm-ss") & ".docx"), _     FileFormat:=wdFormatXMLDocument, AddtoRecentFiles:=False          .Close End With wdApp.Quit End Sub Изменено: Сергей Редькин — 19.01.2022 10:39:43

Использование Word в приложениях на Visual Basic 6 открывает широчайшие возможности для создания профессионально оформленных документов (например отчетов). Это часто необходимо при работе в фирме или на предприятии для обеспечения документооборота. Основным преимуществом использования Wordа в этом случае является то, что практически на всех компьютерах, используемых в фирмах и на предприятиях установлены Windows и пакет Microsoft Office. Поэтому подготовленные документы Word не требуют каких-либо дополнительных усилий для их просмотра, печати и редактирования. Единственное что нужно помнить, это то что работа через автоматизацию OLE (связывание и внедрение объектов) на деле оказывается довольно медленной технологией, хотя и очень полезной.

Чтобы использовать объекты Word в Visual Basic , необходимо инсталлировать сам Word. После этого вы получаете в своё распоряжение библиотеку Microsoft Word Object Library, которую нужно подключить к текущему проекту через диалоговое окно «Разработать»>>»Ссылки» (References) и указать Microsoft Word 9.0 Object Library (для Word 2000).

Два самых важных объекта Word это Word.Application и Word.Document. Они обеспечивают доступ к экземпляру приложения и документам Word.

Поэтому в раздел Generals «Общее» формы введите следующий код для объявления объектных переменных приложения Word и документа Word.

Dim WordApp As Word.Application '  экземпляр приложения
Dim DocWord As Word.Document'  экземпляр документа

Чтобы создать новый экземпляр Word, введите такой код кнопки;

Private Sub Комманда1_Click()

'создаём  новый экземпляр Word-a
Set WordApp = New Word.Application

'определяем видимость Word-a по True - видимый,
'по False - не видимый (работает только ядро)
WordApp.Visible = True

'создаём новый документ в Word-e
Set DocWord = WordApp.Documents.Add

'// если нужно открыть имеющийся документ, то пишем такой код
'Set DocWord = WordApp.Documents.Open("C:DDD.doc")

'активируем его
DocWord.Activate

End Sub

Для форматирования печатной области документа используйте данный код:

(вообще-то Word использует для всех размеров своих элементов пункты, поэтому для использования других единиц измерения, необходимо использовать встроенные функции форматирования.)

Например:

• CentimetersToPoints(Х.ХХ) — переводит сантиметры в пункты.
• MillimetersToPoints(X.XX) — переводит миллиметры в пункты

Private Sub Комманда2_Click()

'отступ слева "2,0 сантиметра"
DocWord.Application.Selection.PageSetup.LeftMargin = CentimetersToPoints(2)

'отступ справа "1,5 сантиметра"
DocWord.Application.Selection.PageSetup.RightMargin = CentimetersToPoints(1.5)

'отступ сверху "3,5 сантиметра"
DocWord.Application.Selection.PageSetup.TopMargin = CentimetersToPoints(3.5)

'отступ снизу "4,45 сантиметра"
DocWord.Application.Selection.PageSetup.BottomMargin = CentimetersToPoints(4.45)

End Sub

Небольшое отступление.

Для того чтобы в своём приложении не писать постоянно одно и тоже имя объекта, можно использовать оператор With.

Например код находящейся выше можно переписать так:

With DocWord.Application.Selection.PageSetup
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(1.5)
.TopMargin = CentimetersToPoints(3.5)
.BottomMargin = CentimetersToPoints(4.45)
End With

Если вам необходимо создать документ Word с нестандартным размером листа, то используйте данный код:

With DocWord.Application.Selection.PageSetup
.PageWidth = CentimetersToPoints(20)    'ширина листа (20 см)
.PageHeight = CentimetersToPoints(25)   'высота листа (25 см)
End With

Данный код меняет ориентацию страницы (практически меняет местами значения ширины и высоты листа):

 
DocWord.Application.Selection.PageSetup.Orientation = wdOrientLandscape

• wdOrientLandscape — альбомная ориентация ( число 1)
• wdOrientPortrait — книжная ориентация ( число 0)

Для сохранения документа под новым именем и в определенное место
используйте данный код код:

'сохраняем документ как
DocWord.SaveAs "c:DDD.doc"

После такого сохранения вы можете про ходу работы с документом сохранять его.

'сохраняем документ
DocWord.Save

Или проверить, были ли сохранены внесенные изменения свойством Saved и если изменения не были сохранены — сохранить их;

If DocWord.Saved=False Then DocWord.Save

Завершив работу с документом, вы можете закрыть сам документ методом Close и сам Word методом Quit.

'закрываем документ (без запроса на сохранение)
DocWord.Close True

'закрываем Word (без запроса на сохранение)
WordApp.Quit True

'уничтожаем обьект - документ
Set DocWord = Nothing

'уничтожаем обьект - Word
Set WordApp = Nothing

Если в методах Close и Quit не использовать необязательный параметр True то Word запросит согласие пользователя (если документ не был перед этим сохранён) на закрытие документа.

Если вам необходимо оставить Word открытым, просто не используйте методы Close и Quit.

Если вам необходимо поставить пароль на документ, то используйте код:

DocWord.Protect wdAllowOnlyComments, , "123456789"

Пример программы можно скачать здесь.

This post is the second in a series about controlling other applications from Excel using VBA. In the first part we looked at the basics of how to reference other applications using Early Binding or Late Binding. In this post, we will look at how we can automate Word from Excel even though we don’t know any VBA code for Word… yet. The process we will use for this is as follows:

1. Enable the Word Developer menu
2. Record a Word macro
3. Add the code to Excel VBA and amend
4. Record macros in Excel if necessary
5. Repeat the previous steps until macro complete

I am not an Excel VBA expert (I’m more of an Excel VBA tinkerer), and I am certainly not a Word VBA expert. The process I am about to show you may not create the most efficient code, but I know this process works, because I have used it myself to automate lots tasks using Microsoft Word.

Enable the Word Developer menu

If you have enabled the Excel Developer menu it is the same process in Word.

In Word: File -> Options -> Customize Ribbon

Then tick the Developer Ribbon option, OK.

Record a Word Macro

The key to the success of this method is taking small sections of code and building up a complex macro bit by bit. Using the Word Macro Recorder is again, similar to the Excel Macro recorder.

Click on: Developer -> Record Macro

For the example in this post, we will create a macro which will open a new Word document, then copy a chart from Excel and paste it into that Word document. We will tackle this one stage at a time. Firstly, lets create the macro to open a new word document.

Click – Developer -> Record Macro. The Record Macro window will open.

Make a note of the “Store macro in” option, as we will need to know where to find the recorded code later. Normal.dotm is fine for now. Click OK – the Macro Recorder is now running.

Open a new Word Document – File -> New -> Blank Document

Stop the Macro from recording – Developer -> Stop Recording

We can now view the code for opening a new Word Document in the Visual Basic Editor. Click: Developer -> Visual Basic.

Find the location of your recorded code in the Visual Basic Editor. In this example: Normal -> Modules -> NewMacros.

Your code should look like the following. It may be slightly different, but not significantly.

Sub Macro1()
'
' Macro1 Macro
'
'
    Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
    Windows("Document1").Activate
    Windows("Document2").Activate
End Sub

Add the code to Excel VBA and amend

Let’s head back to the Excel VBA Editor and use the Early Binding method to control to Microsoft Word. In the Visual Basic Editor click Tools -> References select Microsoft Word x.xx Object Library. Then click OK.

As we are using Early Binding we need to declare the Application as a variable as follows:

Dim WordApp As Word.Application
Set WordApp = New Word.Application

Now copy and paste the code from the Word VBA Editor into the Excel VBA Editor.

The Word VBA code started with Documents.Add, all we have to do is add our application variable to the front of that line of code. Now becomes WordApp.Documents.Add . . .

Often, Selecting and Activating Objects is not required in VBA code, so I have not copied those statements into the code below.

Sub CreateWordDocument()

'Connect using Early Binding.
'Remember to set the reference to the Word Object Library
'In VBE Editor Tools -> References -> Microsoft Word x.xx Object Library
Dim WordApp As Word.Application
Set WordApp = New Word.Application

WordApp.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
WordApp.Visible = True 'New Apps will be hidden by default, so make visible

Set WordApp = Nothing 'release the memory

End Sub

A point to note, when an application is opened with VBA, it is normally opened in the background. To make the Word document visible I have added the following code:

WordApp.Visible = True

Record macros in Excel (if necessary)

If we want to copy Excel content into a Word document, we will need to copy that content using Excel VBA. We can use the Macro Recorder in Excel to obtain the VBA code for copying, then we can use the Word Macro Recorder to obtain the VBA code for pasting.

Macro Recording from Excel – selecting a worksheet and copying chart

Sheets("Sheet1").Select
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Copy

Macro Recording from Word – pasting a chart into a document

Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False

We can add both Macro recordings into our Excel macro. Remember to add WordApp. at the start of each statement of Word VBA code.

Sub CreateWordDocument()

'Connect using Early Binding.
'Remember to set the reference to the Word Object Library
'In VBE Editor Tools -> References -> Microsoft Word x.xx Object Library
Dim WordApp As Word.Application
Set WordApp = New Word.Application

WordApp.Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0
WordApp.Visible = True 'New Apps will be hidden by default, so make visible

'code copied from Excel Macro recorder
Sheets("Sheet1").Select
Selection.ChartObjects("Chart 1").ChartArea.Copy

'code copied from Word Macro recorder with WordApp. added to the front.
WordApp.Selection.PasteSpecial Link:=False, DataType:=wdPasteEnhancedMetafile, _
        Placement:=wdInLine, DisplayAsIcon:=False

Set WordApp = Nothing 'release the memory 

End Sub

This code is not particularly efficient; it contains a few unnecessary sections code. However… it works!

Repeat the previous steps until macro complete

By repeating the same steps above; recording short actions, then transferring the code into Excel, we can slowly build up much more complex Macros. The key is to keep the actions short, if you do too many actions with the Macro Recorder, code starts to look long and scary.

If you’ve you tried to use the Macro Recorder before you will know that this is not as easy as it seems. And this simple tutorial may make you think it is easy, when it’s not. Sometimes, it can be quite frustrating trying to find out where the issues and errors are. The key to success is recording very short actions, such as those below and copying them into the Visual Basic Editor.

'Pressing the Enter Key to move to a new line in Word
WordApp.Selection.TypeParagraph

'Turn on/off Bold Text
WordApp.Selection.Font.Bold = wdToggle

'Change Font Size
WordApp.Selection.Font.Size = 16

'Type some text
WordApp.Selection.TypeText Text:="Here is some text"

You will soon build up a standard library of code that you can use to control Word for most basic tasks.

In recorded VBA code from Word, the word “Selection” in the code often refers to the document itself. It is possible to make the code a little bit more efficient by declaring the document as a variable. If we were opening a specific document, we could include this at the start, just below the declaration of the application.

'Declare a specific document as a variable
Dim WordDocument As Object
Set WordDocument = WordApp.Documents.Open(sourceFileName)

Or, if we created a new document we could include the following below the declaration of the application variable.

'Delcare a new document as a variable
Dim WordDocument As Object
Set WordDocument = WordApp.Documents.Add Template:="Normal", _
NewTemplate:=False, DocumentType:=0

If we have created the document as a variable we can then reference the specific document. This code:

WordApp.Selection.TypeParagraph

Would become this code:

WordDocument.TypeParagraph

Or this code:

WordApp.Selection.TypeText Text:="Here is some text"

Would become this code:

WordDocument.TypeText Text:="Here is some text"

This method is much better, as it doesn’t rely on the Selection of the user being in the right place.

Conclusion

We have seen in this post that it is possible to create complex Macros to automate Word from Excel using VBA. By understanding how to declare variables for the application and documents we can create much more robust macros, even without knowing a lot of VBA code.

Related Posts:

• 5 quick ways to embed a Word document in Excel
• Controlling Powerpoint from Excel using VBA
• Edit links in Word using VBA
• How to link Excel to Word

You need a minimum screen resolution of about 700 pixels width to see our blogs. This is because they contain diagrams and tables which would not be viewable easily on a mobile phone or small laptop. Please use a larger tablet, notebook or desktop computer, or change your screen resolution settings.

This may further explain why the code works some times and not others.

My observation on the situation of the command

'Set wordAppxxxx = CreateObject("Word.Application.xx")'

working or not on your computer is that it is a function of the latest update you get from Microsoft.

Why I believe this:

I have an application that converts a text file to a Word document for backwards compatibility with some legacy apps. The best plan includes using a version of Word similar to the version the legacy apps were designed with/to. As a result, I searched on how to invoke a legacy version of Word as opposed to the default offering on my computer which is Word 2010.

The solution noted in this discussion chain provided the answer to my question. (Thank you Stack Overflow contributors!) I wanted to use Word XP, so I looked at my directories and observed that Word XP (aka Word 2002) is a member of Office 10, so I created the command

'Set wordApp2002 = CreateObject("Word.Application.10")'

and my program launched Word 2002 and the world was a happy place.

Over the weekened, I had an update to my computer. I control the updates via an app which gives me control over when updates occur such that I can observe changes to my configuration. This morning (9/30/13) I turned on a computer that had a Word update. I did not know this until after I had made one run of my app from last week. The app ran fine and invoked Word 2002 as expected.

But then I got the banner page informing me of a Word 2010 update that was installing itself.

Afterwards, I ran the app that worked so well for me last week and once today. Now, after the Word update (immediately after!), the same code now launches Word 2010 despite the fact that the command line invoking Word 2002 has not changed.

This appears strong evidence that a Microsoft update tweaked the settings that previously allowed the VB code to work as expected. This might be a good item to bring to Microsoft’s attention so see if we can get this item stabilized in subsequent update packages to allow consistent behavior in future releases.

I hope this is helpful,

JeffK

To write to a word file using Excel we need to access the word application using Excel VBA. In this tutorial we will learn how to open a word application, add a document and write content to it using Excel.

We have learned about the CreateObject method. In this article, we will use that method to create an object of word application instead of using the reference of it. So let’s get started with the tutorial.

The Process Of Writing To A Word File Using Excel VBA

To write a word file using VBA, we first need to open the Word Application of course. Then add a document to it. Select the paragraph and write the text to it. Each of these steps can be done easily from Excel. You will not need to interact with the Word document.

Let’s get started with an example without getting any further into theory. Because Iron Man said, «Sometimes you gotta run before you can walk».

Example 1: Write a given string to a Word Document from Excel

Sub WriteToWord()

   ''Using Early Binding

    'Dim wordApp As Word.Application

    'Dim mydoc As Word.Document

    'set  wordApp=new word.Application

        

    'Using late binding to create word application object

    

    'Declaring variables as objects

    Dim wordApp As Object

    Dim mydoc As Object

    

    'Initializing the object using CreateOBject Function

    Set wordApp = CreateObject("Word.Application")

    

    'Making word App Visible

    wordApp.Visible = True

   

    'Creating a new document

    Set mydoc = wordApp.Documents.Add()


    

    'Getting input from user

    myString = Application.InputBox("Write Your Text")

    

    'Writing to word

    wordApp.Selection.TypeText Text:=myString

    'inserting a new paragraph

    wordApp.Selection.TypeParagraph


End Sub

Explanation of the Code:

Well I have explained each step in the code itself using comments but let’s have some word about the lines we have used in this sub.

So this VBA code takes input from the user and writes to a new word document. 

The first few lines are commented out. These lines are using Late binding. If you have given reference to the word application you can remove the commenting tag. The code we are processing is using late binding. I have explained it in this article. You can refer to it to understand what is late binding and early binding in Excel VBA.

    ‘Declaring variables as objects

    Dim wordApp As Object

    Dim mydoc As Object

Here we have declared two variables of type Object. The Object type variable can hold any type of object.

    ‘Initializing the object using CreateOBject Function

    Set wordApp = CreateObject(«Word.Application»)

    ‘Making word App Visible

    wordApp.Visible = True

    ‘Creating a new document

    Set mydoc = wordApp.Documents.Add()

In the first line above, we are intentiating the wordApp variable with an object of type Word.App using the CreateObject method. This will open the Word Application.

In the second line we are making the word application visible so that we can work with it.

In the next line, we add a new document to the word application using Word.Documents.Add() function. This is stored in the mydoc variable.

    ‘Getting input from user

    myString = Application.InputBox(«Write Your Text»)

Here we are simply getting input from the user using the InputBox function of Application Class. And we are storing the input in the mystring variable.

    ‘Writing to word

    wordApp.Selection.TypeText Text:=myString

    ‘inserting a new paragraph

    wordApp.Selection.TypeParagraph

Finally, we are using the TypeText method of Word Application.Selection class to write to the document. The last line enters into a new paragraph.

So yeah guys, this is how you can create a new Word document and write to it using Excel VBA. I have not gone into details as it would make the article exhaustingly long. This was only to learn how you can write to a word document through Excel. I hope it helped you understand the process. If you have any questions regarding this article, you can contact me through the comments section below.

Related Articles:

Getting Started With Excel VBA UserForms| I will explain how to create a form in excel, how to use VBA toolbox, how to handle user inputs and finally how to store the user inputs. We will go through these topics using one example and step by step guide.

VBA variables in Excel| VBA stands for Visual Basic for Applications. It is a programming language from Microsoft. It is used with Microsoft Office applications such as MSExcel, MS-Word and MS-Access whereas VBA variables are specific keywords.

Excel VBA Variable Scope| In all the programming languages, we have variable access specifiers that define from where a defined variable can be accessed. Excel VBA is no Exception. VBA too has scope specifiers.

ByRef and ByVal Arguments | When an argument is passed as a ByRef argument to a different sub or function, the reference of the actual variable is sent. Any changes made into the copy of the variable, will reflect in the original argument.

Delete sheets without confirmation prompts using VBA in Microsoft Excel | Since you are deleting sheets using VBA, you know what you are doing. You would like to tell Excel not to show this warning and delete the damn sheet.

Add And Save New Workbook Using VBA In Microsoft Excel 2016| In this code, we first created a reference to a workbook object. And then we initialized it with a new workbook object. The benefit of this approach is that you can do operations on this new workbook easily. Like saving, closing, deleting, etc

Display A Message On The Excel VBA Status Bar| The status bar in excel can be used as a code monitor. When your VBA code is lengthy and you do several tasks using VBA, you often disable the screen update so that you don’t see that screen flickering.

Turn Off Warning Messages Using VBA In Microsoft Excel 2016| This code not only disables VBA alerts but also increases the time efficiency of the code. Let’s see how.

Popular Articles:

50 Excel Shortcuts to Increase Your Productivity | Get faster at your task. These 50 shortcuts will make you work even faster on Excel.

The VLOOKUP Function in Excel | This is one of the most used and popular functions of excel that is used to lookup value from different ranges and sheets. 

COUNTIF in Excel 2016 | Count values with conditions using this amazing function. You don’t need to filter your data to count specific values. Countif function is essential to prepare your dashboard.

How to Use SUMIF Function in Excel | This is another dashboard essential function. This helps you sum up values on specific conditions.

Add a word document

   <source lang="vb">

Sub wordDoc()

   Dim WordApp As Object
   Set WordApp = CreateObject("Word.Application")
   With WordApp
       .Documents.Add
   End With

End Sub

</source>
   
  

Close a document

   <source lang="vb">

Sub exitFor()

   Dim Doc As Document
   For Each Doc In Documents
       If Doc.Name = "Document1" Then Exit For
       Doc.Close
   Next Doc

End Sub

</source>
   
  

Generating Word ata from an Excel VBA program

   <source lang="vb">

Sub MakeMemos()

   Dim WordApp As Object
   Set WordApp = CreateObject("Word.Application")
   
   For i = 1 To 3
       Application.StatusBar = "Processing Record " & i
       SaveAsName = ThisWorkbook.Path & "test.doc"
       With WordApp
           .Documents.Add
           With .Selection
               .Font.Size = 14
               .Font.Bold = True
               .ParagraphFormat.Alignment = 1
               .TypeText Text:="M E M O R A N D U M"
               .TypeParagraph
               .TypeParagraph
               .Font.Size = 12
               .ParagraphFormat.Alignment = 0
               .Font.Bold = False
               .TypeText Text:="Date:" & vbTab & Format(Date, "mmmm d, yyyy")
               .TypeParagraph
               .TypeText Text:="To:" & vbTab & " Manager"
               .TypeParagraph
               .TypeText Text:="From:" & vbTab & _
                  Application.userName
               .TypeParagraph
               .TypeParagraph
               .TypeText "text"
               .TypeParagraph
               .TypeParagraph
               .TypeText Text:="Units Sold:" & vbTab & "asdf"
               .TypeParagraph
               .TypeText Text:="Amount:" & vbTab & Format(1000, "$#,##0")
           End With
               .ActiveDocument.SaveAs FileName:=SaveAsName
               .ActiveWindow.Close
       End With
   Next i
   WordApp.Quit
   Set WordApp = Nothing
   Application.StatusBar = ""
   MsgBox " memos were created and saved in " & ThisWorkbook.Path

End Sub

</source>
   
  

Load contact table from Access and create letter in Word

   <source lang="vb">

Sub ControlWord()

   Dim objWord As New Word.Application
   Dim rsContacts As New ADODB.Recordset
   Dim strLtrContent As String
   rsContacts.ActiveConnection = CurrentProject.Connection
   rsContacts.Open "tblContacts"
   
   objWord.Documents.Add
   
   Do While Not rsContacts.EOF
     strLtrContent = rsContacts("FirstName") & " " & rsContacts("LastName")
     strLtrContent = strLtrContent & rsContacts("Address") & vbCrLf
     strLtrContent = strLtrContent & rsContacts("City") & ", " & rsContacts("Region")
     strLtrContent = strLtrContent & "  " & rsContacts("PostalCode") 
     strLtrContent = strLtrContent & "Dear " & rsContacts("FirstName") & " "
     strLtrContent = strLtrContent & rsContacts("LastName") & ":" 
   
       objWord.Selection.EndOf
       objWord.Selection.Text = strLtrContent
   
       objWord.Selection.EndOf
       objWord.Selection.InsertBreak
       
       rsContacts.MoveNext
   Loop
   objWord.Visible = True
   objWord.PrintPreview = True

End Sub

</source>
   
  

Open an Existing Document

   <source lang="vb">

Sub Main()

   Dim wdApp As Word.Application
   
   Set wdApp = GetObject(, "Word.Application")
   wdApp.Documents.Open Filename:="C:Arrays.docx", ReadOnly:=True, AddtoRecentFiles:=False

End Sub

</source>
   
  

Save a document

   <source lang="vb">

Sub WordLateBound()

   Dim objWord As Object 
   Dim objDoc As Object 
   Set objWord = CreateObject("Word.Application") 
   Set objDoc = objWord.Documents.Add 
   objDoc.SaveAs "C:testdoc2.doc" 
   objDoc.Close 
   Set objDoc = Nothing 
   Set objWord = Nothing 

End Sub

</source>
   
  

Save Changes to a Document

   <source lang="vb">

Sub main()

   Dim wdApp As Word.Application
   
   Set wdApp = GetObject(, "Word.Application")
   wdApp.Documents.Save

End Sub

</source>
   
  

To close a specific document, you can close the active document or you can specify a document name:

   <source lang="vb">

Sub main()

   Dim wdApp As Word.Application
   Set wdApp = GetObject(, "Word.Application")
   wdApp.ActiveDocument.Close
   "or
   wdApp.Documents("Arrays.docx").Close

End Sub

</source>
   
  

To create a new document that uses a specific template, use this:

   <source lang="vb">

Sub add()

   Dim wdApp As Word.Application
   
   Set wdApp = GetObject(, "Word.Application")
   wdApp.Documents.Add Template:="Contemporary Memo.dot"

End Sub

</source>
   
  

To save a document with a new name, use the SaveAs method

   <source lang="vb">

Sub Main()

   Dim wdApp As Word.Application
   Set wdApp = GetObject(, "Word.Application")
   wdApp.ActiveDocument.SaveAs "C:MemoTest.docx"

End Sub

</source>

• 

We can Interacting with Other Applications using VBA- with the MS Office Applications like Word, PowerPoint,Outlook,etc… and other applications like Internet Explorer, SAS,etc.

In this Section:

• Introduction?
• How to interact with MS Word? – Late Binding
• How to interact with MS Word? – Early Binding
• How to interact with PowerPoint? – Early Binding
• How to interact with Outlook? – Late Binding
• Example File

Interacting with Other Applications using VBA – An Introduction:

Yes, we can interact with the other Applications using VBA,i.e; with the MS Office Applications like Word, PowerPoint,Outlook,etc… and other applications like Internet Explorer, SAS,etc…
to do this first we need to establish a connection with those applications, then we can able to access objects of the other applications from VBA.

There are two ways to establish the Connection:Late binding and Early binding. In late binding, we will create an Object in run time it will assign the necessary object. In early binding, we have to refer the necessary object before we use it.

If you want to automate Other Microsoft Applications: You would declare the following variables at the top of your procedure, you need to declare some object variables specific to the application being automated.

(In early binding, first we need to set a reference to the Other application’s object library. In the Visual Basic Editor (VBE) => Select References… from the Tools menu => Select Other application’s object library)

Late Binding

Dim otherApp As Object
Dim otherDoc As Object
Dim otherSpecificObjects As Object

'To open a new instance of Other:
Set otherApp = CreateObject("Other.Application")

'Or to use an existing instance of Other:
Set otherApp = GetObject(, "Other.Application")


Early binding – wee need to add the reference for required object.

Dim otherApp As Other.Application
Dim otherDoc As Other.DocType
Dim otherSpecificObjects As Other.SpecificObjects

'To open a new instance of Other:
Set otherApp = CreateObject("Other.Application")

'Or to use an existing instance of Other:
Set otherApp = GetObject(, "Other.Application")


For example if you want to interact with MS Word Application, you have to write the code as follows:

Dim wordApp As Word.Application
Dim wordDoc As Word.Document

' Reference existing instance of Word
    Set wordApp = GetObject(, "Word.Application")
' Reference active document
    Set wordDoc = wordApp .ActiveDocument   

How to interact with MS Word? (Early Binding)

The following example will show you how to interact with MS word Application from Excel VBA, it will create a new word document and add some text to the newly created document.

*Create a new module and Add the reference to Microsoft Word Object Library and then Paste the following code into the module and run (Press F5) it to test it.

Sub sbWord_CreatingAndFormatingWordDoc()

Dim oWApp As Word.Application
Dim oWDoc As Word.Document
Dim sText As String
Dim iCntr As Long
'
Set oWApp = New Word.Application
Set oWDoc = oWApp.Documents.Add() '("C:DocumentsDoc1.dot") 'You can specify your template here
'
'Adding new Paragraph
'
Dim para As Paragraph
Set para = oWDoc.Paragraphs.Add
'
para.Range.Text = "Paragraph 1 - My Heading: ANALYSISTABS.COM"
para.Format.Alignment = wdAlignParagraphCenter
para.Range.Font.Size = 18
para.Range.Font.Name = "Cambria"
'
For i = 0 To 2
Set para = oWDoc.Paragraphs.Add
para.Space2
Next
'
Set para = oWDoc.Paragraphs.Add
With para
.Range.Text = "Paragraph 2 - Example Paragraph, you can format it as per yor requirement"
.Alignment = wdAlignParagraphLeft
.Format.Space15
.Range.Font.Size = 14
.Range.Font.Bold = True
End With
'
oWDoc.Paragraphs.Add
'
Set para = oWDoc.Paragraphs.Add
With para
.Range.Text = "Paragraph 3 - Another Paragraph, you can create number of paragraphs like this and format it"
.Alignment = wdAlignParagraphLeft
.Format.Space15
.Range.Font.Size = 12
.Range.Font.Bold = False
End With
'
oWApp.Visible = True
End Sub

How to interact with MS Word? (Late Binding)

The following example will show you how to interact with MS word Application from Excel VBA, it will create a new word document and add some text to the newly created document.

Sub sbWord_CreatingAndFormatingWordDocLateBinding()

Dim oWApp As Object
Dim oWDoc As Object
Dim sText As String
Dim iCntr As Long
'
Set oWApp = New Word.Application
Set oWDoc = oWApp.Documents.Add() '("C:DocumentsDoc1.dot") 'You can specify your template here
'
'Adding new Paragraph
'
Dim para As Paragraph
Set para = oWDoc.Paragraphs.Add
'
para.Range.Text = "Paragraph 1 - My Heading: ANALYSISTABS.COM"
para.Format.Alignment = wdAlignParagraphCenter
para.Range.Font.Size = 18
para.Range.Font.Name = "Cambria"
'
For i = 0 To 2
Set para = oWDoc.Paragraphs.Add
para.Space2
Next
'
Set para = oWDoc.Paragraphs.Add
With para
.Range.Text = "Paragraph 2 - Example Paragraph, you can format it as per yor requirement"
.Alignment = wdAlignParagraphLeft
.Format.Space15
.Range.Font.Size = 14
.Range.Font.Bold = True
End With
'
oWDoc.Paragraphs.Add
'
Set para = oWDoc.Paragraphs.Add
With para
.Range.Text = "Paragraph 3 - Another Paragraph, you can create number of paragraphs like this and format it"
.Alignment = wdAlignParagraphLeft
.Format.Space15
.Range.Font.Size = 12
.Range.Font.Bold = False
End With
'
oWApp.Visible = True
End Sub

How to interact with MS PowerPoint?

'Add Microsoft PowerPoint Object Library
Sub sbPowePoint_SendDataFromExcelToPPT()

'Declarations
Dim oPPT As PowerPoint.Application
Dim oPPres As PowerPoint.Presentation
Dim oPSlide As PowerPoint.Slide
Dim sText As String


'Open PowerPoint
Set oPPT = New PowerPoint.Application
Set oPPres = oPPT.Presentations.Add
oPPT.Visible = True


'Add a Slide
Set oPSlide = oPPres.Slides.Add(1, ppLayoutTitleOnly)
oPSlide.Select

'Copy a range as a picture and align it
ActiveSheet.Range("A3:E10").CopyPicture Appearance:=xlScreen, Format:=xlPicture
oPSlide.Shapes.Paste


oPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
oPPT.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True


'Add the title text
sText = "My Header - ANALYSISTABS.COM Example"
oPSlide.Shapes.Title.TextFrame.TextRange.Text = sText


oPPT.Activate


'Release Objects
Set oPSlide = Nothing
Set oPPres = Nothing
Set oPPT = Nothing
'
End Sub

How to interact with MS Outlook?

'Late Binding
Sub sbOutlook_SendAMail()
'Declaration
Dim oOApp As Object
Dim oMail As Object
'
Set oOApp = CreateObject("Outlook.Application")
Set oMail = oOApp.CreateItem(0)
'
On Error Resume Next
' Change the mail address and subject in the macro before you run it.
With oMail
.To = "userid@organization.com"
.CC = ""
.BCC = ""
.Subject = "Write Your Subject Here - Example mail - ANALYSISTABS.COM"
.Body = "Hi, This is example Body Text."
'
'.Attachments.Add ("C:TempExampleFile.xls") '=> To add any Attcahment
.Display '=> It will display the message
'.Send '=> It will send the mail
End With
On Error GoTo 0
'
Set oMail = Nothing
Set oOApp = Nothing
End Sub

Example File

You can download the example file here and explore it.

ANALYSIS TABS – Interacting With Other Applications

Effortlessly Manage Your Projects and Resources

120+ Professional Project Management Templates!

A Powerful & Multi-purpose Templates for project management. Now seamlessly manage your projects, tasks, meetings, presentations, teams, customers, stakeholders and time. This page describes all the amazing new features and options that come with our premium templates.

Save Up to 85% LIMITED TIME OFFER

All-in-One Pack
120+ Project Management Templates

Essential Pack
50+ Project Management Templates

Excel Pack
50+ Excel PM Templates

PowerPoint Pack
50+ Excel PM Templates

MS Word Pack
25+ Word PM Templates

Ultimate Project Management Template

Ultimate Resource Management Template

Project Portfolio Management Templates

Related Posts

• • Interacting with Other Applications using VBA – An Introduction:
  • How to interact with MS Word? (Early Binding)
    • *Create a new module and Add the reference to Microsoft Word Object Library and then Paste the following code into the module and run (Press F5) it to test it.
  • How to interact with MS Word? (Late Binding)
  • How to interact with MS PowerPoint?
  • How to interact with MS Outlook?
  • Example File
    • You can download the example file here and explore it.
    • ANALYSIS TABS – Interacting With Other Applications

VBA Reference

Effortlessly
Manage Your Projects

120+ Project Management Templates

Seamlessly manage your projects with our powerful & multi-purpose templates for project management.

120+ PM Templates Includes:

4 Comments

1. Jasham
   July 10, 2015 at 3:52 AM — Reply

   Is there is a way to automate some other applications through Excel VBA like “Remote Desktop Connection” where we can automate the application which is present in some other system.

   For Example:-

   Machine X is my system & I want to open Google from the Y Machine.

   So is there is a way to automate the process.
   (Opening the Remote Desktop Connection application-> Then open Google from Y Machine.)

2. Yaman
   January 23, 2017 at 7:42 PM — Reply

   Easier method :
   Use Selenium. Set port (ip if not on same LAN). Use the port in the remote PC with (–remote debugging) to open Chrome.

   Now your VBA will run on PC X and Chrome will run on PC Y.

   This assumes you can Open chrome on remote PC. If not simply use a runas command to get that done.

   Google SeleniumVBA for details.

3. Rondiman
   February 21, 2017 at 11:21 PM — Reply

   Excelent!

   Could make a post about interaction with .pdf? that would be outstanding!

4. Pandiarajan g
   April 6, 2017 at 12:50 PM — Reply

   I tried to execute the above query and i get this message “User-defined type not defined”…. Please guide me….