使用下面的代碼，你就可以判斷WORD內(nèi)容是否使用了粗體的字形Dim doc As Document Dim objWD As WordApplication Set objWD = CreateObjectquotWordApplicationquotSet doc = quotCMyWorddocquotIf。

代碼輸入完成后，在下方輸入要設(shè)置為粗體的文字4 第四步，內(nèi)容輸入完成后，在后方輸入代碼b即可5第五步，內(nèi)容輸入完成后，點(diǎn)擊右下角的保存更改按鈕6 第六步，回到個(gè)人資料頁(yè)面，就可以看到粗體文本了。

active，abc就是你自己定的名字，四個(gè)都要這樣改，設(shè)置屬性時(shí)你想哪個(gè)變粗體就把哪個(gè)設(shè)置成粗體，其余正常 分別設(shè)置好以后選中鏈接的字在屬性面板里面樣式下拉菜單里面就會(huì)出現(xiàn)abc，選中效果就出來(lái)了 應(yīng)該說(shuō)的很詳細(xì)了，你去。

vbnet和vb6的寫(xiě)法不一樣 可以用以下代碼來(lái)設(shè)置字體樣式和顏色 TextBox1Font = New FontquotArialquot， 16， FontStyleBold #39Arial字體，大小16，粗體#39TextBox1Font = New FontquotArialquot， 16， FontStyleItalic #39。

舉2個(gè)例子TextBox1Font = New quot隸書(shū)quot， 40， FontStyleBoldTextBox1Font = New quot宋體quot， 25， FontStyleItalic。

2第二步， 執(zhí)行完上面的操作之后， borderbottom屬性用于設(shè)置底部邊框樣式，見(jiàn)下圖，轉(zhuǎn)到下面的步驟3第三步， 執(zhí)行完上面的操作之后，borderbottom #FF0000 2px solid 將邊框大小設(shè)置為2PX紅色邊框，見(jiàn)下圖。

“” 是邏輯或 “” 是邏輯與 “~”是把后面的值轉(zhuǎn)換為bool實(shí)際是bit0或1然后再反過(guò)來(lái)一下在枚舉enum中常用，一般enum的index是從0開(kāi)始的整數(shù)，EnumTypeSomething轉(zhuǎn)換為bool后默認(rèn)都是1，然后反一下就是1。