ACCESS - WORD

mercoledì 18 luglio 2012 - 18.02

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

Elenco Tags Access (.mdb)

DanieleDM Profilo | Newbie

4 messaggi | Data Invio: mer 18 lug 2012 - 18:02

Ciao,
ho la necessità di inviare ad una tabella esistente in word, con i seguenti campi #DESCRIZIONE#, #IMPORTO# ed #IVA#.
Utilizzando il seguente codice mi popola la prima riga ma non passa alla successiva, come posso risolvere????

Do Until rsDati.EOF = True
SostituisciTesto objWord, _
"#DESCRIZIONE#", _
rsDati("RFA_DESCR")
SostituisciTesto objWord, _
"#IMPORTO#", _
rsDati("RFA_IMPORTO")
SostituisciTesto objWord, _
"#IVA#", _
rsDati("RFA_IVA")
rsDati.MoveNext
Loop

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: lun 23 lug 2012 - 23:13

>Ciao,
ciao

possiamo vedere cosa fai in SostituisciTesto?
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.microsoft.com/profiles/Alessandro.Alpi

DanieleDM Profilo | Newbie

4 messaggi | Data Invio: ven 27 lug 2012 - 16:23

Di seguito il codice :

Public Function SostituisciTesto(objWord As Object, _
sTestoIniziale As String, _
sNuovoTesto As String, _
Optional bRTF As Boolean = False) As Long

Dim myRange As Object
Dim bEsci As Boolean

If sNuovoTesto = vbNullString Then
With objWord.ActiveDocument.Content.Find
.ClearFormatting
.MatchWholeWord = True
.Execute FindText:=sTestoIniziale, _
ReplaceWith:="", _
Format:=True, _
Replace:=wdReplaceAll
End With
Else
'Set myRange = CreateObject("Word.Range")
PutClipboard sNuovoTesto
Set myRange = objWord.ActiveDocument.Content
With myRange.Find
Do Until bEsci
.ClearFormatting
.MatchWholeWord = True
.Text = sTestoIniziale
.Execute
If .Found Then
myRange.Select
objWord.selection.Paste
Else
bEsci = True
End If
Loop
End With
EmptyClipboard
End If

End Function

alx_81 Profilo | Guru

8.814 messaggi | Data Invio: mer 1 ago 2012 - 13:47

>Di seguito il codice :
sembra che tu passi un "objWord" alla procedura e che sostituisci il testo passato con un nuovo testo.
Ma non vedo dov'è la tabella che vuoi gestire. Come cambi di riga in tabella? Dov'è definita la tabella? Cos'è objWord?
Puoi passarci tutto un esempio completo?
--
Alessandro Alpi | SQL Server MVP
MCP|MCITP|MCTS|MCT

http://www.alessandroalpi.net
http://blogs.dotnethell.it/suxstellino
http://mvp.microsoft.com/profiles/Alessandro.Alpi

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !