Dim strWord As String With Selection.Find .Text = "?" .MatchWildcards = True End With Do While Selection <> "`" Selection.Find.Execute If Selection.Font.Bold = True Then strWord = strWord & Selection Else If Len(Trim(strWord)) <> 0 Then MsgBox strWord End If strWord = "" End If Loop 問題:我現(xiàn)在在文件內(nèi)寫用"`"這個字符注明文檔結(jié)束,可不可以不標(biāo)?