andare a capo in un file word

[robbe2000]

Questo codice serve per inserire i dati da un doc rtf già stabilito e inserire i dati dal form direttamente nel documento.

tutto perfetto eccetto quando ho il valore
[strserv]

questa stringa mi contiene in base alla selezione del cliente una riga oppure 6. Il mio problema è come scrivere solo i servizi selezionati?

es.
puoi selezionare i servizi(a-b-c-d-e-f)

hai selezionato solo (c-d)
nella stringa mi deve comparire
C xxx
D yyy

se fosse html scriverei
strserv = "C xxx
D yyy"

ma per il doc cosa devo fare? ho provato con

strserv = "C xxx" & VBcrlf & "D yyy"

strserv = "C xxx" & Chr(13) & Chr(10) & "D yyy"
strserv = "C xxx \n D yyy"

qualsiasi stringa che metto mi scrive la variabile sulla stessa riga

<%

'Per leggere il documento utilizzo FSO
Set fso = CreateObject("Scripting.FileSystemObject")

'doc.rtf e' il documento di base che contiene i tag
Set f = fso.OpenTextFile(Server.MapPath("modulo/modulo.rtf"), 1)

'Leggo tutto il contenuto del documento
Documento = f.ReadAll

'chiudo subito
f.Close
Set f = Nothing

'ora sostituisco i TAG con i campi contenuti nella form

strrichiesta="Attivazione"

Documento = Replace(Documento, "[strrichiesta]", strrichiesta)
Documento = Replace(Documento, "[cognome]", Cognome)
Documento = Replace(Documento, "[natoa]", natoa)
Documento = Replace(Documento, "[indirizzo]", indirizzo)
Documento = Replace(Documento, "[cod_fisc]", cod_fisc)

'creo un nuovo documento con Nome e Cognome reali al posto dei TAG
Set f = fso.OpenTextFile(Server.MapPath("modulo/modulo_"& cod_fisc &".rtf"), 2, True)

'chiudo tutto
f.Write Documento
f.Close
Set f = Nothing
Set fso = Nothing
%>

Questo è il modello che potremmo prendere come modulo.rtf

RICHIESTA DI [strrichiesta] DEL DOMINIO REALIZZAZIONE DEL SITO

[strrichiesta] dominio

www. [nomesito]. [estensione]
Il sottoscritto [Cognome] [nome]
Nato:
il: [natoa]
Residente:
indirizzo: [indirizzo]
Codice fiscale: [cod_fisc]

[strserv]

[fraude]

Ciao.

hai poi risolto? ho lo stesso tuo problema.

[robbe2000]

non so se è la soluzione migliore ma ho preso un documento word e l'ho ricopiato su block notes così ho preso i caratteri relativi per andare a capo.

\cf1\line

in questa maniera sono riuscita ad andare avanti.

Poi ho trovato un'altra soluzione. Visto che il mio documento è lungo 2 pagine ho creato un documento standard in rtf tipo modello.rtf con il seguente formato:

 
 sottoscritto: [sottoscritto]

Nato: 
il: [dataNas]
Nazione: [strNazNascitaNas]
Provincia: [strProvinciaNas]
Comune: [strcomuneNas]
Codice fiscale: [codFisc]

Residente: 
Naizone: [strNazResidenza] 
Provincia: [strprovResidenza]
Comune: [strcomuneRes]
Cap: [resCap] 
indirizzo: [indirizzoRes]

Poi attraverso una pagina asp compongo un nuovo documento e sostituisco i dati che mi interessano:

 
Dim fso
'Creiamo l'oggetto
Set fso = CreateObject("Scripting.FileSystemObject")
path = Server.MapPath(".")

' prelevo il modello
Set f = fso.OpenTextFile(Server.MapPath("modulo/modello.rtf"), 1)

'Leggo tutto il contenuto del documento
Documento = f.ReadAll

'chiudo subito
f.Close
Set f = Nothing

Documento = Replace(Documento, "[sottoscritto]", sottoscritto)
Documento = Replace(Documento, "[dataNas]", dataNas)
Documento = Replace(Documento, "[strNazNascitaNas]", strNazNascitaNas)
Documento = Replace(Documento, "[strProvinciaNas]", strProvinciaNas)
Documento = Replace(Documento, "[strcomuneNas]", strcomuneNas)

'....... continua così per tutte le variabili

'poi ci crea un altro documento .doc e si copia il contenuto corretto.
Set f = fso.OpenTextFile(Server.MapPath("allegati/modulo.doc"), 2, True)
f.Write Documento
f.Close

Spero di esserti stata chiara
ciao

[fraude]

Grazie, ma non ho capito.

Ho fatto così:

strDescrizione = request.form("descrizione")
strDescrizione = replace(strDescrizione, vbCrlf, "\cf1\line")

ma se scrivo:
1
2
3
4
5
6

nel file rtf mi ritrovo:
1

e tutte una serie di rinvii a capo ma senza più i numeri...