精华内容
下载资源
问答
  • VB VBA 文本框回车键换行

    千次阅读 2014-12-26 14:57:51
    1,设置文本框Multiline = true 2,设置文本框Wordwarp = true 2,设置文本框Enterkeybehavior= true 最好加个Scrollbars , vertical为垂直的 菊子曰:我在用着的博客编辑软件

    1,设置文本框Multiline  =  true

    2,设置文本框Wordwarp  =  true

    2,设置文本框Enterkeybehavior=  true

     

    最好加个Scrollbars , vertical为垂直的

     菊子曰:我在用着的博客编辑软件
    展开全文
  • Sub 整理网页()'整理网页:删除软回车、删除空白段、使段落文字两端对齐Selection.WholeStory Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "?...

    Sub 整理网页()
    '整理网页:删除软回车、删除空白段、使段落文字两端对齐
    Selection.WholeStory
       
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = "?^l"
            .Replacement.Text = "^&^p"
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = False
            .MatchAllWordForms = False
            .MatchSoundsLike = False
            .MatchWildcards = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^1^l"
            .Replacement.Text = "^&^p"
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^l"
            .Replacement.Text = ""
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^s"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
            .Text = "^p^p"
            .Replacement.Text = "^p"
            .MatchWildcards = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Selection.Paragraphs.Alignment = wdAlignParagraphJustify
    End Sub

    Delphi可以通过ole word的方式来运行宏:

    WordDoc := WordApp.Documents.open(fileName:=fn, Revert:=true, Visible := True);
    wordapp.Run( MacroName:='整理网页');

    非常蹊跷的是,如果Visible := False,则word宏不能运行!

     

    转载于:https://www.cnblogs.com/wxb-km/p/5212101.html

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第91讲内容:限制文本框的输入.应该说,VBA的内容非常的广泛,但大多数情况下我们利用到的只是很少的一部分。比较VBA和VB,VBA不用再单独建立系统的环境,何乐而不为?...

    大家好,我们今日继续讲解VBA代码解决方案的第91讲内容:限制文本框的输入.应该说,VBA的内容非常的广泛,但大多数情况下我们利用到的只是很少的一部分。比较VBA和VB,VBA不用再单独建立系统的环境,何乐而不为?那么从今日开始陆续讲解一些窗体的代码经验,和大家分享。

    今日就从最为基本的文本框开始,如何限制文本框的输入内容。用户在使用文本框输入数据时,往往希望能限制输入数据的类型,比如只能输入数字。但是没有内置的属性能限制在文本框中只能输入数字,只能在文本框的事件过程中使用代码来测试输入的是哪类字符,然后只允许输入数字字符和一个"-"号、一个"."号,如下面的代码所示。

    这里会用到KeyPress事件,它的语法如下:

    Private Sub object_KeyPress( ByVal KeyANSI As MSForms.ReturnInteger)

    其中参数Object是必须的,是一个有效的对象;参数KeyANSI是可选的,整数值,代表标准的数字ANSI 键代码。ANSI是一种字符代码,为使计算机支持更多语言,通常使用 0x80~0xFF 范围的 2 个字节来表示 1 个字符。ANSI编码表示英文字符时用一个字节,表示中文用两个或四个字节

    下面我们看看代码实测:

    Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

    Select Case KeyAscii

    Case Asc("0") To Asc("9")

    Case Asc("-")

    If InStr(1, Me.TextBox1.Text, "-") > 0 Or _

    Me.TextBox1.SelStart > 0 Then

    KeyAscii = 0

    End If

    Case Asc(".")

    If InStr(1, Me.TextBox1.Text, ".") > 0 Then

    KeyAscii = 0

    End If

    Case Else

    KeyAscii = 0

    End Select

    End Sub

    代码解析:文本框的KeyPress事件过程,测试键盘输入的是哪类字符,只允许输入数字字符和一个"-"号、一个"."号。

    第2行代码使用Case Else语句测试文本框KeyPress事件的KeyAscii参数值。

    第3行代码,如果键盘输入的是0到9之间的数字字符,则允许输入。如果想在文本框中允许其它类型的字符输入,在此句代码中列出允许输入的字符即可。

    第4行到第8行代码,如果键盘输入的是"-"号,先使用InStr函数测试文本框中是否已有"-"号,如果InStr函数返回值大于0,说明文本框中已有"-"号。接下来使用文本框的SelStart 属性来测试插入点,如果文本框的SelStart 属性值大于0,说明"-"号的插入点不是第一个。如果以上两个条件中有任何一个成立,将KeyAscii参数值设置为0,使文本框只能在第一位输入一个"-"号。

    第9行到第12行代码,如果键盘输入的是"."号的话,使用InStr函数测试文本框中是否已有"."号,如果已有"."号,将KeyAscii参数值设置为0,使文本框只能输入一个"."号。

    第13、14行代码,如果键盘输入的是其他字符则将KeyAscii参数值设置为0,使文本框不能输入其他字符。

    代码窗口:

    f0943bee45d5e3526f3d36150ce952cb.png

    代码运行窗口:

    8225f81dccc86eb69b50c721ada62775.png

    此时只可以输入数字了:

    12ce750696b9b28f2ce87d7d7ee68325.png

    今日内容回向:

    1 如何做到文本框只能输入数字?

    2 本例子中你认为还可以有哪些扩展?

    展开全文
  • 大家好,我们今日继续讲解VBA代码解决方案的第139讲内容:理解Word的段落标记以及如通过VBA来设置段落的标记。当通过VBA处理文本时,我们必须理解 Word中段落标记的意义。其实,Word 文档就是一个巨大的字符流。这种...

    大家好,我们今日继续讲解VBA代码解决方案的第139讲内容:理解Word的段落标记以及如通过VBA来设置段落的标记。当通过VBA处理文本时,我们必须理解 Word中段落标记的意义。其实,Word 文档就是一个巨大的字符流。这种字符流是单词(Character)、句子(Sentence)和段落(Paragragh)的集合。所以,文档就是一些字符。每个字符都有一定的作用。某些字符是字母、空格或制表符,另一些字符是段落标记或分页符等等。

    一 什么是段落标记,什么是段落,段落标记在Word 文档中的作用

    ① 段落标记是我们在microsoft word中敲击回车键后出现的弯箭头标记,该标记又叫硬回车,在一个段落的尾部显示,包含段落格式信息。

    ② 什么是段落呢?段落就是包含一个段落标记以及所有位于此段落标记和前一个段落标记之间的文本(不包括前一个段落标记)。

    ③段落标记的作用 段落标记本包含该段落的所有格式信息。当复制单词、句子和段落时,如果包含段落标记,则所有包含在段落标记中的格式信息也被复制,并在它们被粘贴到其它位置时应用于所属段落。如果您想从段落中复制文本并将其粘贴到另一个段落中,但不想同时复制段落格式,复制时请不要包括您要复制的文本旁边的段落标记。

    ④ 段落标记与换行的区别

    f493bcc73c27edcddc01c107ca4f83c1.png

    在Word文档中,肯定经常看到上面圆圈圈起来的符号,如果看不到,请按快捷键"Ctrl+Shift+8"显示所有编辑标记。我们会看到两种符号:"软回车"和"硬回车"的说法。就是我们这里所说的换行与段落。

    上面那个向下的灰色箭头,就是软回车,学名叫"换行符",又叫手动换行符,是通过"Shift+回车"输入的,其作用是使用当前文字强制换行,但是不分段。

    只有直接按下回车时才显示那个向左拐的箭头即硬回车,才是一段完整录入完成,表示一个段落的结束。

    二 有了段落的概念,我们就要设计段落的设置了

    段落设置的语法:Selection.ParagraphFormat.Alignment=设置值下面为五种对齐方式的设定:

    ①左对齐wdAlignParagraphLeft

    ②居中wdAlignParagraphCenter

    ③右对齐wdAlignParagraphRight

    ④两端对齐wdAlignParagraphJustify

    ⑤分散对齐wdAlignParagraphDistribute

    下面示例设置段落的对齐方式为"居中"。

    Sub MynzSetAlignment()

    With Selection.ParagraphFormat

    .Alignment = wdAlignParagraphCenter

    End With

    End Sub

    三、设置段落的缩进,段落的缩进有两种单位:厘米和字符。下面示例将段落的左缩进、右缩进分别设为1.8cm、2.5cm

    Sub MynzSetIndent()

    With Selection.ParagraphFormat

    .LeftIndent = CentimetersToPoints(1.8)

    .RightIndent = CentimetersToPoints(2.5)

    End With

    End Sub

    按照字符的缩进代码为:.CharacterUnitLeftIndent=2;.CharacterUnitRightIndent=0

    代码截图:

    8e4466b221577e3f4a049cfc6541db67.png

    MynzSetAlignment 的运行结果:

    5ad51c752d32364b05ae7cd4a523ede3.png

    MynzSetIndent 的运行结果:

    aef630a7ff593865df4f42e1fe942518.png

    今日内容回向:

    1 WORD中如何什么是段落?什么是段落标记?

    2 如何设置段落?

    备注:关于字符Characters、单词Words、句子Sentences、段落Paragraphs和节Sections的区分在VBA代码解决方案中有详细的内容补充

    展开全文
  • vba读到一个字符串,看上去没有回车存在,应该是回车的地方看上去是个空格。但是我用split(str," ")解析这个字符串的时候发现,第一个数组成员是"User: 1.",第一行的最后一个成员是"小苗 2."。 请问我该怎么处理...
  • Word VBA 探测普通字符与回车符之间有其它字符的情况。 适于用word2010。 本例是:探测出来word文件中,句号与回车符之间有其它字符的情况,且其它字符为2-4个的情况。 代码如下: Sub test_ZhiFu_and_Enter_...
  •  如题,实际应用中,客户输入的地址中含有回车换行,导致格式转换中出错,因此需要清除掉,方法有二: 1、替换,这个方法只能清除一个回车换行 '检测地址中是否有回车换行 addr = Cells(row1, 12) If InStr(1, ...
  • excel 中 有两个 textbox 控件 在 第一个 textbox 输入完了后 按 回车 (enter ) 焦点转移到 第二个 textbox 求 实现方法 ???、
  • VBA中取得cells中的回车字符位置

    千次阅读 2007-03-07 16:42:00
    Dim StrValue As StringStrValue = ActiveSheet.Cells(i, 2)pw_rtn = InStr(StrValue, Chr(10))
  • 1、经常编辑文章会出现大量硬回车,甚至两端还有空格,要连成一个段落经常需要逐行处理。本文本是vba编写的段落连接模块,放入宏里就可使用,使用时只要将一个段落的行选上,运行本模块就可以自动连成一个段落,并且...
  • VBA在Subline Text 3中编写。VBA编辑器插件的安装 1、首先需要安装 Package Control。 2、打开命令面板(Command Palette)Ctrl+Shift+P,输入 Install Package 然后回车。Install Package打开后再输入VBScript,...
  • VBA消息框

    千次阅读 2017-11-23 17:26:54
    VBA消息框 MsgBox函数显示一个消息框,并等待用户点击一个按钮,然后根据用户点击该按钮的动作执行。 语法 MsgBox(prompt[,buttons][,title][,helpfile,context]) 参数说明 Prompt - 必需的参数。这显示在...
  • 02查找替换功能小试身手 将换行符替换成回车符 我们在“查找内容”文本框中输入“^l”(代表换行符),然后在“替换为”右侧的文本框中输入“^p”(代表回车符),最后单击“全部替换”按钮。替换完成后会弹出一个...
  • 本代码实现了GBK到UTF-8的转换以及文本替换生成新文件。源文本为GBK编码形式:姚广孝,江苏长洲人,生于医学世家,十四岁时出家当了和尚,法名道衍。大家都知道华夏文化都是同源的,那时的读书人只要懂得周易就多少...
  • VBA 开发心得

    2012-06-07 21:07:13
     【2048个字符的字符串】 = 【1023个字符的字符串】 + 回车 + 【1023个字符的字符串】 + 回车 + 【2个字符的字符串】  这种情况下,在使用SQL查询的时候你会难以预料自己的字符串在什么时候被截断,并
  • VBA常用指令总结

    千次阅读 2017-05-13 15:07:31
    (1)vba 字符串换行的几种方法 VBA中字符换行显示需要使用换行符来完成。下面是常用的换行符  'chr(10) 可以生成换行符  'chr(13) 可以生成回车符  'vbcrlf 换行符和回车符  'vbCr 等同于chr(10)  'vblf...
  • VBA笔记-参考教程

    2018-08-02 10:45:00
    参考教程1:http://www.cnblogs.com/wuzhiblog/tag/VBA/ 1. VBA中字符换行 VBA中字符换行显示需要...下面是常用的换行符 'chr(10) 可以生成换行符 'chr(13) 可以生成回车符 'vbcrlf 换行符和回车符 'vbCr 等同于...
  • 最初做票据打印的时候,通过一些自定义的函数实现“数字变大写”...后来VBA的技巧渐渐熟悉一些,开始用代码处理。也是通过函数,但是更加巧妙和便捷了。这里介绍一个单元格变化激发程序。Private Sub Worksheet_Chan...
  • vba 杂记2

    2017-10-16 17:38:00
    '检测地址中是否有回车换行 '用系统函数,这个方法可以清除所有非打印字符 addr = Application.WorksheetFunction.Clean(addr) '清除一个换行回车符 addr = Replace(addr, Chr(10), "") addr = Replace(addr, Chr(13...
  • vba键盘事件

    千次阅读 2018-12-12 09:23:55
    '文本框键盘按键事件-回车 Private Sub TextBox_Pwd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = vbKeyReturn Then  MsgBox "OK"  End If End Sub...
  • 提示:在录入文本时,若直接按“Enter”键换行,是新起一个段落,此时,显示的是向左箭头的分段符,俗称“回车符”;若按“Shift + Enter”组合键换行,会出现一个向下的垂直箭头。这个向下垂直箭头,又称为“手动...
  • VBA常用技巧

    2014-12-21 16:39:28
    技巧100 文本框回车自动输入 12 技巧101 自动选择文本框内容 12 技巧102 设置文本框数据格式 12 技巧103 限制文本框的输入长度 12 技巧104 将光标返回文本框中 12 技巧105 文本框的自动换行 12 技巧106 多个文本框...
  • VBA小试牛刀

    2006-08-13 20:07:00
    当我将书的第一章内容复制到Word中时才发现字符中混杂了太多的回车符。这时我想起前几天学习的VBA课程,在这里小试牛刀咯。下面就是我写的一段VBA程序,可以将文本中的多余空行删除。其算法是逐行扫描文档,当发现...
  • VBA——Msgbox

    2018-07-31 22:40:00
    MsgBox(prompt[,buttons][,title][,helpfile,... 如果消息扩展为多行,则可以使用每行之间的回车符(Chr(13))或换行符(Chr(10))来分隔行。 buttons- 可选参数。一个数字表达式,指定要显示的按钮的类型,要使用...
  • VBA 相关常数

    2013-06-05 11:13:00
    回车符。 vbLf Chr(10) 换行符。 vbCrLf Chr(13) & Chr(10) 回车符和换行符。 vbNewLine Chr(13) & Chr(10)或Chr(10) 平台指定的新行字符,适用于任何平台。 vbNullChar Chr...
  • Excel 宏 VBA

    千次阅读 2012-05-03 13:51:36
    在EXCEL公式中插入回车符并显示出来: 在公式中加&CHAR(10)&,同时要将单元格设置为自动换行。 同理:公式中加入冒号":"可用&CHAR(58)&利用+形进行序列填充时,若公式中含有多个单元格编号:T22&CHAR(58)&CHAR(10)...
  • VBA编程技巧大全

    2013-08-05 09:03:19
    技巧100 文本框回车自动输入 234 技巧101 自动选择文本框内容 235 技巧102 设置文本框数据格式 236 技巧103 限制文本框的输入长度 238 技巧104 将光标返回文本框中 239 技巧105 文本框的自动换行 241 技巧106 多个...
  • excel vba 特殊符号

    千次阅读 2013-09-30 19:20:42
    常数 值 描述 vbCr Chr(13) 回车符。 vbCrLf Chr(13)&Chr(10) 回车符与换行符。 vbLf Chr(10) 换行符。 vbTab Chr(9) 制表符
  • sublime text配置VBA编辑器插件

    万次阅读 2016-11-07 23:10:02
    首先需要安装 Package Control。 打开命令面板(Command Palette)...即可完成VBA编辑器插件的安装。 附:可以通过手动下载安装包 下载 git clone https://github.com/SublimeText/VBScript 解压放到Sublime text中的

空空如也

空空如也

1 2 3 4 5 6
收藏数 110
精华内容 44
关键字:

vba回车