当我收到要翻译的大文本时,我希望使用我的关联数组(字典)并突出显示所有键的出现,并将它们替换为它们各自的值。
我在VBA中创建了一个宏,并希望将它的语言调整为Autohotkey;但是无论我使用何种方法,Autohotkey都会向我发送一条消息:“此操作未被识别”,使用oWord.With Selection.Find.Replacement.Font行。
;* the “translated” VBA-code to find all instances of the word “the”, and replace their font color with blue
#IfWinActiv
您好,我有一个问题,显示或转移到我的richtextbox中的数据到其他richtextbox…
richtextbox1.Document = richtextbox2.Document; //This will be the idea..
实际上,我计划做的是,我想将我的数据从我的数据库传输到我的listview,它将按原样显示
SQLDataEHRemarks = myData["remarks"].ToString();// Here is my field from my database which is set as Memo
RichTextBox NewRic
我在VBA中有多个子程序,它们的输出都在PPT幻灯片中的同一个文本框(WarningData)中。例如,Sub 1接受用户选择(他们从GUI中的下拉菜单中选择)并将其插入文本框的顶部。在这一行下面插入另一行文字。第3分节在下面插入附加文本。我需要Sub 1和2具有相同的字体样式,但是Sub 3需要有不同的字体。
下面是Sub1和Sub 2的样子:
Private Sub 1() 'Sub 2 is very similar.
Call Dictionary.WindInfo
'Sets the font for the warning information text.
以下是我的HTML:
<ul contenteditable>
<li>Hi there 1</li>
<li>HI 2 2 2 2 2</li>
<ul><li>hi 3</li></ul> <!-- I know it's invalid, it's what document.execCommand('indent') yields -->
<li> hi 4 hi there people 4 here no
这将从形状或文本框中删除文本,但不会从分组文本框或形状中删除。
如何修改下面的代码以满足我的需要?
我想要的是简单地删除字符串strf和"(" & strf & ")"在ppt中的任何位置。但这似乎忽略了分组对象。
For Each Sld In PP.Slides
For Each Shp In Sld.Shapes
With Shp
.TextFrame.TextRange.Text = Replace(.TextFrame.Text
我正在设计一个宏来验证PowerPoint演示文稿,它检查幻灯片上的每个文本框/形状,并输出字体类型、大小和颜色。我让它的工作到了一点,它会吐出每个形状的字体大小,问题是,当有多个字号的每行在一个给定的形状。目前,如果第一行是Arial 12,下一行是Arial 14,则输出只需取第一行,并表示Arial 12有两行。
Dim lFindColor As Long
Dim oSl As Slide
Dim oSh As Shape
Dim colorsUsed As String
Dim fontsUsed As String
Dim lRow As Long
Dim lCol As Lo
我在PowerPoint中创建了一个宏,它执行以下操作:用户单击幻灯片上的文本框。它为框架命名,并打开一个对话框供他们从文本文档列表中选择。他们选择一个,文本被读取并插入到指定的文本框架中。
下面是代码的插入部分:
Dim file As Object
Dim Text As String
Set file = CreateObject("Scripting.FileSystemObject").OpenTextFile(vrtSelectedItem, 1)
Text = file.ReadAll
oShape.TextFrame.TextRange.Text = Text
我正在尝试使用Excel VBA从Excel中的数据自动构建组织结构图。它工作得很好,但是,我希望有两个文本框架填写。在大的文本框中,我想要填写部门的描述,在小的文本框中,我想要添加部门代码。
我找不到访问较小文本框架的代码。
Do While Source.Cells(Line, 1) <> ""
If Source.Cells(Line, 3) = PID Then
Set ParNode = QNode
If Source.Cells(Line, 4) = 1 Then
Set QNode = Q
我要经历无数的力量点,用新的单词替换特定的单词。我做了一个看起来很有效的宏,但是经过仔细的检查后,我意识到桌子里的单词是没有被取代的。经过一番探索,我看到了其他人有这个问题,但没有明确的答案。我想出了以下内容,但在读取For Each grpItem In shp.GroupItems的行中,我也得到了运行时错误“这个成员只能为一个组访问”
有人能提供关于我做错了什么的洞察力,或者一个更好的方法来做到这一点吗?
Sub DataScrubAllSlidesAndTables()
Dim sld As Slide
Dim grpItem As Shape
Dim shp
我试图在WPF RichTextBox中以编程方式(使用regex)实现文本格式设置。用例只是一个WPF RichTextBox,用户在其中输入文本。但是,为了提高或加快可读性,我想在输入文本时加入一些自动格式化。
以下来自的代码正是我所要做的。但是,据我所知,这段代码用于WinForms RichTextBox:
public void ColourRrbText(RichTextBox rtb)
{
Regex regExp = new Regex(@"\b(For|Next|If|Then)\b");
foreach (Match match in re
我想将选定的文本突出显示为颜色,但这是行不通的。你能帮我吗?
Sub ShadingLtYellow()
ActiveWindow.Selection.TextRange.HighlightColor.RGB = RGB(255, 255, 175)
End Sub
此外,我是否可以使用键盘快捷方式(如Excel上的应用程序键)触发宏?
这就太好了
我的代码如下。基本上,每个powerpoint表格应该只包含32行的excel数据(和标题行),所以我希望幻灯片编号每隔32行增加一次,以便excel在各行之间循环以复制数据。如果这没有意义,我很乐意进一步解释,但我想给我的问题提供一些形式的背景。
据我所知,我有一个do until,loop,if和end if。然而,我得到了'Loop without do‘错误,我不知道为什么。
N=2
Do Until n = lrow
Set oPPTShape = oPPTFile.Slides(SlideNum).Shapes("Table 3")
With
我需要将段落格式应用于富文本框中的选定内容。我的RTB的行为与StackOverflow上的富文本框相同--用户可以在RTB中键入文本,但也可以输入代码块。RTB将对代码块应用非常简单的格式--它将更改字体并将背景颜色应用于整个代码块,类似于您在下面的代码块中看到的内容。
更改字体非常简单:
var textRange = new TextRange(rtb.Selection.Start, rtb.Selection.End);
textRange.ApplyPropertyValue(TextElement.FontFamilyProperty, "Consolas");