VB Schriftgrösse in MS Word verändern

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von petaod.

    VB Schriftgrösse in MS Word verändern

    Hallo Zusammen,
    ich beschäftige mich mit der Einbindung mit MS Word. Nun die Basic hab ich ja schon , aber ich möchte die Shriftgrösse und Format unterschiedlich haben.

    Das ist mein Basic Code:

    VB.NET-Quellcode

    1. Imports Excel = Microsoft.Office.Interop.Excel
    2. Imports Word = Microsoft.Office.Interop.Word
    4. Public Class Form1
    5. Dim ObjWord As Word.Application
    6. Dim ObjDoc As Word.Document
    7. Dim ObjExcel As Excel.Application
    8. Dim ObjXlt As Excel.Workbook
    9. Dim ObjPara As Word.Paragraph
    11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. ObjWord = CreateObject("Word.Application")
    13. ObjWord.Visible = True
    14. ObjWord.WindowState = Word.WdWindowState.wdWindowStateNormal
    15. ObjDoc = ObjWord.Documents.Add
    16. ObjPara = objDoc.Paragraphs.Add()
    17. ObjPara.Range.Text = "Test"
    18. ObjPara.Range.InsertParagraphAfter()
    19. End Sub
    20. End Class

    Danke für die Hilfe , wenn es jetzt auch spät erst ist.
    nun hab ich noch zwei weitere fragen , denke eine kann ich hier noch platzeieren:
    ich habe soweit wie gesagt alles , jetzt möchste ich es zentrieren, den text. und bin MSDN entsprechend wie google mir geholfen hat auch nachgegangen aber irgendwie will es noch nicht :

    VB.NET-Quellcode

    1. Imports Excel = Microsoft.Office.Interop.Excel
    2. Imports Word = Microsoft.Office.Interop.Word
    4. Public Class Form1
    5. Dim ObjWord As Word.Application
    6. Dim ObjDoc As Word.Document
    7. Dim ObjExcel As Excel.Application
    8. Dim ObjXlt As Excel.Workbook
    11. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    12. ObjWord = CreateObject("Word.Application")
    13. ObjWord.Visible = True
    14. ObjWord.WindowState = Word.WdWindowState.wdWindowStateNormal
    16. ObjDoc = ObjWord.Documents.Add
    17. ObjPara = ObjDoc.Paragraphs.Add
    18. ObjWord.Selection.Font.Size = 24
    19. ObjWord.Selection.Font.Name = "Arial"
    20. ObjWord.Selection.FormattedText.Font.w
    21. ObjWord.Range.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter
    22. ObjPara.Range.Text = "Test"
    24. ObjPara.Range.InsertParagraphAfter()
    25. End Sub
    27. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    28. ObjDoc = ObjWord.Documents.Add
    29. ObjPara = ObjDoc.Paragraphs.Add()
    30. ObjWord.Selection.Font.Size = 24
    32. ObjPara.Range.Text = "Test"
    33. ObjPara.Range.InsertParagraphAfter()
    34. End Sub
    35. End Class


    vieleicht kann mir da jemand ein tipp geben ?

    TheDoctorWho schrieb:

    ObjWord.Range.Alignment = Word.WdParagraphAlignment.wdAlignParagraphCenter

    Wieso hier plötzlich Range, während du alle anderen Formatierungen auf Selection anwendest?

    So geht's:
    msdn.microsoft.com/en-us/vba/w…graphformat-property-word
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

Facebook
Telefonspende