ACCESS - WORD

mercoledì 18 luglio 2012 - 18.02
Tag Elenco Tags  Access (.mdb)

DanieleDM Profilo | Newbie

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

>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

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

>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
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 !
Copyright © dotNetHell.it 2002-2017
Running on Windows Server 2008 R2 Standard, SQL Server 2012 & ASP.NET 3.5