A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones de
text en arrière plan (entête et pied de page) et en avant plan (là ou on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object
Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
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
Joel
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones de
text en arrière plan (entête et pied de page) et en avant plan (là ou on ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
Set WordFile = Nothing Set WordObj = Nothing
End Sub
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
For Each s In WordObj.Selection.HeaderFooter.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!!
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:eIUtXPMZEHA.2388@TK2MSFTNGP09.phx.gbl...
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière
plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object
Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones de
text en arrière plan (entête et pied de page) et en avant plan (là ou on ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
Set WordFile = Nothing Set WordObj = Nothing
End Sub
Emcy
J'ai une erreur sur la ligne : For Each s In WordObj.Selection.HeaderFooter.Shapes
"Joel" a écrit dans le message de news:ccja4t$at5$
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
Set WordFile = Nothing Set WordObj = Nothing
End Sub
J'ai une erreur sur la ligne : For Each s In
WordObj.Selection.HeaderFooter.Shapes
"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:ccja4t$at5$1@news-reader5.wanadoo.fr...
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
For Each s In WordObj.Selection.HeaderFooter.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!!
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:eIUtXPMZEHA.2388@TK2MSFTNGP09.phx.gbl...
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de
zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière
plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object
Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
J'ai une erreur sur la ligne : For Each s In WordObj.Selection.HeaderFooter.Shapes
"Joel" a écrit dans le message de news:ccja4t$at5$
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
Set WordFile = Nothing Set WordObj = Nothing
End Sub
Joel
Re ;-)
c'est peut-être pour toi WordFile et non WordObj...
désolé ! si ce n'est pas le cas, renvoi l'intégralité du code, car je n'ai pas testé avec cette hisoire de nomenclature ... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:%23pSP%
J'ai une erreur sur la ligne : For Each s In WordObj.Selection.HeaderFooter.Shapes
"Joel" a écrit dans le message de news:ccja4t$at5$
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
Set WordFile = Nothing Set WordObj = Nothing
End Sub
Re ;-)
c'est peut-être pour toi WordFile et non WordObj...
désolé ! si ce n'est pas le cas, renvoi l'intégralité du code, car je n'ai
pas testé avec cette hisoire de nomenclature ...
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:%23pSP%23SOZEHA.3112@TK2MSFTNGP09.phx.gbl...
J'ai une erreur sur la ligne : For Each s In
WordObj.Selection.HeaderFooter.Shapes
"Joel" <joel-garbe@wanadoo.fr> a écrit dans le message de
news:ccja4t$at5$1@news-reader5.wanadoo.fr...
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
For Each s In WordObj.Selection.HeaderFooter.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!!
--
Bien cordialement,
Joël GARBE
www.joelgarbe.fr
"Emcy" <ten.etsop@ycme.ycme> a écrit dans le message de
news:eIUtXPMZEHA.2388@TK2MSFTNGP09.phx.gbl...
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de
zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou
on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière
plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object
Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True
Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la
nomenclature Word
For Each s In WordFile.Shapes
On Error Resume Next
s.TextFrame.TextRange = "aaa"
Next
c'est peut-être pour toi WordFile et non WordObj...
désolé ! si ce n'est pas le cas, renvoi l'intégralité du code, car je n'ai pas testé avec cette hisoire de nomenclature ... --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:%23pSP%
J'ai une erreur sur la ligne : For Each s In WordObj.Selection.HeaderFooter.Shapes
"Joel" a écrit dans le message de news:ccja4t$at5$
Bonjour EMCY !
Essaye donc un peu !!!
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader For Each s In WordObj.Selection.HeaderFooter.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next WordObj.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
A bientôt !!! --
Bien cordialement,
Joël GARBE www.joelgarbe.fr "Emcy" a écrit dans le message de news:
Bonjours,
A l'aide d'une macro excel, j'ouvre un fichier word qui à pleins de zones
de
text en arrière plan (entête et pied de page) et en avant plan (là ou on
ecris normalement)
J'arrive à remplir les zones de text en avant plan mais pas en arrière plan.
Quelqu'un a-t-il une solution ?
voici ma macro pour remplir en avant plan :
Sub Word()
Dim WordObj As Object Dim WordFile As Object
Set WordObj = CreateObject("Word.Application")
WordObj.Visible = True Set WordFile = WordObj.Documents.Open(NomenclatureWord) 'ouvre la nomenclature Word
For Each s In WordFile.Shapes On Error Resume Next s.TextFrame.TextRange = "aaa" Next
