Pre-defined locations

This macro, for instance, changes the text in just the header of the first section:

Sub HeaderFooterObject()
  Dim MyText As String
  MyHeaderText = "This would be your text"
  With ActiveDocument.Sections(1)
   .Headers(wdHeaderFooterPrimary).Range.Text = MyHeaderText
  End With
End Sub

When you use Edit>Replace in Word, it does a fine job of locating all occurrences of the target in the body of the document or in the header or footer.

Something fails, however, when you record the action and try to run it as a macro. To make it work, you must loop through the built in ranges of a Word document.

The exercise is interesting if only for the exposure to the built in ranges such as:

• wdCommentsStory
  
• wdEndnotesStory
  
• wdEvenPagesFooterStory
  
• wdEvenPagesHeaderStory
  
• wdFirstPageFooterStory
  
• wdFirstPageHeaderStory
  
• wdFootnotesStory
  
• wdMainTextStory
  
• wdPrimaryFooterStory
  
• wdPrimaryHeaderStory
  
  and
  
• wdTextFrameStory.

See this article for more information:

Word.MVPS.org:
Find and replace with VBA

Also:

Microsoft KB
VBA macro examples to insert text into a document



See all Topics
word

Labels: Macros, Tips, Tutorials, VBA

Pesky lists

Sub NoAutoNum()
 ActiveDocument.ConvertNumbersToText
End Sub

You can now do such things as individually format numbers and bullets.

The action is not reversible, so either use Undo right away, or use it on a copy of the original.

ConvertNumbersToText

Also see
JWOlsen.com



See all Topics
word

Labels: Lists, Macros

Edit toolbar

You'll many times want to change blocks of code to comments in VBA modules; temporarily convert a block of VBA code to comments so that it's ignored during a trial run. Inserting an apostrophe before each line of code is a bother. Office 2000+ simplifies this task by letting you convert a block of code to comments with a click of a button.

Open any module in the Visual Basic Editor (VBE), and then choose View>Toolbars and choose Edit from the menu bar to display the Edit toolbar.

Select the lines of code that you want to turn into comments. Then, click the Comment Block button on the Edit toolbar (it's the sixth button in from the RIGHT end of the toolbar).
Each line of the selected code is now preceded with an apostrophe.

To convert the comments back to executable code, select the appropriate lines and click the Uncomment Block button, which is immediately to the right of the Comment Block button.
This, of course, works in any application that uses the VBE.

Ross, suggested that two or three apostrophes (sometimes called inverted commas) be placed around existing comments. When the Comment Block is used, the original comments will not be removed.



See all Topics
word

Labels: Macros, VBA

Find lists

Sub FindBullet()
Dim rngTarget As Word.Range
Dim oPara As Word.Paragraph

Set rngTarget = Selection.Range
With rngTarget
Call .Collapse(wdCollapseEnd)
.End = ActiveDocument.Range.End

For Each oPara In .Paragraphs
If oPara.Range.ListFormat.ListType = _
WdListType.wdListBullet Then
oPara.Range.Select
Exit For
End If
Next
End With
End Sub

wdListListNumOnly

ListNum fields that can be used in the body of a paragraph.

wdListMixedNumbering

Mixed numeric list.

wdListNoNumbering

List with no bullets, numbering, or outlining.

wdListOutlineNumbering

Outlined list.

wdListPictureBullet

Picture bulleted list.

wdListSimpleNumbering

Simple numeric list.

Labels: Macros