我已经使用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