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
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
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
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
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
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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message
de
news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message
de
news: O10FJDj0EHA.1652@TK2MSFTNGP11.phx.gbl...
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message
de
news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
merci pour votre aide
en fait ce sont toujours des petits carrés
qui viennent se positionner soit en début de ligne s'il y a un espace ex:
deux espaces ,arrés
parfois au milieu d'une phrase (toujours petits carrés)
je ne sais pas a quel signe ou touche il correspondent?
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
ne marche pas
-----------------------------------------------------------------------
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
bug ! il me dit 'attendu expression ' il manque quelque chose au code
?????
MERCI DE VOTRE AIDE
"Raymond [mvp]" a écrit dans le message de
news: #.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message
denews:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
merci pour votre aide
en fait ce sont toujours des petits carrés
qui viennent se positionner soit en début de ligne s'il y a un espace ex:
deux espaces ,arrés
parfois au milieu d'une phrase (toujours petits carrés)
je ne sais pas a quel signe ou touche il correspondent?
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
ne marche pas
-----------------------------------------------------------------------
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
bug ! il me dit 'attendu expression ' il manque quelque chose au code
?????
MERCI DE VOTRE AIDE
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message de
news: #bDlYGj0EHA.3448@TK2MSFTNGP09.phx.gbl...
.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message
de
news: O10FJDj0EHA.1652@TK2MSFTNGP11.phx.gbl...
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
merci pour votre aide
en fait ce sont toujours des petits carrés
qui viennent se positionner soit en début de ligne s'il y a un espace ex:
deux espaces ,arrés
parfois au milieu d'une phrase (toujours petits carrés)
je ne sais pas a quel signe ou touche il correspondent?
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
ne marche pas
-----------------------------------------------------------------------
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
bug ! il me dit 'attendu expression ' il manque quelque chose au code
?????
MERCI DE VOTRE AIDE
"Raymond [mvp]" a écrit dans le message de
news: #.../...
Pierre va encore critiquer.
Lire
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 4 espaces)
au lieu de:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"Raymond [mvp]" a écrit dans le message
denews:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium
:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de news:
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium
:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message
de news:O10FJDj0EHA.1652@TK2MSFTNGP11.phx.gbl...
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium
:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de news:
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" a écrit dans le message de
news: #$et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractèreset savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
leacCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: #$iJrIj0EHA.2196@TK2MSFTNGP14.phx.gbl...
et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium
:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le message
de news:O10FJDj0EHA.1652@TK2MSFTNGP11.phx.gbl...
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" a écrit dans le message de
news: #$et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le message
de news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractèreset savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre après
leacCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
dans ton word, tu as pas des retours lignes ?
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" a écrit dans le message de
news:41a4a83e$0$13461$
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est
quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" a écrit dans le message de
news: #$et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le
message
de news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des
caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractèreset savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre
après
leacCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
dans ton word, tu as pas des retours lignes ?
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" <colluluigi@skynet.be> a écrit dans le message de
news:41a4a83e$0$13461$ba620e4c@news.skynet.be...
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est
quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" <XXX_pierresalaun@aol.com> a écrit dans le message de
news: #$iJrIj0EHA.2196@TK2MSFTNGP14.phx.gbl...
et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium
:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" <XYZ.officesystem.access@free.fr> a écrit dans le
message
de news:O10FJDj0EHA.1652@TK2MSFTNGP11.phx.gbl...
Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des
caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractères
et savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre
après
le
acCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
Raymond Access MVP
http://OfficeSystem.Access.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum
"lou" <colluluigi@skynet.be> a écrit dans le message de news:
41a491ea$0$29505$ba620e4c@news.skynet.be...
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
dans ton word, tu as pas des retours lignes ?
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"lou" a écrit dans le message de
news:41a4a83e$0$13461$
beu mon word est configuré d'origine
en fait mon texte dans word ne comporte pas ces petits carrés c'est
quand
le texte est importé dans le chanp memo qu'ils apparaissent ???????
j'ai regardé dans les caracteres spéciaux dans word et d'apres lui ça
correspond au symbol 61695
ça me fait une belle jambe
sais toujours pas pourquoi on retrouve ces trucs dans le champ memo et
comment les enlever
une idée ?
MERCI
"Pierre CFI [mvp]" a écrit dans le message de
news: #$et le pittbull de l'informatique, on se calme, sinon je le dis l'Ange
exterminator belgium:o))
si je cromprends bien, ton exemple était loin d'étre parfait, d'ou la
grogne justifiée des demandeurs
--
Pierre CFI
MVP Microsoft Access
Mail : http://cerbermail.com/?z0SN8cN53B
Site pour bien commencer
Access http://users.skynet.be/mpfa/
Excel http://www.excelabo.net
Site perso
http://access.cfi.free.fr
"Raymond [mvp]" a écrit dans le
message
de news:Bonjour.
Comme le dit Pierre (pour une fois il a raison) ce sont des
caractères
parasites qu'il faudra enlever. Il faut trouver la valeur de ces
caractèreset savoir si c'est toujours les mêmes.
Si ce ne sont pas toujours les mêmes, mais toujours le même nombre
après
leacCmdPaste, il faut faire:
Me.recuptexte = Mid(Me.recuptexte, 5) ' (5 pour 5 espaces)
si ce sont toujours les mêmes mais pas le même nombre, faire:
Me.recuptexte = Replace(Me.recuptexte, Chr(??), Chr(0))
--
@+
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:
41a491ea$0$29505$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
audebut 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
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
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
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
