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).
...snip...
Merci
Ray
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).
...snip...
Merci
Ray
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).
...snip...
Merci
Ray
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).
RayBonjour,
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
Bonjour,
Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...
"Raymond Poulain" <RaymondPoulain@discussions.microsoft.com> a écrit dans le
message de news: 3A599C50-858D-40A6-9E94-278B79EA0126@microsoft.com...
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" <RaymondPoulain@discussions.microsoft.com> a écrit dans
le
message de news: 94A6B8D7-FB8C-40A5-AB4C-5C8956F5AA0E@microsoft.com...
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
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).
RayBonjour,
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
Bonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour autant
que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"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).
....snip...
Merci
Ray
Bonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour autant
que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"Raymond Poulain" <RaymondPoulain@discussions.microsoft.com> a écrit dans le
message de news: 94A6B8D7-FB8C-40A5-AB4C-5C8956F5AA0E@microsoft.com...
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).
....snip...
Merci
Ray
Bonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour autant
que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"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).
....snip...
Merci
Ray
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne
peux pas contourner (sinon j'aurais acquis adobe et j'aurais
enregistrer avec toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois,
mais je suis content (1) de voir que ce n'est pas facile à résoudre
et (2) que l'esprit d'entraide soit si vivant et actif sur ce forum.
RayBonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour
autant que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"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).
....snip...
Merci
Ray
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne
peux pas contourner (sinon j'aurais acquis adobe et j'aurais
enregistrer avec toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois,
mais je suis content (1) de voir que ce n'est pas facile à résoudre
et (2) que l'esprit d'entraide soit si vivant et actif sur ce forum.
Ray
Bonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour
autant que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"Raymond Poulain" <RaymondPoulain@discussions.microsoft.com> a écrit
dans le message de news:
94A6B8D7-FB8C-40A5-AB4C-5C8956F5AA0E@microsoft.com...
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).
....snip...
Merci
Ray
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne
peux pas contourner (sinon j'aurais acquis adobe et j'aurais
enregistrer avec toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois,
mais je suis content (1) de voir que ce n'est pas facile à résoudre
et (2) que l'esprit d'entraide soit si vivant et actif sur ce forum.
RayBonjour,
je suis toujours intrigué par la finalité de cette demande...
Pour quelle raison faut-il transformer ces textes en "image" (pour
autant que ce ne soit pas "Secret Defense")?
Cordialement,
Jean-Luc Ernst
"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).
....snip...
Merci
Ray
Bonjour Clément,
Je viens de regarder Publisher 2000 et je ne peux pas enregistrer non plus
sous un format image (seulement sous format publisher, postscript, txt,
rtf,
et doc). Donc je suis bloqué. Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ? Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
En tout cas merci beaucoup de ton aide
Ray (il fait très chaud à Paris, j'esoère que c'est mieux au Québec)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).
RayBonjour,
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
Bonjour Clément,
Je viens de regarder Publisher 2000 et je ne peux pas enregistrer non plus
sous un format image (seulement sous format publisher, postscript, txt,
rtf,
et doc). Donc je suis bloqué. Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ? Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
En tout cas merci beaucoup de ton aide
Ray (il fait très chaud à Paris, j'esoère que c'est mieux au Québec)
Bonjour,
Publisher 2000 ne supporte pas VBA. C'était une nouveauté de Publisher
2002...
"Raymond Poulain" <RaymondPoulain@discussions.microsoft.com> a écrit dans
le
message de news: 3A599C50-858D-40A6-9E94-278B79EA0126@microsoft.com...
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" <RaymondPoulain@discussions.microsoft.com> a écrit
dans
le
message de news: 94A6B8D7-FB8C-40A5-AB4C-5C8956F5AA0E@microsoft.com...
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
Bonjour Clément,
Je viens de regarder Publisher 2000 et je ne peux pas enregistrer non plus
sous un format image (seulement sous format publisher, postscript, txt,
rtf,
et doc). Donc je suis bloqué. Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ? Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
En tout cas merci beaucoup de ton aide
Ray (il fait très chaud à Paris, j'esoère que c'est mieux au Québec)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).
RayBonjour,
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
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Ray
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Ray
Bonjour Jean-Luc
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
Ray
Mais je ne comprends toujours pas pourquoi ces documents doivent être
transformés en images. Quel est l'usage final? Pourquoi le fait que le
document ne peut être lu sans utiliser l'ascenseur est-il un problème?
Mais je ne comprends toujours pas pourquoi ces documents doivent être
transformés en images. Quel est l'usage final? Pourquoi le fait que le
document ne peut être lu sans utiliser l'ascenseur est-il un problème?
Mais je ne comprends toujours pas pourquoi ces documents doivent être
transformés en images. Quel est l'usage final? Pourquoi le fait que le
document ne peut être lu sans utiliser l'ascenseur est-il un problème?
Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ?
Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ?
Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
Est-ce que je peux télécharger seulement la
version beta de Publisher 2007 chez Microsoft ?
Et si non, comment le
téléchargement de Word Excel... va se interférer avec mon Office 2000 ?
Bonjour !
'Raymond Poulain' nous a écrit ...Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
C'est bien aimable, Raymond, mais depuis le début de cette ficelle
'question rare' mais 'réponses profuses' vous n'avez toujours pas
répondu à la question fondamentale de la destinée de vos images !!!
Nous avons bien compris que vous voulez des images reproduisant les
pages d'un grand nombre de documents Word. On s'échine depuis le
début à vous expliquer qu'une image a une définition (son nombre
de points), une dimension (en mm, cm, m ou km) et une résolution
(généralement en dpi) les trois étant liées. Chaque point dispose
en outre d'un codage de couleur. Lisez peur-être le B-A-BA :
http://www.commentcamarche.net/video/affich.php3
Vous comprendrez que si nous ne savons pas à quoi sont destinées
vos images : Lues sur un écran ? Imprimées en haute résolution ?
Incorporées dans d'autres documents ? ni comment cette masse
d'images sera gérée cette discussion ne fait que s'embourber
inutilement.
Anacoluthe
« Vaines images »
- Gérard de NERVAL
Bonjour !
'Raymond Poulain' nous a écrit ...
Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
C'est bien aimable, Raymond, mais depuis le début de cette ficelle
'question rare' mais 'réponses profuses' vous n'avez toujours pas
répondu à la question fondamentale de la destinée de vos images !!!
Nous avons bien compris que vous voulez des images reproduisant les
pages d'un grand nombre de documents Word. On s'échine depuis le
début à vous expliquer qu'une image a une définition (son nombre
de points), une dimension (en mm, cm, m ou km) et une résolution
(généralement en dpi) les trois étant liées. Chaque point dispose
en outre d'un codage de couleur. Lisez peur-être le B-A-BA :
http://www.commentcamarche.net/video/affich.php3
Vous comprendrez que si nous ne savons pas à quoi sont destinées
vos images : Lues sur un écran ? Imprimées en haute résolution ?
Incorporées dans d'autres documents ? ni comment cette masse
d'images sera gérée cette discussion ne fait que s'embourber
inutilement.
Anacoluthe
« Vaines images »
- Gérard de NERVAL
Bonjour !
'Raymond Poulain' nous a écrit ...Il n'y pas de secret défense... c'est juste une contrainte que je ne peux
pas contourner (sinon j'aurais acquis adobe et j'aurais enregistrer avec
toutes les protections).
Mon problème et bien réel et j'étudie la question depuis des mois, mais je
suis content (1) de voir que ce n'est pas facile à résoudre et (2) que
l'esprit d'entraide soit si vivant et actif sur ce forum.
C'est bien aimable, Raymond, mais depuis le début de cette ficelle
'question rare' mais 'réponses profuses' vous n'avez toujours pas
répondu à la question fondamentale de la destinée de vos images !!!
Nous avons bien compris que vous voulez des images reproduisant les
pages d'un grand nombre de documents Word. On s'échine depuis le
début à vous expliquer qu'une image a une définition (son nombre
de points), une dimension (en mm, cm, m ou km) et une résolution
(généralement en dpi) les trois étant liées. Chaque point dispose
en outre d'un codage de couleur. Lisez peur-être le B-A-BA :
http://www.commentcamarche.net/video/affich.php3
Vous comprendrez que si nous ne savons pas à quoi sont destinées
vos images : Lues sur un écran ? Imprimées en haute résolution ?
Incorporées dans d'autres documents ? ni comment cette masse
d'images sera gérée cette discussion ne fait que s'embourber
inutilement.
Anacoluthe
« Vaines images »
- Gérard de NERVAL