After copying the text it goes to the last filled content in the output doc and then paste the content after that. It is to find all the searched results in iterative manner. Here it is used to find all the words which are formatted as 'Heading 1' style. Many of us enable this functionality by hitting CTRL + F shortcut key. This part of the VBA code refers to Find feature in MS Word. User need to mention the word or style he/she wants MS Word to look for.ĥ. Here we are adding a new word document in which we want to copy the content.Ĥ. In this section of code we are opening the input word document.ģ. This is a useful technique in terms of error handling in the code as sometimes code may crash because of multiple word documents being opened at the same time.Ģ. It is to avoid conflict interacting Excel with Word. First we are closing word documents if any of them is already opened. In this section we broken down the code into multiple snippets to make you understand how it works.ġ.
' Loop through multiple find content (Find All functionality) ' Check if result contains non-blank text 'Defines selection for Word's find function Set wrdDoc = (myPath & "PD Calibration.docx") Set wrdApp = CreateObject("Word.Application") Set objWord = GetObject(, "Word.Application") You need to make changes in the lines of code highlighted in red. The program below copies each text which is formatted in Heading 1 style and paste to a new word document.
0 kommentar(er)
