Microsoft Office Forums - View Single Post - set headings in a VBA inserted text to use for index

gmayor · 06-20-2017, 09:08 PM

The problem is that you are pasting the items after the range and then formatting the range. Without your workbook it is impossible to check, but the following should be closer:

Code:

For i = 6 To Sheets.Count

    range2.Collapse direction:=0
    range2.Style = "kop 2"
    Worksheets(i).Range("AU20").Copy
    Application.Wait (Now + TimeValue("0:00:01"))
    range2.PasteSpecial Placement:=0, DataType:=2
    appwd.ActiveDocument.Range.InsertParagraphAfter
    range2.End = appwd.ActiveDocument.Range.End
    range2.Paragraphs(1).Style = "kop 2"
    Application.CutCopyMode = False


    'copy paste acties
    For j = 1 To 6
        range2.Collapse direction:=0
        Worksheets(i).Range(bereik(j)).Copy
        Application.Wait (Now + TimeValue("0:00:01"))
        range2.PasteSpecial Placement:=0, DataType:=3
        appwd.ActiveDocument.Range.InsertParagraphAfter
        range2.End = appwd.ActiveDocument.Range.End
        range2.Paragraphs(1).Style = "standaard"
        Application.CutCopyMode = False
    Next j

Next i