Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access word et champ memo pou raymond

word et champ memo pou raymond

16 réponses
Avatar
lou
j'ai trouvé sur un groupe de discussion
le code fournit par RAYMOND

Private Sub Commande90_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("C:\PDF\CACA.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges
.Quit
End With
Set W_App = Nothing
Me.recuptexte.SetFocus
DoCmd.RunCommand acCmdPaste

End Sub


donc j'importe les fichier WORD dans un champ MEMO
que je place dans un etat

ce code fonctionne tres bien
mais il reste un petit probleme a savoir que quand il y a des espaces au
debut des lignes et au milieu du texte

si je regarde dans mon etat il y a des petits carrés qui
remplacent les espaces
comment les enlever en laissant les espaces d'origine?

merci pour votre aide
lou
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
lou
non il n'y a pas de saut de ligne
et quand je visionne mon document word il n'y a pas de petits carrés c'est
quand le texte est collé dans le champ memo qu'ils apparaissent ce serait
le champ memo qui pose problemme????


"Raymond [mvp]" a écrit dans le message de
news:
un retour ligne c'est un ou deux caractères de saut de ligne.

essaie de supprimer les premiers caractères dans word directement.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
41a4ac7f$0$29518$
je ne sui pas un spécialiste de word et je ne sais pas c'est quoi un
retour
de ligne
je viens juste de l installer et il est par defaut

merci de m'expliquer






Avatar
Raymond [mvp]
Non, ce sont des caractères cachés de mise en forme de word.
il te faut faire un Mid(Monchamp,2) tant que le 1er caractère de monchamp
n'est pas un caractère valide pour toi.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
41a4b32a$0$29502$
non il n'y a pas de saut de ligne
et quand je visionne mon document word il n'y a pas de petits carrés
c'est
quand le texte est collé dans le champ memo qu'ils apparaissent ce
serait
le champ memo qui pose problemme????



Avatar
lou
merci RAYMOND

j'ai essayé mais ce n'est pas tres éfficace comme systeme les carrés etant
positionnés un peux n importe ou
ce qu il faudrait c'est connaitre a quoi correspond ce carré et les enlever
avec REPLACE
d apres ce que j'ai vu c'est le symbol 61695
autre idée?????
MERCI
"Raymond [mvp]" a écrit dans le message de
news:
Non, ce sont des caractères cachés de mise en forme de word.
il te faut faire un Mid(Monchamp,2) tant que le 1er caractère de monchamp
n'est pas un caractère valide pour toi.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
41a4b32a$0$29502$
non il n'y a pas de saut de ligne
et quand je visionne mon document word il n'y a pas de petits carrés
c'est
quand le texte est collé dans le champ memo qu'ils apparaissent ce
serait
le champ memo qui pose problemme????







Avatar
lou
pour info
le code symbol pour les carrés (espaces) est ChrW(9)
en fait les carrés sont des espaces cachés

j'ai doc remplacé les carrés par un espace est c'est parfait

Me.recuptexte = Replace(Me.recuptexte, ChrW(9), " ")
voila si ça peux servir a quelq'un on ne sait jamais


"lou" a écrit dans le message de news:
41a58799$0$9300$
merci RAYMOND

j'ai essayé mais ce n'est pas tres éfficace comme systeme les carrés
etant

positionnés un peux n importe ou
ce qu il faudrait c'est connaitre a quoi correspond ce carré et les
enlever

avec REPLACE
d apres ce que j'ai vu c'est le symbol 61695
autre idée?????
MERCI
"Raymond [mvp]" a écrit dans le message
de

news:
Non, ce sont des caractères cachés de mise en forme de word.
il te faut faire un Mid(Monchamp,2) tant que le 1er caractère de
monchamp


n'est pas un caractère valide pour toi.

--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"lou" a écrit dans le message de news:
41a4b32a$0$29502$
non il n'y a pas de saut de ligne
et quand je visionne mon document word il n'y a pas de petits carrés
c'est
quand le texte est collé dans le champ memo qu'ils apparaissent ce
serait
le champ memo qui pose problemme????











Avatar
bertrand roques
Moi j'ai essayé ce code et la catastrophe :
Non seulement rien n'est importé dans mon champ memo mais en plus access se
ferme...
ou a je faux ?
que veux dire :wdStory, wdExtend ?


j'ai trouvé sur un groupe de discussion
le code fournit par RAYMOND

Private Sub Commande90_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("C:PDFCACA.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges
.Quit
End With
Set W_App = Nothing
Me.recuptexte.SetFocus
DoCmd.RunCommand acCmdPaste

End Sub


donc j'importe les fichier WORD dans un champ MEMO
que je place dans un etat

ce code fonctionne tres bien
mais il reste un petit probleme a savoir que quand il y a des espaces au
debut des lignes et au milieu du texte

si je regarde dans mon etat il y a des petits carrés qui
remplacent les espaces
comment les enlever en laissant les espaces d'origine?

merci pour votre aide
lou






Avatar
Raymond [mvp]
Bonsoir.

wdStory = sélection en début du document
Extend:=wdExtend , étendre la sélection jusqu'à la fin du document.

faut pas grand chose pour tout casser;
si tu n'y arrives pas pas , passe moi la partie intéressante pour jet un
oeil.
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"bertrand roques" <bertrand a écrit dans
le message de news:
Moi j'ai essayé ce code et la catastrophe :
Non seulement rien n'est importé dans mon champ memo mais en plus access
se
ferme...
ou a je faux ?
que veux dire :wdStory, wdExtend ?


j'ai trouvé sur un groupe de discussion
le code fournit par RAYMOND

Private Sub Commande90_Click()
On Error Resume Next
Dim W_App As Object
Set W_App = CreateObject("Word.Application")
With W_App
.Visible = True
.Documents.Open ("C:PDFCACA.doc")
.Selection.HomeKey Unit:=wdStory
.Selection.EndKey Unit:=wdStory, Extend:=wdExtend
.Selection.Copy
.ActiveDocument.Close wdDoNotSaveChanges
.Quit
End With
Set W_App = Nothing
Me.recuptexte.SetFocus
DoCmd.RunCommand acCmdPaste

End Sub


donc j'importe les fichier WORD dans un champ MEMO
que je place dans un etat

ce code fonctionne tres bien
mais il reste un petit probleme a savoir que quand il y a des espaces au
debut des lignes et au milieu du texte

si je regarde dans mon etat il y a des petits carrés qui
remplacent les espaces
comment les enlever en laissant les espaces d'origine?

merci pour votre aide
lou








1 2