Insert Date make Bold Macro

I don't know how to write macros but I do know how to record them and make
icons for them that I put on the toolbar. Or I did back before Word 2007.

The goal is to have an icon always accessable on the toolbar, not in a
contextual menu, where I can select a macro that inserts the date in a
particular format and makes it bold and sets spacing following it. I had
this in Word 2003.

When I try to use the record macro function to do the above operations I am
stuck because while the macro recorder is running, after I have inserted the
date in a selected format, I am not able to highlight the date text and make
it bold. The little recorder icon hovers near the text but I can't select
the text.

What should i do?

\walter

Reitanos
Fri May 09 11:16:06 PDT 2008

You could either make it bold before inserting the date or use the
arrow keys + [Shift] to make the selection.

Also, there is a toolbar that you can customize at the top of the
window where you could add a custom button.

On May 9, 2:07 pm, "Walter_Slipperman" <Walt...@nospam.com> wrote:
> I don't know how to write macros but I do know how to record them and make
> icons for them that I put on the toolbar. Or I did back before Word 2007.
>
> The goal is to have an icon always accessable on the toolbar, not in a
> contextual menu, where I can select a macro that inserts the date in a
> particular format and makes it bold and sets spacing following it. I had
> this in Word 2003.
>
> When I try to use the record macro function to do the above operations I am
> stuck because while the macro recorder is running, after I have inserted the
> date in a selected format, I am not able to highlight the date text and make
> it bold. The little recorder icon hovers near the text but I can't select
> the text.
>
> What should i do?
>
> \walter

Herb
Fri May 09 11:24:35 PDT 2008

Use the keyboard rather than the mouse for the finishing touches. To select
the inserted date, try Ctrl+Shit+Left arrow (if it's a date field, it'll
take just on push of the left key, otherwise it might take several depending
on the date format), press Ctrl+B, then use the right arrow to return the
insertion point to the end of the inserted date, then turn the recorder off.

In fact, I do the entire thing with the keyboard (Alt+Shift+D to insert the
date field). The macro I get is:

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1


--
Herb Tyson MS MVP
Author of the Word 2007 Bible
Blog: http://word2007bible.herbtyson.com
Web: http://www.herbtyson.com


"Walter_Slipperman" <WalterS@nospam.com> wrote in message
news:eh1ha%23fsIHA.5832@TK2MSFTNGP02.phx.gbl...
>I don't know how to write macros but I do know how to record them and make
>icons for them that I put on the toolbar. Or I did back before Word 2007.
>
> The goal is to have an icon always accessable on the toolbar, not in a
> contextual menu, where I can select a macro that inserts the date in a
> particular format and makes it bold and sets spacing following it. I had
> this in Word 2003.
>
> When I try to use the record macro function to do the above operations I
> am stuck because while the macro recorder is running, after I have
> inserted the date in a selected format, I am not able to highlight the
> date text and make it bold. The little recorder icon hovers near the text
> but I can't select the text.
>
> What should i do?
>
> \walter

Walter_Slipperman
Fri May 09 12:44:22 PDT 2008

Okay. thanks guys. I've got it working:

Sub bold_date()
'
' bold_date Macro
'
'
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Font.Bold = wdToggle
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeParagraph
Selection.Font.Bold = wdToggle
End Sub

Now how to do I put it in the small toolbar at the top. In the past I would
make my own icon for it and drag it to the toolbar.

\Walter

Graham
Fri May 09 22:33:12 PDT 2008

Are you sure a date field is what you want here? A date field will update
each time you open the document. A CreateDate field would probably be more
useful - or as you are using vba, simply insert the date as text eg

Sub InsertUSFormatDate()
With Selection
.Font.Bold = True
.InsertDateTime DateTimeFormat:="MMMM" & Chr(160) & _
"d," & Chr(160) & "yyyy", InsertAsField:=False
.Font.Bold = False
.TypeParagraph
End With
End Sub

To add a macro to the QAT (Quick Access Toolbar), see
http://www.gmayor.com/installing_macro.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>


Walter_Slipperman wrote:
> Okay. thanks guys. I've got it working:
>
> Sub bold_date()
> '
> ' bold_date Macro
> '
> '
> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldDate
> Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
> Selection.Font.Bold = wdToggle
> Selection.MoveRight Unit:=wdCharacter, Count:=1
> Selection.TypeParagraph
> Selection.Font.Bold = wdToggle
> End Sub
>
> Now how to do I put it in the small toolbar at the top. In the past
> I would make my own icon for it and drag it to the toolbar.
>
> \Walter