主题：[求助]颜色转换问题

app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,10,10,10).ToARGB

app.ActiveWindow.Selection.Font.Color = Color.Red.ToARGB

 一样的意思，只是word中的，A参数透明度，是0，而不是255而已

 所以要处理一下

Dim c As Color = Color.Red

app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,c.R,c.G,c.B).ToARGB

搞错了，要换过来

Dim c As Color = Color.Red

app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,c.B,c.G,c.R).ToARGB

Dim app As New MSWord.Application
try
    Dim fileName = "d:\test.doc"
    Dim doc = app.Documents.Open(fileName)
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    Dim c As Color = Color.Red
    app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,c.B,c.G,c.R).ToARGB
    app.ActiveWindow.Selection.TypeText(Text:="123456")
    ' app.ActiveWindow.Selection.ParagraphFormat.Alignment = 1
   
    c = Color.black
    app.ActiveWindow.Selection.Font.Color = Color.F romARGB(0,c.B,c.G,c.R).ToARGB

    app.ActiveWindow.Selection.InlineShapes.AddPicture(FileName:= _
    "d:\test.jpg" _
    , LinkToFile:=False, SaveWithDocument:=True)

    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="789")

    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.TypeText(Text:="aaaaaaaaaaaa")
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try