dier94
Messages postés2Date d'inscriptionmercredi 5 octobre 2005StatutMembreDernière intervention 7 octobre 2005
-
6 oct. 2005 à 09:35
dier94
Messages postés2Date d'inscriptionmercredi 5 octobre 2005StatutMembreDernière intervention 7 octobre 2005
-
7 oct. 2005 à 08:36
Bonjour,
j'ai besoin d'insérer un tableau après un paragraphe mais avec ce code le tableau écrase le paragraphe je suppose qu'il recrée mon doc, il y a t'il une solution et pourquoi ça ne marche pas
merci d'avance
dim WordApp, WordDoc, oTable
Set WordApp = CreateObject("word.application")
WordApp.Application.Visible = false
Set WordDoc = WordApp.Documents.Add()
Set Mypar1 = WordDoc.Paragraphs.Add
set MyRange1 = Mypar1.range
MyRange1.insertafter("FEUILLE DE PRESENCE A LA FORMATION " & vbcrlf)
Tuning Max
Messages postés314Date d'inscriptionmercredi 15 juin 2005StatutMembreDernière intervention31 août 20061 6 oct. 2005 à 17:19
Bon voilà! Je me suis permis de modifier légèrement ton code et il semble que cela fonctionne correctement. Dis moi si cela fonctionne aussi pour toi, merci
En espérant avoir put aider.
Sub Macro2()
Dim WordApp As Application, WordDoc As Document, myRange As Range
Dim Mypar1 As Paragraph, MyRange1 As Range, newpar As Paragraph, newrange As Range
' Chargement d'une nouvelle instance de l'application Word masqué
Set WordApp = CreateObject("word.application")
WordApp.Application.Visible = False
' Création d'un nouveau document et paragraphe
Set WordDoc = WordApp.Documents.Add()
Set Mypar1 = WordDoc.Paragraphs.Add
Set MyRange1 = Mypar1.Range
' Insertion du titre et mise en forme
With MyRange1
.InsertAfter ("FEUILLE DE PRESENCE A LA FORMATION " & vbCrLf)
.Style = "Normal"
.Bold = True
.ParagraphFormat.Alignment = 1
End With
' Définition de la zone d'insertion du tableau
Set myRange = WordDoc.Range(Start:=36, End:=36)
' Création du tableau et insertion d'un texte dans la première cellule
With WordDoc
.Tables.Add Range:=myRange, NumRows:=2, NumColumns:=2
.Tables(1).Cell(1, 1).Range.Text = "blabla, tructruc"
End With
' Création d'un nouveau paragraphe
Set newpar = WordDoc.Paragraphs.Add
Set newrange = newpar.Range
' Insertion d'un texte et mise en forme
With newrange
.InsertAfter ("Le ou les formateur(s) : " & vbCrLf)
.Bold = False
.Italic = False
.Font.Name = "Times New Roman"
.Font.Size = "12"
End With
' Sauvegarde
WordDoc.SaveAs ("c:\temp\temp2.doc")
' Fermeture et déchargement mémoire
WordDoc.Close
WordApp.Quit
dier94
Messages postés2Date d'inscriptionmercredi 5 octobre 2005StatutMembreDernière intervention 7 octobre 2005 7 oct. 2005 à 08:36
Oui je te remercie, jai du aussi modifier un peu ton code car je partais dune page en asp et cétait du vbscript, mais hier javais contourné le problème en transformant une page asppuis html en doc avec