如何將文本替換爲其他格式？

Question

我使用VB.net 2003 +自動化Word 2007的

Document.Content.Find.Execute("Subject/ Title:", , , , , , , , , "Subject/ Title: Insert Subject here") 

我發現上面的代碼是爲我的項目是非常有用的。它用第二個替換第一個字符串。但現在我需要將我的代碼更進一步。我希望冒號後面的文字加下劃線。我嘗試使用範圍，但它沒有奏效。感謝任何形式的幫助！

其次，只有在有文本要找的地方纔有效！我想把文本放在一個空單元格中。如何以編程方式查找單元格？這是文檔第二行中的第二個表格，如果有幫助的話。

Answer 1

我認爲你需要把冒號後的文字放在另一個字符串中。寫這樣的事情：

' Use a Red pen for the underline text decoration. 
     Private Sub SetRedUnderline() 
      ' Create an underline text decoration. Default is underline. 
      Dim myUnderline As New TextDecoration() 

      ' Create a solid color brush pen for the text decoration. 
      myUnderline.Pen = New Pen(Brushes.Red, 1) 
      myUnderline.PenThicknessUnit = TextDecorationUnit.FontRecommended 

      ' Set the underline decoration to a TextDecorationCollection and add it to the text block. 
      Dim myCollection As New TextDecorationCollection() 
      myCollection.Add(myUnderline) 
      TextBlock2.TextDecorations = myCollection 
     End Sub 

上面的代碼，我發現使用TextDecoration類，你可以在這裏看到更多的文件：http://msdn.microsoft.com/en-us/library/ms752372.aspx#Y1178