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 Word question rare: enregistrement sous format image

question rare: enregistrement sous format image

84 réponses
Avatar
Raymond Poulain
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray
Signaler un problème avec ce contenu

10 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
3 4 5 6 7
Avatar
Clément Marcotte
Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
.AllowMultiSelect = False
.Title = "Ouvrir un fichiers Word"
.Filters.Add "Documents Word", "*.doc; *.rtf, 1"
.Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray


Avatar
Clément Marcotte
Le désabonnement-réabonnement, n'a rien donné pour le problème de double
envoi. Va falloir queje regarde autre chose. Mais là je vais piquer un
somme.

"Clément Marcotte" a écrit dans le message
de news: %
Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier Word à la fois. Pour les "pages intérieures", l'image contient 2
pages à la fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
.AllowMultiSelect = False
.Title = "Ouvrir un fichiers Word"
.Filters.Add "Documents Word", "*.doc; *.rtf, 1"
.Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans
le message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray






Avatar
Circé
Bonjour Clément,

et merci pour cette macro.
Couplée à la batchmacro magique d'anacoluthe, je pense que les 400
fichiers pourront être faits d'une seule traite ;))
http://faqword.free.fr/download.php?lng=fr&pgs6

Circé

Clément Marcotte avait écrit le 24/07/2006 :
Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
.AllowMultiSelect = False
.Title = "Ouvrir un fichiers Word"
.Filters.Add "Documents Word", "*.doc; *.rtf, 1"
.Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray




Avatar
Raymond Poulain
Merci Circé,

Je vais tester, cela peut prendre un peu de temps, car je ne suis pas habitué.
Ray


Bonjour Clément,

et merci pour cette macro.
Couplée à la batchmacro magique d'anacoluthe, je pense que les 400
fichiers pourront être faits d'une seule traite ;))
http://faqword.free.fr/download.php?lng=fr&pgs6

Circé

Clément Marcotte avait écrit le 24/07/2006 :
Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
.AllowMultiSelect = False
.Title = "Ouvrir un fichiers Word"
.Filters.Add "Documents Word", "*.doc; *.rtf, 1"
.Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray









Avatar
Raymond Poulain
Merci Clément,

Je vais tester. J'ai Publisher 2000 (avec Office Premium).

Ray


Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
..AllowMultiSelect = False
..Title = "Ouvrir un fichiers Word"
..Filters.Add "Documents Word", "*.doc; *.rtf, 1"
..Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray







Avatar
Clément Marcotte
Bonjour,

Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...


"Raymond Poulain" a écrit dans le
message de news:
Merci Clément,

Je vais tester. J'ai Publisher 2000 (avec Office Premium).

Ray


Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à
la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
..AllowMultiSelect = False
..Title = "Ouvrir un fichiers Word"
..Filters.Add "Documents Word", "*.doc; *.rtf, 1"
..Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans
le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de
Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray









Avatar
Clément Marcotte
C'est probablement la seule raison d'essayer la bêta d'office 2007. Une
opération ponctuelle, en espérant qu'il n'y ait pas trop de bugs...

"Clément Marcotte" a écrit dans le message
de news: u$%
Bonjour,

Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...


"Raymond Poulain" a écrit dans
le message de news:
Merci Clément,

Je vais tester. J'ai Publisher 2000 (avec Office Premium).

Ray


Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages à
la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
..AllowMultiSelect = False
..Title = "Ouvrir un fichiers Word"
..Filters.Add "Documents Word", "*.doc; *.rtf, 1"
..Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit
dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de
Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray













Avatar
Clément Marcotte
"Clément Marcotte" a écrit dans le message
de news:
C'est probablement la seule raison d'essayer la bêta d'office 2007. Une
opération ponctuelle, en espérant qu'il n'y ait pas trop de bugs...

"Clément Marcotte" a écrit dans le message
de news: u$%
Bonjour,

Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...


"Raymond Poulain" a écrit dans
le message de news:
Merci Clément,

Je vais tester. J'ai Publisher 2000 (avec Office Premium).

Ray


Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages
à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
..AllowMultiSelect = False
..Title = "Ouvrir un fichiers Word"
..Filters.Add "Documents Word", "*.doc; *.rtf, 1"
..Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit
dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et
du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de
Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela
ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray

















