A voir également:
- Extraire paragraphe d'un .doc en VB.NET
- Extraire video youtube - Guide
- Téléchargez cette archive (dossier compressé). en extraire tous les fichiers dans un dossier local. quel fichier contient l’expression trouverpix ? ✓ - Forum Windows
- .Doc - Guide
- Extraire musique youtube - Guide
- Dans ce document, mettez en gris les textes des étapes et des conseils en ne modifiant qu'un seul style. sur la première page, vous constaterez qu'un mot restera en noir dans un paragraphe gris. quel est ce mot ? - Forum Google Docs
1 réponse
Bonjour,
Je ne suis pas très fort avec le VBA de Word, toutefois je maitrise
assez bien la manipulation sous Excel.
Voici déjà un exemple de comment manipuler Excel,
la variante avec Word est relativement simple.
Ensuite il te faudra apprendre comment manipuler l'intérieur de Word.
(Voir lien OLE)
p.s. Il te faudra importer des espaces de noms relatif à Office.
Cdt
Lupin
Je ne suis pas très fort avec le VBA de Word, toutefois je maitrise
assez bien la manipulation sous Excel.
Voici déjà un exemple de comment manipuler Excel,
la variante avec Word est relativement simple.
Ensuite il te faudra apprendre comment manipuler l'intérieur de Word.
(Voir lien OLE)
Private Sub btn_CreerFichier_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btn_CreerFichier.Click
Dim appExcel As New Excel.Application
Dim wbExcel As Excel.Workbook
Dim wsExcel As Excel.Worksheet
Dim CheminFichier As String = "C:\Document\"
Dim CheminAcces As String = String.Empty
appExcel = New Excel.Application
wbExcel = appExcel.Workbooks.Add
wsExcel = DirectCast(wbExcel.Worksheets(1), Excel.Worksheet)
wsExcel.Range("A1").Value = "Lupin"
CheminAcces = String.Format("{0}{1}", CheminFichier, "Essai.xls")
wbExcel.SaveAs(CheminAcces)
appExcel.Visible = True
'wbExcel.Close()
'appExcel.Quit()
MessageBox.Show("Fichier créé", "Création", MessageBoxButtons.OK, MessageBoxIcon.Information)
End Sub
p.s. Il te faudra importer des espaces de noms relatif à Office.
Cdt
Lupin