Clear document

Jaymond Flurrie · #2 07-17-2011, 10:11 AM

I tried that later part, just by pasting a link:

Code:

With appWD.Selection
        .MoveRight Unit:=wdCharacter, Count:=1
        .TypeText Text:="Left part of header"
        .ParagraphFormat.Alignment = wdAlignParagraphLeft
        .TypeText Text:=vbTab & vbTab & "right part of header"
        DocWD.Parent.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    
        strChartName = "A. header"
        shtCharts.Shapes(strChartName).Copy
        .TypeText Text:=vbTab & vbTab & vbTab & vbTab & strChartName & vbCrLf
        .Font.Bold = wdToggle
        .PasteSpecial Link:=False, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=wdPageBreak
        
        strChartName = "B. header"
        shtCharts.Shapes(strChartName).Copy
        .TypeText Text:=vbTab & vbTab & vbTab & vbTab & strChartName & vbCrLf
        .Font.Bold = wdToggle
        .PasteSpecial Link:=True, DataType:=wdPasteMetafilePicture, Placement:=wdInLine, DisplayAsIcon:=False
        .InsertBreak Type:=wdPageBreak
    End With

That first paste doesn't work, the next works fine. The error it gives is Run-time error '5342': The specified datatype is unavailable. Seems to me something is wrong with using that wdPasteMetafilePicture, but what?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Trying to clear the background colour from a theme	ezekiel181	Word	1	11-14-2010 07:29 AM
Search and Replace - Clear Search box	JostClan	Word	1	05-04-2010 08:46 PM
command clear forms	dmcohio	Word	0	04-08-2010 11:11 AM
'Clear formatting' issue	phoebs47	Word	0	03-16-2010 06:55 AM
Holidays--clear all?	markg2	Outlook	0	11-01-2009 05:57 AM