Custom Document Properties erstellen - Word 2007

  • Word

    Custom Document Properties erstellen - Word 2007

    Hallo,

    ich versuche mich derzeit daran in einem Word Dokument zusätzliche CustomDocumentProperties anzulegen. Das soll durch das einlesen einer Excel Datei passieren.
    Dazu habe ich in VS2010 eine WinForm Applikation erstellt.

    Per Knopfdruck soll die Word Datei geladen werden, in welche die CustomDocumentProperties erstellt werden sollen, diese wird erst am Ende sichtbar gemacht. Danach lade ich die Excel Datei. In Spalte "A" befindet sich der PropertyName und in Spalte "B" der PropertyValue.
    Ich weiß nicht genau wo ich richtig anfangen soll, ich habe verschiedene Videos und Artikel im Netz durchgelesen. Hier mein derzeitiger Code:

    Visual Basic-Quellcode

    1. Private Sub btnReadExcel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnReadExcel.Click
    4. Dim ReadExcel As New OpenFileDialog()
    5. Dim i, empty, sum As Integer
    6. Dim wert, listexceltext As String
    8. ReadExcel.InitialDirectory = "C:\"
    9. ReadExcel.Filter = "Excel 2007 (*.xlsx)|*.xlsx|Excel 2003 (*.xls)|*.xls"
    10. ReadExcel.FilterIndex = 1
    12. ExcelFeld.Clear()
    14. If ReadExcel.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
    16. oExcelApp = New Excel.Application()
    17. oExcelWbK = oExcelApp.Workbooks.Open(ReadExcel.FileName)
    18. oExcelApp.Visible = False
    20. End If
    22. i = 1
    23. empty = 0
    25. Try
    26. oExcelWs = oExcelWbK.Worksheets("DocumentProperties")
    28. Do
    29. i = i + 1
    31. wert = oExcelWs.Range("A" & i).Value
    32. If wert <> "" Then
    34. empty = 0
    35. Try
    36. ExcelFeld.Add(oExcelWs.Range("B" & i).Value, wert)
    37. sum += 1
    38. listexceltext = wert & " - " & oExcelWs.Range("B" & i).Value
    39. listProperties2.Items.Add(listexceltext)
    41. Catch ex As Exception
    43. lstLog.Items.Add("Not possible: " & wert)
    44. listexceltext = "!" & wert & " - " & oExcelWs.Range("B" & i).Value & "!"
    45. listProperties2.Items.Add(listexceltext)
    47. End Try
    48. Else
    50. empty += 1
    52. End If
    53. Loop Until empty = 10
    55. Catch ex As Exception
    56. MessageBox.Show("Cannot read file from disk, please check.", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    57. lstLog.Items.Add("Reading Config Excel File not possible - please check!")
    58. End Try
    60. End Sub


    Hier lese ich die Excel Datei mit den Einträgen aus und speichere sie in die Collection "ExcelFeld". Ich möchte jetzt noch einen weiteren OpenFileDialog hinzufügen indem ich die Word Datei auswähle in welche diese Werte aus der Excel Datei als CustomDocumentProperties geschrieben wird.

    Ich weiß nicht wie ich jetzt ansetzen muss... ?(


    Gruß

    Yannick

Facebook
Telefonspende