Fonts in 'Word 2002 macros.

  poodz 18:55 14 Apr 06
Locked

Redoing my letter page macro which I have had no previous problems with I now find the macro will not record a font size or type change.

For example the headings need to be in 14 point and the body text in 12 point.

After many attempts with different fonts and sizes the Macro always produces everything in the last font and size used

Thanks to any helpers Poddy

  VoG II 19:12 14 Apr 06

Can you paste the macro here please.

Press ALT+F11 to open the Visual Basic Editor, click the + next to Normal, double click Modules, find the macro you have recorded.

  VoG II 17:15 15 Apr 06

Via e-mail

Could'nt paste in your message or find the + in visual basic. Below is a copy of the VB edit screen I redid today it does not record an initial text change to 14point or a change back to 12point after the phone number Your help is much appreciated.

============================

OK here you go - I've added the commands to change the Font size (and disguised your personal details).

Sub Macro2()
' Macro recorded 15 April 2006 by grev '
Selection.Font.Size = 14
Selection.TypeText Text:="Address1"
Selection.TypeParagraph
Selection.TypeText Text:="Address2"
Selection.TypeParagraph
Selection.TypeText Text:="Address3"
Selection.TypeParagraph
Selection.TypeText Text:="Postcode"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Phone"
Selection.Font.Size = 12
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:="Dear Sirs,"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & vbTab & vbTab & "Yours sincerely,"
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeParagraph
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab & _
vbTab & vbTab & vbTab & vbTab & "G Podmore"
End Sub

This thread is now locked and can not be replied to.

How to get Windows 10 for free | How to install Windows 10: There is still a way to avoid paying…

1995-2015: How technology has changed the world in 20 years

Alex Chinneck’s giant ice cube Christmas tree at Kings Cross

Apple rumours & predictions 2017: The iPhone 8, new iPads, and everything else you should expect fr7…