Hi all i have some code below that opens Word adds a document and pastes
the contents of a range in to it, my problem is that i would like the
contents to be pasted on the right hand side if the document, thats
what the vbTab's are for below but it doesnt work it just hangs after
running that line........i'm no whizz at this so if anyone could give
me the correction i would be very grateful!

Regards,
Simon

Sub wrdstart()
Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
With appwd
..documents.Add
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
& _
vbTab & vbTab & vbTab
Range("A1:A5").Copy

..Selection.Paste

End With
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=555537

Hello
Try:
appwd.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
& _
vbTab & vbTab & vbTab

and
appwd.Selection.Paste

HTH
Cordially
Pascal


"Simon Lloyd" a
écrit dans le message de news:
...

Hi all i have some code below that opens Word adds a document and pastes
the contents of a range in to it, my problem is that i would like the
contents to be pasted on the right hand side if the document, thats
what the vbTab's are for below but it doesnt work it just hangs after
running that line........i'm no whizz at this so if anyone could give
me the correction i would be very grateful!

Regards,
Simon

Sub wrdstart()
Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
With appwd
documents.Add
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
& _
vbTab & vbTab & vbTab
Range("A1:A5").Copy

Selection.Paste

End With
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile:
http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=555537

Thanks for your reply Papou, i had already tried that it still pastes
the information to the top left of the word document but i need it to
appear in the top right..............any other ideas?

regards,
Simon


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=555537

SImon:

Once you're in Word, you have access to all of Word's properties and
methods. Why not set a Range to where you want to paste this, and then
use
Range.ParagraphFormat.Alignment wdAlignParagraphRight
to set it against the right edge? Much less messy than all those tabs.

Ed

Thanks Ed, worked for me!
Regards,
Simon


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=555537

Hi
This seems to do most of what you want

Sub wrdstart()
Dim appwd As Word.Application
Dim NewDoc As Word.Document
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
Set NewDoc = appwd.Documents.Add
With NewDoc
.ActiveWindow.Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab
& vbTab & vbTab & _
vbTab & vbTab & vbTab
Range("A1:A5").Copy
..ActiveWindow.Selection.PasteExcelTable False, False, False
End With
End Sub

I'm no wizz either! The paste seems to go over the tabs, so you
probably need to set some property of the Selection object to stop that
and make the paste go to the end?

regards
Paul

Simon Lloyd wrote:
Hi all i have some code below that opens Word adds a document and pastes
the contents of a range in to it, my problem is that i would like the
contents to be pasted on the right hand side if the document, thats
what the vbTab's are for below but it doesnt work it just hangs after
running that line........i'm no whizz at this so if anyone could give
me the correction i would be very grateful!

Regards,
Simon

Sub wrdstart()
Dim appwd As Object
On Error GoTo notloaded
Set appwd = GetObject(, "Word.Application")
notloaded:
If Err.Number = 429 Then
Set appwd = CreateObject("Word.Application")
End If
appwd.Visible = True
On Error GoTo 0
With appwd
.documents.Add
Selection.TypeText Text:=vbTab & vbTab & vbTab & vbTab & vbTab & vbTab
& _
vbTab & vbTab & vbTab
Range("A1:A5").Copy

.Selection.Paste

End With
End Sub


--
Simon Lloyd
------------------------------------------------------------------------
Simon Lloyd's Profile: http://www.excelforum.com/member.php...fo&userid=6708
View this thread: http://www.excelforum.com/showthread...hreadid=555537