I have the following which works well and I would like to add new "With objApp" based on certain condition(s).
How I could add new "With objApp" after the closing of the first one "End with".
Thanks.
[vba]Option Explicit
Private Sub Form_Load()
Dim objApp As Word.Application
Dim strToday
Dim strCustomer
Dim strReference
Dim variable1
Set objApp = New Word.Application
strToday = Date
strCustomer = "Killian"
strReference = "Order notice"
variable1 = "blah blah"
Clipboard.Clear
Clipboard.SetData Picture1.Image, vbCFBitmap
With objApp
.Documents.Add , , , True
.Visible = False
.Selection.Paste
.Selection.TypeText Text:=Chr(3)
.Selection.TypeText Text:=strToday & vbCrLf
.Selection.TypeText Text:=strCustomer & vbCrLf
.Selection.TypeText Text:=strReference & vbCrLf
.Selection.TypeText Text:="variable1" & vbCrLf
With .ActiveDocument.Paragraphs(1)
.Range.Font.Size = 12
.Range.Font.Bold = True
.Alignment = wdAlignParagraphLeft
End With
With .ActiveDocument.Paragraphs(2)
.Range.Font.Size = 12
.Range.Font.Bold = True
.Alignment = wdAlignParagraphRight
End With
With .ActiveDocument.Paragraphs(3)
.Range.Font.Size = 12
.Range.Font.Bold = False
.Alignment = wdAlignParagraphLeft
End With
With .ActiveDocument.Paragraphs(4)
.Range.Font.Size = 14
.Range.Font.Bold = True
.Alignment = wdAlignParagraphCenter
End With
With .ActiveDocument.Paragraphs(5)
.Range.Font.Size = 12
.Range.Font.Bold = False
.Alignment = wdAlignParagraphRight
End With
End With
If condition1 is True then
With objApp
......................
End With
End if
If condition2 is True then
With objApp
......................
End With
End if
objApp.ActiveDocument.SaveAs FileName:="c:\test\doc1.doc"
Set objApp = Nothing
End Sub[/vba]