Not just MailMerge anymore

Labels: Addin, Macros, Merge, Tips, VBA

Import it all

"This macro outline allows the user to use Word's "Send To PowerPoint" feature, then run this macro to get notes from MS Word to PowerPoint as notes. The macro allows you to set the text level you want to become the notes.

Labels: Macros, Tips

All files in a folder

• The folder name for the listed files
  
• The file names of the files found
  
• The file sizes of the files found
  
• The dates and times of the files found
  
• The total number of files listed

Macro to List All Files in a Folder

See all Topics word

Labels: Macros

Security levels

High:

A computer user can open without a prompt a digitally signed project from a trusted publisher. Otherwise, the application blocks opening signed projects from untrusted publishers as well as unsigned projects.

Medium:

A computer user can open without a prompt a digitally signed project from a trusted publisher. In addition, you can also designate the publisher of a signed project as trusted so their projects will open without a prompt in the future. Unsigned projects are always prompted with a reminder that the file may contain potentially harmful code, but users can elect to open them anyway.

Low:

A computer user can open an unsigned project without a prompt. When users make a Low security setting, they're reminded that they aren't protected from potentially unsafe macros.

"If you've used Access 2003, you've probably seen several security warning messages - Access 2003 cares about your security. An important part of Access 2003 security is digitally signing your code. As Rick Dobson shows, you can do it, but preparing for digital signing is critical.

A digital signature acts like shrink-wrap on your project: Clients know that they're getting a copy directly from you that no one else modified. Clients will also know that they're working with "your" code and not any version of it modified by a third party. As computing moves forward into a "security conscious" era, learning how to acquire and use a digital certificate is also important for interfacing with organizations that adopt policies of only running digitally signed Access 2003 projects: Your users may refuse to accept software from you that isn't shrink-wrapped."

Also:
Signing Access 2003 Projects

Other links:

How to make sure that your Office document has a valid digital signature in 2007 Office products and in Office 2003

Also:
HAL-PC MS Office & Excel SIG in Houston, Texas:
Digital Certificates and Trusted Sources for running Excel Macros under High Macro Security



See all Topics
word

Labels: Macros, VBA

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