tropix100
05-17-2012, 02:12 AM
Hey guys. Not sure if this is an excel or word query.
I have code which is creating 2 images of cell data onto a word doc.
In between these 2 images I want to insert a text box which is editable from work. But it must be created from excel.
Sheets("WordPrep").Range("B1:G5").Copy
Sheets(Page).Select
Application.ScreenUpdating = True
objWord.Selection.PasteSpecial , DataType:=4
objWord.ActiveDocument.Content.ParagraphFormat.Alignment = 1
Application.ScreenUpdating = False
' Here is where I want the textbox created and placed
Sheets("WordPrep").Range("B6:G35").Copy
Sheets(Page).Select
Application.ScreenUpdating = True
objWord.Selection.PasteSpecial , DataType:=4
objWord.ActiveDocument.Content.ParagraphFormat.Alignment = 1
Application.ScreenUpdating = False
objWord is a word object rather than using references for compatibility reasons. This gives me 2 images on a Word doc.
Really need help on this one.
Thanks
I have code which is creating 2 images of cell data onto a word doc.
In between these 2 images I want to insert a text box which is editable from work. But it must be created from excel.
Sheets("WordPrep").Range("B1:G5").Copy
Sheets(Page).Select
Application.ScreenUpdating = True
objWord.Selection.PasteSpecial , DataType:=4
objWord.ActiveDocument.Content.ParagraphFormat.Alignment = 1
Application.ScreenUpdating = False
' Here is where I want the textbox created and placed
Sheets("WordPrep").Range("B6:G35").Copy
Sheets(Page).Select
Application.ScreenUpdating = True
objWord.Selection.PasteSpecial , DataType:=4
objWord.ActiveDocument.Content.ParagraphFormat.Alignment = 1
Application.ScreenUpdating = False
objWord is a word object rather than using references for compatibility reasons. This gives me 2 images on a Word doc.
Really need help on this one.
Thanks