No funcionan las Macros

Hola de nuevo Hector
aqui te mando una copia de la macro

Sub WORDI()
Dim WDApp As Object
Dim WDDoc As Word.Document
Dim Texto As String

Presupuesto = Worksheets("PRESUPUESTO").Range("G8")
Fecha = Worksheets("PRESUPUESTO").Range("G9")
Cliente = Worksheets("PRESUPUESTO").Range("A6")
Contacto = Worksheets("PRESUPUESTO").Range("a8")
Titulo1 = Worksheets("PRESUPUESTO").Range("A13")
Descripcion1 = Worksheets("PRESUPUESTO").Range("A14")
Set WDApp = CreateObject("Word.Application")
With WDApp
.Visible = True
Set WDDoc = .Documents.Open("C:\Documents and
Settings\jaimebettyandrei\デスクトップ\Nao\PRESUPUESTO1.doc")
End With
WDDoc.Paragraphs(1).Range = Presupuesto
WDDoc.Paragraphs(3).Range = Fecha
WDDoc.Paragraphs(5).Range = Cliente
WDDoc.Paragraphs(7).Range = Contacto
WDDoc.Paragraphs(12).Range = Titulo1
WDDoc.Paragraphs(13).Range = Descripcion1
End Sub

como veras son varias celdas y aun quiero introducir mas, por ejemplo
entre el paragraph cliente y Titulo1 hay un parrafo de saludo que va a ser
constante en los proximos presupuestos, pero cuando se pegan se pierde el
parrafo. nose si esta informacion te pueda servir o no me estoy dejando
entender. se puede dar formato al importarlos?

bueno Hector esperono causarte muchas molestias
gracias

hola, Jak !

aqui te mando una copia de la macro [... ... ...]
como veras son varias celdas y aun quiero introducir mas, por ejemplo
entre el paragraph cliente y Titulo1 hay un parrafo de saludo que va a ser constante en los proximos presupuestos
pero cuando se pegan se pierde el parrafo.
no se si esta informacion te pueda servir o no me estoy dejando entender
se puede dar formato al importarlos?

1) si el saludo va a ser *constante*... [te sugiero] dejalo *fijo* en el documento de word y *ajusta* los paragraphs(x) -?-

2) para que no pierdas los formatos ya estblecidos en word al copiar desde la macro en excel...
solo hace falta agregar un *salto de linea* despues de hacer cada pegado desde la macro ;)

3) el codigo que expones puedes *aligerarlo* si lo modificas +/- a lo siguiente:
[OJO: el nombre de tu ruta, como podras observar, ha pasado con varios caracteres *ilegibles*] :-((
-> te toca modificar como corresponda con el nombre real de la ruta :D

Sub A_Word()
Dim wDoc As Word.Document
With CreateObject("Word.Application")
.Visible = True
Set wDoc = .Documents.Open("c:\documents and settings\jaimebettyandrei\<OJO: esto no paso>\Nao\presupuesto1.doc")
End With
With Worksheets("presupuesto")
wDoc.Paragraphs(1).Range = .Range("g8") & vbCr
wDoc.Paragraphs(3).Range = .Range("g9") & vbCr
wDoc.Paragraphs(5).Range = .Range("a6") & vbCr
wDoc.Paragraphs(7).Range = .Range("a8") & vbCr
wDoc.Paragraphs(12).Range = .Range("a13") & vbCr
wDoc.Paragraphs(13).Range = .Range("a14") & vbCr
End With
Set wDoc = Nothing
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

__ el codigo expuesto __

Sub WORDI()
Dim WDApp As Object
Dim WDDoc As Word.Document
Dim Texto As String
Presupuesto = Worksheets("PRESUPUESTO").Range("G8")
Fecha = Worksheets("PRESUPUESTO").Range("G9")
Cliente = Worksheets("PRESUPUESTO").Range("A6")
Contacto = Worksheets("PRESUPUESTO").Range("a8")
Titulo1 = Worksheets("PRESUPUESTO").Range("A13")
Descripcion1 = Worksheets("PRESUPUESTO").Range("A14")
Set WDApp = CreateObject("Word.Application")
With WDApp
.Visible = True
Set WDDoc = .Documents.Open("C:\Documents and Settings\jaimebettyandrei\デスクトップ\Nao\PRESUPUESTO1.doc")
End With
WDDoc.Paragraphs(1).Range = Presupuesto
WDDoc.Paragraphs(3).Range = Fecha
WDDoc.Paragraphs(5).Range = Cliente
WDDoc.Paragraphs(7).Range = Contacto
WDDoc.Paragraphs(12).Range = Titulo1
WDDoc.Paragraphs(13).Range = Descripcion1
End Sub

Hola Hector
MUCHISISISIMAS!! Gracias
de seguro ya te estare consultando otras cosas

los caracteres ilegibles son porque mi PC es de configuracion Japonesa y
estan en japones.

cuidate saludos!