Re: [VBA ] 如何將替換的文字改變顏色

看板Visual_Basic作者shipship (Ship)時間17年前 (2008/07/22 22:55)推噓2(2推 0噓 3→)

留言5則, 2人參與討論串2/2 (看更多)

試試看這個: With objSelection.Find.Replacement If cheSelect(0).Value = 1 Then .Color = picColor(0).BackColor '網底色彩 If cheSelect(1).Value = 1 Then .Shading.BackgroundPatternColor = picColor(1).BackColor '框線色彩 If cheSelect(2).Value = 1 Then .Borders.OutsideLineStyle = wdLineStyleSingle: .Borders.OutsideColor = picColor(2).BackColor '底線 If cheSelect(3).Value = 1 Then .Underline = wdUnderlineSingle '粗體 If cheSelect(4).Value = 1 Then .Bold = True '斜體 If cheSelect(5).Value = 1 Then .Italic = True End With -- ※ 發信站: 批踢踢實業坊(ptt.cc) ◆ From: 59.115.76.99 ※ 編輯: shipship 來自: 59.115.76.99 (07/22 22:56)

→

shipship

07/22 23:38, , 1^F

07/22 23:38, 1^F

推

mnb7120

07/22 23:44, , 2^F

07/22 23:44, 2^F

→

shipship

07/23 16:04, , 3^F

07/23 16:04, 3^F