rohan4069
10-25-2012, 06:21 AM
Hi all
The company i work for in that we send letters to clients. I have created a userform which take cares of all the line feeds, font size, alignment etc. The first 2 lines of the letter are left blank and the font size should be 14. I am able to do it with the following code:
Sub LineFont()
Dim rng As Range
Set rng = ActiveDocument.Range
Application.ScreenUpdating = False
rng.Start = ActiveDocument.Paragraphs(1).Range.Start
rng.End = ActiveDocument.Paragraphs(2).Range.End
rng.Font.Size = 14
Application.ScreenUpdating = True
End Sub
The problem occurs if it is a joint a/c and a letter should be sent to both the a/c holders. I am not able to change the font size for the second holder.
Any suggestions?
Thanks in advance
The company i work for in that we send letters to clients. I have created a userform which take cares of all the line feeds, font size, alignment etc. The first 2 lines of the letter are left blank and the font size should be 14. I am able to do it with the following code:
Sub LineFont()
Dim rng As Range
Set rng = ActiveDocument.Range
Application.ScreenUpdating = False
rng.Start = ActiveDocument.Paragraphs(1).Range.Start
rng.End = ActiveDocument.Paragraphs(2).Range.End
rng.Font.Size = 14
Application.ScreenUpdating = True
End Sub
The problem occurs if it is a joint a/c and a letter should be sent to both the a/c holders. I am not able to change the font size for the second holder.
Any suggestions?
Thanks in advance