Avatar
Clément Marcotte
Justement, Jean-Luc, vient de dire que cela a l'air de marcher avec Office
2007.

"Clément Marcotte" a écrit dans le message
de news:
C'est probablement la seule raison d'essayer la bêta d'office 2007. Une
opération ponctuelle, en espérant qu'il n'y ait pas trop de bugs...

"Clément Marcotte" a écrit dans le message
de news: u$%
Bonjour,

Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...


"Raymond Poulain" a écrit dans
le message de news:
Merci Clément,

Je vais tester. J'ai Publisher 2000 (avec Office Premium).

Ray


Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier
Word à la fois. Pour les "pages intérieures", l'image contient 2 pages
à la
fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
..AllowMultiSelect = False
..Title = "Ouvrir un fichiers Word"
..Filters.Add "Documents Word", "*.doc; *.rtf, 1"
..Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit
dans le
message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et
du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de
Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela
ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray

















Avatar
Clément Marcotte
Là, j'ai réussi à trouver le fichier dbx et le l'ai zigouillé. En
espérant...

"Clément Marcotte" a écrit dans le message
de news: %
Le désabonnement-réabonnement, n'a rien donné pour le problème de double
envoi. Va falloir queje regarde autre chose. Mais là je vais piquer un
somme.

"Clément Marcotte" a écrit dans le message
de news: %
Bonjour,

Voilà la macro. Telle qu'elle est écrite, elle ne peut prendre qu'un
fichier Word à la fois. Pour les "pages intérieures", l'image contient 2
pages à la fois.


Sub wordenimages()
'Clément Marcotte
'Amos (Québec) Canada
Dim DialogueOuvrir As FileDialog
Dim i As Integer, j As Integer
Dim fichier As String
Dim ledocument As Object
'Ouvrir la boîte de dialogue
'pour ouvrir le fichier Word.
'Pour sélectionner plus d'un fichier
'à la fois, mettre AllowMultiSelect à true
Set DialogueOuvrir = Application.FileDialog( _
Type:=msoFileDialogOpen)
With DialogueOuvrir
.AllowMultiSelect = False
.Title = "Ouvrir un fichiers Word"
.Filters.Add "Documents Word", "*.doc; *.rtf, 1"
.Show
End With
'Il faut ouvrir une deuxième instance de Publisher
'Pour réussir à ouvrir le document Word
Dim appPub As New Publisher.Application
appPub.Open FileName:=DialogueOuvrir.SelectedItems(1), _
ReadOnly:=True, AddToRecentFiles:úlse, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'Enregistrer les pages au format JPG.
'Pour les pages intérieures, c'est 2 pages dans
'le même fichier (en regard, comme ils disent).
'Je suppose que pour d'autres formats
'supportés par Publisher, il suffit de changer
'l'extension. Pas envie d'essayer.
For j = 1 To appPub.ActiveDocument.Pages.Count
fichier = DialogueOuvrir.SelectedItems(1)
fichier = Right(fichier, Len(fichier) - InStrRev(fichier, "") - 1)
fichier = Left(fichier, Len(fichier) - 4)
'Ajuster "c:copieimages" et le nom de fichier
'selon les besoins
appPub.ActiveDocument.Pages(j).SaveAsPicture _
("c:copieimages" _
& fichier & "-page " & j & ".jpg")
Next
'Fermer la deuxième instance de Publisher
'répondre oui pour garder le fichier
appPub.Quit
Set appPub = Nothing
MsgBox ("Conversion du fichier, terminée")
End Sub


"Raymond Poulain" a écrit dans
le message de news:
Bonjour,

J'ai un document Word 2000, contenant des images (photos et gif) et du
texte, et qui est plus long qu'une page d'écran et je voudrais
l'enregistrer
comme une image (jpeg ou gif ou bmp).
Mais je ne trouve pas comment faire, y compris dans la base de Microsoft
France.
(J'ai aussi Photodraw, et j'ai pensé ouvrir un .doc avec, mais cela ne
marche pas).
La copie d'écran ne marche pas non plus (trop long).

Qui peut m'aider pour ce souci "sioux"?

Merci

Ray










3 4 5 6 7