Help with VBA

[Zack]

[VBA]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With

Dim oSec As Section
Dim sPrintCode As String


For Each oSec In ActiveDocument.Sections
sPrintCode = sPrintCode & oSec.Range.Information(wdActiveEndPageNumber) & ","
Next


sPrintCode = Left(sPrintCode, Len(sPrintCode) - 1)


ActivePrinter = "Jingo2"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=sPrintCode, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0



End Sub[/VBA]

What it does basically is that it creates a new section in the document and adds zen.doc to the first page of the 2'nd section.

Now the trick is, how to implement something in this code in order to change the font, alignment, etc of the 2'nd section before the printing occurs, but without affecting the 1'st section and the content of it?

For example: default font and size is Arial 10 on both the main document and zen.doc. I need this code to run and change font to Arial 20 and only for the zen. doc, before the print. How to make changes that will affect everything on the section 2, but Nothing on the section 1 and to implement it within this code?

Thank you.

[fumei]

Learn to use Styles properly. If you have a style - say Section2Style

[vba]ActiveDocument.Sections2).Range.Style="Section2Style"[/vba]

Done.

If you only have two Sections, why are you using For Each????

Why use a For Each (even if you have 1,000 Sections) at all???

[Zack]

I understand.
Thank you fumei.

How to implement changing font of the section2 Before the printing.

Where would I implement this code of yours in my code above to achieve that.

[fumei]

[vba]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With
ActiveDocument.Sections2).Range.Style="Section2Style" [/vba]I am not sure what you are trying to do with the Print code.

[Zack]

[vba]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With
ActiveDocument.Sections2).Range.Style="Section2Style" [/vba]

That's it. It will basically print section 2 free of section's 1 format.

Thx

[fumei]

Only if it HAS a different format. Using a SAtyle will do that.

[Zack]

[vba]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With
ActiveDocument.Sections2).Range.Style="Section2Style" [/vba]

Doesn't work / Compile error, Syntax error

[Zack]

[VBA]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

ActiveDocument.Sections2).Range.Style="Section2Style"

End With

Dim oSec As Section
Dim sPrintCode As String


For Each oSec In ActiveDocument.Sections
sPrintCode = sPrintCode & oSec.Range.Information(wdActiveEndPageNumber) & ","
Next


sPrintCode = Left(sPrintCode, Len(sPrintCode) - 1)


ActivePrinter = "Jingo2"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=sPrintCode, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

End Sub
[/VBA]

Compile error, syntax error

[Frosty]

ActiveDocument.Sections(2)
Will refer to section 2.

[Zack]

ActiveDocument.Sections(2)
Will refer to section 2.

[VBA]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

ActiveDocument.Sections(2).Range.Style="Section2Style"

End With

Dim oSec As Section
Dim sPrintCode As String


For Each oSec In ActiveDocument.Sections
sPrintCode = sPrintCode & oSec.Range.Information(wdActiveEndPageNumber) & ","
Next


sPrintCode = Left(sPrintCode, Len(sPrintCode) - 1)


ActivePrinter = "Jingo2"
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=sPrintCode, PageType:= _
wdPrintAllPages, ManualDuplexPrint:=False, Collate:=True, Background:= _
True, PrintToFile:=False, PrintZoomColumn:=0, PrintZoomRow:=0, _
PrintZoomPaperWidth:=0, PrintZoomPaperHeight:=0

End Sub [/VBA]

Run-time error 5834

[fumei]

Do you actually HAVE a style Section2Style?

[Zack]

Do you actually HAVE a style Section2Style?

Section 2 style is the style of the document zen.doc, meaning that it has different font size, alignment etc. compared to section 1. Thus it has to keep it rather than just assuming the Section's 1 font, alignment etc.

[fumei]

Think.

Does it in fact keep that style? Clearly it does not, otherwise you would not be having this problem.

So..........

[Zack]

Think.

Does it in fact keep that style? Clearly it does not, otherwise you would not be having this problem.

So..........

It keeps the style from the section 1, for some reason..
I need section 2 clear of that

[fumei]

1. It keeps the style from the section 1, for some reason..

Word always does that. Pasting takes on format of the document it is pasted into.

2. I need section 2 clear of that

Then do as I have suggested. Make it that style.

[Zack]

1. It keeps the style from the section 1, for some reason..

Word always does that. Pasting takes on format of the document it is pasted into.

2. I need section 2 clear of that

Then do as I have suggested. Make it that style.

I tried your code, but it doesn't work..

Basic idea was to copy zen.doc into the original doc without it assuming original docs style.

[macropod]

Instead of using Insertfile, have you considered copy & paste? Check out the different paste options - one of them retains the source formatting.

[Zack]

Instead of using Insertfile, have you considered copy & paste? Check out the different paste options - one of them retains the source formatting.

Unfortunately I need it to work with the code I've posted.

If it's impossible it's ok.

[Frosty]

What? But the code you've posted does *not* work. So that will be impossible.

Do you mean that you are obligated to the .InsertFile method for some reason, despite an alternative method being easier to implement your specifications?

[Zack]

What? But the code you've posted does *not* work. So that will be impossible.

Do you mean that you are obligated to the .InsertFile method for some reason, despite an alternative method being easier to implement your specifications?

I am obligated to .InsertFile method for the reasons which I am not allowed to talk about.

Fumei said:

[VBA]With Selection
.EndKey Unit:=wdStory
.InsertBreak Type:=wdSectionBreakNextPage
.InsertFile FileName:="C:\Documents and Settings\lorien\My Documents\zen.doc", Range:=""

End With
ActiveDocument.Sections(2).Range.Style="Section2Style" [/VBA]

So .InsertFile method was calculated within it. Unfortunately it does not work.

Is there a way to enable this code?