我已經使用Selection.Extend使特定文本的選擇，從Start到End現在文本是從下面的代碼選擇後查找文字： Selection.Find.ClearFormatting
With Selection.Find
.Text = "Start"
.Forward = True
.Wrap = wdFindStop
End With
我的文檔包含很多空格和段落標記。 我想要做的是檢測字符Selection.find是從A到Z的任何字母？ Dim EE As String
Selection.Find.ClearFormatting
With Selection.Find
.Text = "^?"
.Forward = True
.Wrap = wdFindStop
我想算只有我會用算作Integer運行loop 我的問題是我如何計數,出現在所選文本後，所有的逗號「」如下圖所示： 我不知道如何使用split和ubound。以下代碼有什麼問題？ Sub CountComma()
Dim x As String, count As Integer, myRange As Range
Set myRange = ActiveDocument.Range(Sel
我使用EDRAW來瀏覽Microsoft Word，並且可以是Print , Preview , ETC..。我正計劃添加一些功能。我爲Print Short (8.5 by 11 inches)和Print Long (8.5 by 13 inches)添加了2個按鈕，並且我有2個長按和短按的打印機。如何設置每個按鈕中打印機的屬性？如果我點擊按鈕短，它會打印短1使用打印機1相同的長按鈕，但它是在
我遇到這種情況，我需要clear變量lastWord以便msgbox在接下來的loop中什麼都不會顯示。 以下代碼只是一個示例。 Sub clear_lastWord_Variable()
Dim wordArr() As String
Dim lastword As String
Do
selection.Find.ClearFormatting