VBA中Selection.TypeText长度限制的替代写法

已于 2022-06-05 11:50:41 修改
阅读量1k 收藏 1
点赞数
分类专栏： # VBA 文章标签： VBA Word VBA VBA基础
于 2022-06-05 11:45:51 首次发布
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_33391499/article/details/125130375
版权
当使用VBA的Selection.TypeText遇到长度限制时，可以改用Selection.Range.Text来替代，以完整输入超长字符串。这种方法适用于需要在VBA中处理大量文本的场景。
摘要由CSDN通过智能技术生成
阅文时长 | 0.06分钟 字数统计 | 100字符
主要内容 | 1、引言&背景 2、解决方案 3、声明与参考资料
『VBA中Selection.TypeText长度限制的替代写法』
编写人 | SCscHero 编写时间
最低0.47元/天 解锁文章
自动读取选择文本值
weixin_44543324的博客
02-16 205
开发工具与关键技术：VS,JavaScript 作者：丁晓娟 撰写时间：2019-2-15 在书上看到一个不一样的读取文本值，平常我们利用文本框都是要输入信息通过点击按钮来进行读取的，这次呢，我们可以不需要用到按钮，只要选择一个文本框里面的内容，然后我们通过自动加载事件，可以自动读取到被选择的文本值，并显示到第二个文本框里，由此可推，我们还可以再多加几个文本框进行依次读取，也就是第二个文本框读取第...
VBA编程_Selection总结
健身房
04-06 5043
文章目录EntireRowRowsEndOffsetNumberFormatLocalInterior   表示光标选择的区域。 EntireRow   表示一整个行： Sub Main() Rows(1).Select ' 选择第1行 Selection.EntireRow.Delete ' 删除第1行 End Sub Rows   表示光标所选择的行： Sub Main() Debug.Print Selection.Rows.Count ' 输出所选择
字符串有长度限制吗？是多少？
next_D的博客
08-19 2222
首先字符串的内容是由一个字符数组 char[] 来存储的，由于数组的长度及索引是整数，且String类中返回字符串长度的方法length() 的返回值也是int ，所以通过查看java源码中的类Integer我们可以看到Integer的最大范围是2^31 -1,由于数组是从0开始的，所以数组的最大长度可以使【0~2^31】通过计算是大概4GB。 但是通过翻阅java虚拟机手册对class文件格式的定义以及常量池中对String类型的结构体定义我们可以知道对于索引定义了u2，就是无符号占2个字节，2个字节可
word命令vba
mxj16888的博客
04-16 1410
Word 宏命令大全 2012-08-28 zhanglei1… 阅 15709 转 151 转藏到我的图书馆 1、 为宏命令指定快捷键。 在WORD中，操作可以通过菜单项或工具栏按钮实现，如果功能项有对应的快捷键的话，利用快捷键可以快速实现我们需要的功能。如最常见的CTRL＋O、CTRL＋A等等。WORD已经为很多功能指定了快捷键，可以大大提高WORD的操作速度，比用鼠标操作快捷很多...
C#操作Word之TypeText()写文本
weixin_30876945的博客
06-16 184
之前我们采用Find.Replacement.Text的方式对word模板上的内容进行替换，Replacement是专门为文本替换而生，但是当我们替换的内容超过一定字符数会出现“字符串参量过长。”异常错误。所以本节我们采用TypeText('字符')来代替原来的Find.Replacement.Text，因为TypeText专职用来写文本用的，所以不会因为字符数影响。 我们还是采用之前...
selection.text
Claroja
06-13 647
d3.js selection.text 可以获得标签的内容，这个方法等同于js的原生方法 selection.node().innerHTML 但是对于<input>标签，selection.text并不起作用，所以这个时候要使用js的原生方法， selection.node().value 通过实验可知对于<input>标签，如果使用selection.at...
excel-vba.rar_ vba .xls_Excel VBA_Excel VBA .xls_VBa_excel
09-21
本资料"excel-vba.rar"包含了对VBA的基础知识和实际应用的详细讲解，旨在帮助用户从零开始逐步掌握VBA的使用。 首先，我们从基础知识入手。VBA是基于Visual Basic的，它使用类似的语法结构。在Excel中，VBA代码通常...
Word VBA中设定Range的几种方法.txt
01-13
在Word VBA中的几种灵活设置Range对象的方法
在EXCEL中用VBA创建WORD文档表格.docx
12-14
.Selection.TypeText Text:=”创建一个WORD表格” .Selection.ParagraphFormat.Alignment = 1 .Selection.TypeParagraph .Selection.Font.Name = "华文行楷" .Selection.Font.Size = 16 .Selection.Font....
Excel中各种VBA写法.pdf
09-30
Excel中各种VBA写法.pdf
处理Selection对象和Range对象——Word VBA中重要的两个对象
热门推荐
foreverfall的博客
05-19 1万+
Selection 对象代表窗口或窗格中的当前所选内容。所选内容代表文档中选定（或突出显示）的区域，如果文档中没有选定任何内容，则代表插入点。每个文档窗格只能有一个 Selection 对象，并且在整个应用程序中只能有一个活动的 Selection 对象。 说明 可以使用 Selection 属性返回 Selection 对象。如果 Selection 属性未使用对象限定符，则 Microsof
Python-VBA函数之旅-type函数
最新发布
ygb_1024的博客
05-14 2190
type函数
VBA中 各种数据类型的使用（自定义数据类型Type，数组，数据字典）、读写文件
sun0322
01-21 1万+
目录 1.各种数据类型 2.VBA定义公共数组（全局都可以使用） 3.读写文件 SJIS 写入 UTF8 写入 读取 SJIS 读取 UTF-8 4.异常处理 5.忽略错误 6.其他常用1 7.其他常用2：读取（多个）Excel文件 8. ★★★各种常用操作总结　★★★ 9.事件相关处理 （保存，离开单元格等操作时，触发处理） 10.定义（调用）有返回值的函数 11.VBS相关操作 --- 1.各种数据类型 --- '* * * * * * * * * * *.
Vb编程引用Word书签
10-22
VB访问word书签。 '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司，天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录！", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub '实现代码如下 Dim cn As New ADODB.Connection Dim AdoRs As New ADODB.Recordset Dim WordTemps As New Word.Application Private Sub Form_Load() If cn.State = 1 Then cn.Close End If cn.CursorLocation = adUseClient cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" End Sub '开始导出数据 Private Sub Command1_Click() Dim strSQl As String Dim REC As Integer Dim i As Integer WordTemps.Documents.Add App.Path + "\货物合同.doc", False WordTemps.Selection.GoTo wdGoToBookmark, , , "合同标题" WordTemps.Selection.TypeText "关于冬季货物的成交合同" WordTemps.Selection.GoTo wdGoToBookmark, , , "合同编号" WordTemps.Selection.TypeText "2004000001" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约单位" WordTemps.Selection.TypeText "宏大科技公司，天天科技公司" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约地址" WordTemps.Selection.TypeText "北京中关村大厦" WordTemps.Selection.GoTo wdGoToBookmark, , , "签约时间" WordTemps.Selection.TypeText fromat(Now, "yyyy-mm-dd") strSQl = "select * from Matrixs" AdoRs.Open strSQl, cn, adOpenKeyset, adLockOptimistic REC = AdoRs.RecordCount If REC < 1 Then MsgBox "无商品记录！", vbOKOnly, "提示" AdoRs.Close Exit Sub Else AdoRs.MoveFirst WordTemps.Selection.GoTo wdGoToBookmark, , , "货物清单" For i = 1 To REC WordTemps.Selection.TypeText AdoRs!名称 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!数量 WordTemps.Selection.MoveRight unit:=wdCharacter, Count:=1 '右移一格 WordTemps.Selection.TypeText AdoRs!规格 AdoRs.MoveNext If AdoRs.EOF = False Then WordTemps.Selection.InsertRowsBelow 1 '表格换行 End If Next i AdoRs.Close WordTemps.Visible = True '显示WORD窗口 End If End Sub
ExcelVBA编程实例.pdf
09-30
在 VBA 编程中，变量是用于存储和操作数据的基本单位。该示例中，定义了多个变量，包括整数类型（cRows、cColumns、HEADERCOLORINDEX、cTemp、i、j、rowIndex、colIndex）、字符串类型（sTempString、TABLENAME、...
vba6.msi vba6文件
09-07
提示缺少vba6.msi的时候，用这个就可以了
HTML5 Selection对象
weixin_30359021的博客
03-26 2034
一、实例1，设置网页选中内容并且复制到黏贴板 <p id='txtone'>发的FDSAFSDFDS！其实不管哪个行业， <img src='http://beijing.gongjuji.net/imgdata/big/4ba6635a-1e69-42b1-b64d-c25f655b4152.jpg'/> 都会遇到这个问题。所以企业员工自身幸福感...
评论 2
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值