marre de ceux qui ne savent pas dans quel langage exactement ils programment !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe suis en train de transposer ce code en VB.Net (je pense même pas que Visual Studio autorise le VBA!) en ouvrant une fenêtre Word via VB (comme tu le proposes) à l'aide de Microsoft.Office.Interop.Word.
Dim wrdapp as new Microsoft.Office.Interop.Word
wrdApp.Selection.MoveDown Unit:=wdLine, Count:=19 wrdApp.Selection.style = wrdDoc.Styles("Titre 2") wrdApp.Selection.TypeText text:="Produits" wrdApp.Selection.TypeParagraph wrdApp.Selection.style = wrdDoc.Styles("Titre 3") wrdApp.Selection.TypeText text:="Produit 1" wrdApp.Selection.TypeParagraph wrdApp.Selection.style = wrdDoc.Styles("Normal") wrdApp.Selection.TypeText text:="Text 1" wrdApp.Selection.TypeParagraph wrdApp.Selection.TypeText text:="Text 2"
tfDocx = New WordDocument(fileName, False, internalMode, richEditWindow)
Dim isProcessOpen() As Process = Process.GetProcessesByName("WinWord") If isProcessOpen.Length = 0 Then wrdApp = New Word.Application wrdDoc = wrdApp.Documents.Open(fileName) wrdApp.Visible = True Else wrdApp = Marshal.GetActiveObject("Word.Application") wrdDoc = wrdApp.Documents.Open(fileName) wrdApp.Visible = True End If
with wrdDoc.SelectContentControlsByTitle("startFormulas).Item(1).range .Style = tfDocx.Doc.Styles("Titre 2") .Text = "Produits" end with
with wrdDoc.SelectContentControlsByTitle("startFormulas).Item(1).range .Style = tfDocx.Doc.Styles("Titre 2") .Text = "Produits" end with with wrdDoc.SelectContentControlsByTitle("startFormulas).Item(1).range.Characters.Last .InsertParagraphAfter() .Style = tfDocx.Doc.Styles("Titre 3") .Text = "essais" End With
Private wrdApp As Word.Application = Nothing Private wrdDoc As Word.Document = Nothing Private wrdPara As Word.Paragraph = Nothing
Il semble que j'ai vraiment du mal m'exprimer dans mon premier message. Je tiens à m'en excuser, car je vous mène sur le mauvais chemin à chercher de résoudre un problème que je n'ai pas