Macro to insert text in word document code#

The solution to the header/footer textbox and shape problem is found in the fact that textboxes and shapes are contained in the documentвЂ™s ShapeRange collection.

Macro to insert text in word document code#

Like the menu Find and Replace utility in earlier Word versions, this code will miss and fail to process textboxes and shapes anchored to a header/footer StoryRange. There is one remaining shortcoming with the intermediate code above. This has proven to eliminate the problem VBA has of 'jumping' empty unlinked header/footers and continuing to process sequent headers and footers. The VBA 'Trickery' mentioned above simply returns the value of the Section One Primary Header StoryType. 'Iterate through all story types in the current document. LngValidate = ActiveDocument.Sections(1).Headers(1).Range.StoryType 'Fix the skipped blank Header/Footer problem as provided by Peter Hewett. Employ a bit of VBA 'trickery' (as provided by Peter Hewett to bridge) any empty unlinked headers and footers.To make sure that the code acts on every StoryRange in each each StoryType, you need to: The basic code only process the first StoryRange in those StoryTypes. Each of those multiple elements is a StoryRange in the StoryType. For example, a document may contain multiple text boxes, or multiple sections with un-linked headers or footers. While a document only has one wdMainTextStory StoryRange, it can have one or more StoryRanges in several of the other StoryTypes. It only acts on the 'first' StoryRange of each of the (eleven-seventeen) StoryTypes. This is not necessary when using Range.Find, because the parameters are their default value if you don't specify a value in your code. Forward = True, because the values are otherwise taken from the Find and Replace dialog's current settings, which are вЂњsticky. The seventeen possible storytypes in a Word 2016 document is shown below.ДЇor Each rngStory In ActiveDocument.StoryRangesД«onus Tip: If you are not aware, when use the Selection.Find method, you should specify all of the Find and Replace parameters, such as. Not all storyranges are used in every document. There are eleven to seventeen wdStoryType constants that can form the StoryRanges (or parts) of a document. For example, text in a textbox located in a header or footer is outside the scope of the Find and Replace utility search range. In Word 2007 or earlier even the built-in Find & Replace utility has a shortcoming. This means that if the insertion point is located in the main body of the document when your macro is executed it will have no effect on text that is in the headers or footers of the document, for example, or in a textbox, footnotes, or any other area that is outside the main body of the document. If you record that action however, the scope or 'range' of the resulting recorded macro will only act on the text contained in the body of the document (or more accurately, it will only act on the part of the document that contains the insertion point). Using the Find or Replace utility on the Edit menu you can find or replace text 'almost' anywhere it appears in the document. Acknowledgments to Doug Robbins, Peter Hewett and Jonathan West for their contributions to that article. This content is a modified version of my article on the same topic previously published at the Word MVP FAQ website. The purpose of this Microsoft Word Tips & Microsoft Word Help page is discuss and provide a VBA solution to find and replace text wherever it may appear in a document.