- 综合排序
- 最热优先
- 最新优先
- 来自专栏游戏杂谈
TextRange之插入表情
自己写了一个TextRange（参考了网上的一些例子和代码） /** * @author Meteoric_cry */ /** * 文本选区操作类 */ var TextRange = function str.length : 0)); } } }(); 先写个例子测试一下TextRange里面的方法： <! ($("txt"), start, end); TextRange.unCoverInsertText($("txt"), '#===#', { start: start , end: end }) } function setCursorPos() { TextRange.setCursor($("txt"), 3, " content="text/html; charset=utf-8" /> <title>UBB表情的插入</title> <script type="text/javascript" src="<em>textRange</em>.js
1.3K20发布于 2019-02-25 - 来自专栏完美Excel
用于处理图表&图形的VBA代码大全3
我的图表标题" 定位图表标题： cht.ChartTitle.Left = 10 cht.ChartTitle.Top = 10 格式化图表标题： cht.ChartTitle.TextFrame2.TextRange.Font.Name = "Calibri" cht.ChartTitle.TextFrame2.TextRange.Font.Size = 16 cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoTrue cht.ChartTitle.TextFrame2.TextRange.Font.Bold = msoFalse cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoTrue cht.ChartTitle.TextFrame2.TextRange.Font.Italic = msoFalse 图例 图表图例提供了用于标识图表中的每个系列的颜色键。
1.1K30编辑于 2023-08-30 - 来自专栏完美Excel
使用VBA让PPT成为记分牌
图5 对应的VBA代码如下： Dim counter As TextRange Sub counterReset() Dim i As Integer On Error Resume Next For i = 1 To 4 Set counter = ActivePresentation.Slides(i).Shapes("counter1").TextFrame.TextRange counter = 0 Set counter = ActivePresentation.Slides(i).Shapes("counter2").TextFrame.TextRange counter = Resume Next For i = 1 To 4 Set counter = ActivePresentation.Slides(i).Shapes("counter1").TextFrame.TextRange Resume Next For i = 1 To 4 Set counter = ActivePresentation.Slides(i).Shapes("counter1").TextFrame.TextRange
1.1K20编辑于 2023-09-15 - 来自专栏林德熙的博客
WPF How to get plain text from RichTextBox
But we can use TextRange to get plain text. Paragraph> <Run>Paragraph 3</Run> </Paragraph> </FlowDocument> </RichTextBox> And we can use TextRange to get plain text from RichTextBox string text = new TextRange(RichTextBox.Document.ContentStart, RichTextBox.Document.ContentEnd
44510编辑于 2022-08-04 - 来自专栏完美Excel
VBA实战技巧35：使用VBA组织图形2
= 1 w = 1 Set tb =dt.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 70, 50, 50) tb.TextFrame2.TextRange.Text tb.TextFrame2.AutoSize = msoAutoSizeShapeToFitText tb.TextFrame2.WordWrap = msoFalse tb.TextFrame2.TextRange.Font.Size = 16 '确定大形状的大小 For i = 1 To ob.Range("a" &Rows.Count).End(xlUp).Row tb.TextFrame2.TextRange.Text Like "*%*" Then _ ws.Shapes(i).TextFrame2.TextRange.Font.Size = 16 Next On Error GoTo 0 End Sub ' = msoTrue s.TextFrame2.TextRange.Font.Name = "+mj-lt" '轮廓线 If r.Offset(, 4) =
2.2K40发布于 2021-09-22 - 来自专栏完美Excel
VBA实战技巧34：使用VBA组织图形1
= 1 w = 1 Set tb =dt.Shapes.AddTextbox(msoTextOrientationHorizontal, 500, 70, 50, 50) tb.TextFrame2.TextRange.Text = 16 '确定大形状的大小 For i = 1 To ob.Range("a" & Rows.Count).End(xlUp).Row tb.TextFrame2.TextRange.Text Like "*%*" Then _ ws.Shapes(i).TextFrame2.TextRange.Font.Size= 16 Next On Error GoTo 0 End Sub ' ) r.Offset(, 2) =Round(ws.Shapes(i).Left, 0) r.Offset(, 3) =ws.Shapes(i).TextFrame2.TextRange.Text =msoTrue s.TextFrame2.TextRange.Font.Name ="+mj-lt" '轮廓线 If r.Offset(, 4) =
2.1K20发布于 2021-09-22 - 来自专栏完美Excel
使用VBA在PowerPoint中创建倒计时器（续）附示例PPT下载
下面的语句在矩形形状中更新未来时间和当前时间之差： ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange 0) Do Until time < Now() DoEvents ActivePresentation.Slides(1).Shapes("countdown").TextFrame.TextRange For i = 1 To 3 ActivePresentation.Slides(i).Shapes("countdown").TextFrame.TextRange = Format((time - < Now() DoEvents ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange < Now() DoEvents ActivePresentation.SlideShowWindow.View.Slide.Shapes("countdown").TextFrame.TextRange
6.3K41编辑于 2023-08-30 - 来自专栏WebJ2EE
WEB：Range 与 Selection
W3C 的标准接口是： Range； selectionRange； IE 并没有鸟 W3C，自己整了一套： TextRange； TextRanges； controlRange； selection IE 从 9 开始，就实现了 W3C 的标准 Range 接口；但IE7、IE8这些老古董，就只能用 IE 自己的 TextRange 和 selection 接口； ? 4.1. TextRange 与 W3C 的Range 含义一样，代表文档中连续的一部分； 接口简介： 创建一个 TextRange： var range = document.body.createTextRange 示例5：textRange.moveStart、moveEnd等； ? 代码分析： ? document.selection; 从文档中删除当前选中的部分； selection.clear(); 取消当前的选中状态； selection.empty(); 转换当前选中部分为 TextRange
1.8K11发布于 2019-07-19 - 来自专栏Ruby办公自动化
013 Ruby Excel写入PowerPoint
我们通过Pst.slides(j).shapes(1).textframe.textrange.text属性，将数组中指定元素依次写入PPT中。 arr=Ebk.worksheets(1).usedrange.value j=1 (1..n/2).each{|i| Pst.slides(j).shapes(1).textframe.textrange.text +arr[i][2] Pst.slides(j+1).shapes(1).textframe.textrange.text=arr[i][3] j+=2 }
1.1K00发布于 2020-06-23 - 来自专栏清羽飞扬
怎么从PPT中提取出所有的文字内容
ppPlaceholderTitle, ppPlaceholderCenterTitle Print #iFile, "标题：" & vbTab & oShp.TextFrame.TextRange Case Is = ppPlaceholderBody Print #iFile, "正文：" & vbTab & oShp.TextFrame.TextRange Case Else Print #iFile, "其他占位符：" & vbTab & oShp.TextFrame.TextRange End Select Else Print #iFile, vbTab & oShp.TextFrame.TextRange End If vbCrLf Else sTempText = sTempText & Space(depth * 4) & .TextFrame2.TextRange
2.2K10编辑于 2024-05-30 - 来自专栏快乐阿超
html转word或pdf
bookmarkNavigator.moveToBookmark(bookmarkName); // 创建段落 Paragraph para = new Paragraph(doc); // 创建文本内容 TextRange textRange = para.appendText(StringUtils.replaceHtml(data)); // 设置格式 CharacterFormat format = textRange.getCharacterFormat(); // 大小 format.setFontSize(9); // 创建文本域 TextBodyPart bodyPart
3.6K30编辑于 2022-08-16 - 来自专栏葡萄城控件技术团队
Excel小技巧之轻松添加.sjs文件格式
= TextAlignmentAnchor.Left; shape.TextFrame.TextRange.Font.Name = "Calibri"; shape.TextFrame.TextRange.Font.Size = 16; shape.TextFrame.TextRange.Font.Color.RGB = Color.Black; shape.TextFrame.TextRange.Font.Underline = TextUnderlineType.None; shape.TextFrame.TextRange.Paragraphs.Add("Quarterly Results"); shape.TextFrame.TextRange.Paragraphs 28; shape.TextFrame.TextRange.Paragraphs[0].Font.Underline = TextUnderlineType.Single; shape.TextFrame.TextRange.Paragraphs.Add (""); shape.TextFrame.TextRange.Paragraphs.Add("Business Domain: E-Commerce"); shape.TextFrame.TextRange.Paragraphs
1K20编辑于 2023-10-16 - 来自专栏完美Excel
VBA专题09：基本的Excel图表编程代码
'调整柱条间隙 cht.ChartGroups(1).GapWidth = 50 '格式化字体大小 cht.ChartArea.Format.TextFrame2.TextRange.Font.Size = 11 '格式化字体类型 cht.ChartArea.Format.TextFrame2.TextRange.Font.Name = "微软雅黑" '加粗字体 cht.ChartArea.Format.TextFrame2.TextRange.Font.Bold = msoTrue '设置斜体 cht.ChartArea.Format.TextFrame2 .TextRange.Font.Italic= msoTrue End Sub 代码7：移除各种图表属性 Sub RemoveAttributes() Dim cht As Chart MajorGridlines.Format.Line.ForeColor.RGB= RGB(90, 150, 210) '修改图表标题字体颜色 cht.ChartTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB
5.6K41发布于 2020-02-18 - 来自专栏python3
基于python实现自动化办公学习笔记
ppt.Presentations.Add() # 创建页 page1 = pptFile.Slides.Add(1, 1) t1 = page1.Shapes[0].TextFrame.TextRange t1.Text = "sunck" t2 = page1.Shapes[1].TextFrame.TextRange t2.Text = "sunck is a good man ppt.Presentations.Add() # 创建页 page1 = pptFile.Slides.Add(1, 1) t1 = page1.Shapes[0].TextFrame.TextRange t1.Text = "sunck" t2 = page1.Shapes[1].TextFrame.TextRange t2.Text = "sunck is a good man
92830发布于 2020-01-10 - 来自专栏Java架构师必看
Javascript导出Excel的方法
var sel = document.body.createTextRange(); sel.moveToElementText(curTbl); //把表格中的内容移到TextRange 中 sel.select(); //全选TextRange中内容 sel.execCommand("Copy"); //复制TextRange中内容
82130发布于 2021-03-22 - 来自专栏calvin
Quill编辑器介绍及扩展
document.body.createTextRange) { if (document.selection) { textRange window.getSelection(); var range = sel.getRangeAt(0); // 创建临时元素，使得TextRange = document.body.createTextRange(); textRange.moveToElementText(tempEl); tempEl.parentNode.removeChild(tempEl); } textRange.text = text ; textRange.collapse(false); textRange.select();
4.5K20发布于 2018-11-20 - 来自专栏快乐阿超
使用java操作word
textRange = para.appendText(text); // 设置格式 CharacterFormat format = textRange.getCharacterFormat textRange = para.appendText("\uF052"); CharacterFormat format = textRange.getCharacterFormat textRange = para.appendText(enclosureMark); // 设置格式 CharacterFormat format = textRange.getCharacterFormat textRange = para.appendText(StringUtils.replaceHtml(data)); // 设置格式 CharacterFormat textRange = para.appendText(needDown ?
1.9K10编辑于 2022-08-16 - 来自专栏完美Excel
PPT模版分享：仿聊天机器人PPT
Dim A(3) As String Dim query As Shape Dim x As Integer Sub StartGame() Database query.TextFrame.TextRange 22500MW" End Sub Sub EvaluateA() x = x + 1 If UCase(reply.Value) = UCase(A(x)) Then query.TextFrame.TextRange & vbCrLf & Q(x + 1) Else query.TextFrame.TextRange = "错误!
59040编辑于 2023-08-30 - 来自专栏Ruby办公自动化
014 Ruby PowerPoint写入Word
通过双嵌套循环，循环读取PPT中每一页的Shape，利用slides(i).shapes(j).textframe.textrange.text将其中的文字部分写入Word段落对象。 .each{|j| Wdc.paragraphs.add Wdc.paragraphs(s).range.text=Pst.slides(i).shapes(j).textframe.textrange.text
83700发布于 2020-06-25 - 来自专栏鸿蒙开发笔记
鸿蒙开发实战案例：文本选择菜单案例
} return textMenuItems; } this.onMenuItemClick = (textMenuItems: TextMenuItem, textRange : TextRange) => { // 传递当前选中的文本信息 this.selectText = this.controller.getSpans({ start: textRange.start , end: textRange.end }); // 传递当前选中的选项 this.selectMenu = textMenuItems.content.toString(
34110编辑于 2025-03-03
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号