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
app.ActiveWindow.Selection.TypeText(Text:="123456")
' app.ActiveWindow.Selection.ParagraphFormat.Alignment = 1
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.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
老师，测试您的代码，出现一个怪问题。本意是设置12345的颜色，结果是：123456未变色，但后面的789和aaaaaaaaa变成红色了。
[此贴子已经被作者于2015/6/16 19:20:15编辑过]
加好友 
发短信
Post By：2015/6/16 17:16:00 [显示全部帖子]
