今天在学习redis的时候,发现vim打开redis.conf配置文件的时候,#注释起来的代码是蓝色的,阅读起来很不方便。 ? ?...于是我研究了一下,发现SecureCRT中注释的颜色还是可以更改的,方法如下: 1.在根目录下执行 vim ~/.vimrc 如果没有 .vimrc 文件就直接新建一个 2.在这个文件中追加一行代码...hi Comment ctermfg = cyan 大功告成,换成了这个颜色便于阅读,学习效率大幅度提升 ?
标签:VBA Q:我在工作表中放置有一些形状,例如圆形、矩形等,我想当我在工作表中使用鼠标单击这些形状时能够根据单击的形状有不同的操作,该如何实现?...我想在一个过程中实现,而不是每个形状关联不同的过程。 如下图1所示,当我使用鼠标单击上方的圆形时,会执行一个操作;单击下方的矩形时,会执行另一个操作,但这两个形状都关联相同的过程。...图1 A:在示例工作表中,将上方的圆形命名为“椭圆示例”,下方的矩形命名为“圆角矩形”。...Else MsgBox "没有单击到任何形状." End If End Sub 然后,返回工作表,在形状中单击鼠标右键,将其关联到宏过程testShape。...当你单击工作表中的形状时,结果如下图2所示。 图2 你可以代替过程中MsgBox行的代码为你想要执行的操作代码。
标签:Word VBA 通常,当我们在文档中键入超链接形式的文字并按回车键时,Word会自动识别并添加超链接。当然,你可以设置Word选项来阻止自动转换功能。...具体设置方法如下: 单击“文件——选项”,在出现的“Word选项”窗口中选择左侧的“校对”选项卡,在右侧单击“自动更正选项按钮”,在出现的“自动更正”窗口中选择“键入时自动套用格式”,取消勾选其中的“Internet...图1 然而,对于文档中已经存在的超链接,则还需要逐个取消。...,那么运行上述代码后,目录中文本的超链接会被取消,但页码的超链接仍保留。...Word VBA文章,是自己边学习边分享的,有用无用看个人,希望大家不要发表一些不好的评论,这些评论我不会通过的!
VBA是一种通用编程语言,适用于任何内置有VBA的应用程序,因此Word VBA与Excel VBA的语法一样,只是处理的对象模型不同。下面,我们通过一些示例语句及其作用描述来熟悉Word VBA。...'当前应用程序文档的高度 (3) Application.Width ‘当前应用程序文档的宽度 (4) Application.Build ‘获取Word版本号和编译序号 (5)Application.Caption...‘当前应用程序名 (6)Application.DefaultSaveFormat '返回空字符串,表示Word文档 (7)Application.DisplayRecentFiles '返回是否显示最近使用的文档的状态...(46)ActiveDocument.Shapes.Count '当前文档中的形状数 (47)ActiveDocument.Styles.Count'当前文档中的样式数 (48)ActiveDocument.Tables.Count...For lRowNum = 1 To rng.Paragraphs.Count '行号数值转换成文本 strRowNum = str(lRowNum)
标签:VBA,Shape对象 本文介绍使用VBA创建和操控形状的知识。 在Excel中,可以通过功能区“插入”选项卡“插图”组中的“形状”库按钮在工作表中插入形状。...可以使用形状来可视化数据、在形状中添加文本、作为执行宏代码的按钮,等等。 使用AddShape方法创建形状 要使用VBA在Excel中创建形状对象,必须调用AddShape方法。...End Sub 确定形状位置 有两个属性可以修改,用以更改工作表中形状的位置。这两个属性是形状的Left和Top值,如下图11所示。...End Sub 确定形状大小 可以使用VBA修改两个属性来更改形状的大小。这两个属性是形状的Width值和Height值,如下图12所示。...下面的代码示例遍历当前选定的工作表中的所有形状对象,仅更改矩形形状的填充颜色。
标签:Word VBA 本示例演示如何使用代码删除已排序表中第1列内容相同的行,代码如下: Sub DeleteTableDuplicateRows() Dim objTable As Table...For i = 1 To objTable.Rows.Count - 1 '设置对象变量为下一行 Set objNextRow = objRow.Next(wdRow) '比较表格第1列的文本...objRow = objNextRow End If Next i '打开屏幕更新 Application.ScreenUpdating = True End Sub 上面的代码区分大小写,即第一列中内容相同但大小写不同不会被删除...代码在Word表格的单元格中移动的方法。...那么,对于没有排序过的表格,如何使用VBA删除重复行呢?
有些Excel用户喜欢在工作表中绘制形状,以实现其目的。例如,如下图1所示,绘制一个矩形方框来强调这些单元格中的数据。 ?...如果你想移除工作表中添加的所有红色矩形框,可以使用下面的代码: Sub RemoveAllShapes() Dim shp As Shape '遍历当前工作表中的所有形状 '如果不是图表...然而,在有些情形下,工作表中可能存在除红色矩形框之外的其他形状,而我们并不想删除这些形状。实现这种情形的一个技巧是,在添加这些形状时重命名并在其名字后添加指定的字符作为标记。...End Sub 这样,就可以很方便地使用VBA代码找到所有的红色矩形框并进行相应的操作了。...'检查形状名字后面指定的名称标记 If Right(shp.Name, Len(strTag)) =strTag Then '修改颜色为蓝色
标签:Word VBA 在Word文档中,复制文本并在某处粘贴是经常要进行的操作。...然而,如果文档中包含有自动编号的文本内容,例如以自动编号的数字开头的文本,如果要复制的内容不包括第一个编号项,那么这种复制粘贴操作可能会导致问题。在这种情况下,原始文档中的数字和粘贴的文本将不匹配。...下面的代码会解决这样的问题。它将创建文本的副本,其中自动编号的数字已被转换为普通文本,以便在粘贴时保留数字。...." & vbCr & _ "本程序将自动编号的数字修改为正常文本,以便在其他位置粘贴时保持正确的数字编号." & vbCr & vbCr & _ "运行程序前,必须选择想要在其他位置插入的文本...接着,在要粘贴文本的位置进行粘贴操作。这样,原始文本内容(包括自动编号)保持不变。
在处理一些英文姓名时,经常会发现,excel表中的大小写和Power BI中的不一样,这篇文章简单说明一下: 如上图所示,在pq中处理数据时大小写是与excel完全一致的,但是加载到报表中就会发现已经发生了变化...它看到的第一个名称是第 1 行,ID 1:"San Zhang"。它将该值存储在一个列表中,用于跟踪 Name 的唯一值。...然后,它将 ID 和对"San Zhang"的引用存储在 Names 列表中,并继续执行第 2 行。 对于第 2 行,它会看到另一个名字:"Sure Liu"。...它将它与已经存储在名称列表中的内容("San Zhang")进行比较,忽略大小写,并发现它不一样。...在Power BI的引擎处理过程中,AaBaCcDd和aaBbCcDd完全是一回事,根本解决不了问题。 那么问题来了: 如果我们想让a和A分别按照原先的大小写进行显示,该如何做呢?
标签:Word VBA 如果文档中设置了许多书签,如何清楚地看到它们并快速导航?一个好的方法是创建菜单实现,其中在菜单上为每个书签创建一个项目,这样在选取该项目时快速转到该书签。...'然后使隐藏的书签不可见 '(不希望交叉引用等出现在菜单中) ShowHiddenStatus = ActiveDocument.Bookmarks.ShowHiddenActiveDocument.Bookmarks.ShowHidden...ActiveDocument.Bookmarks(CommandBars.ActionControl.Caption).Range.Select End If End Sub 运行CreateBookMarkMenu过程后,将在Word...文档功能区“加载项”选项卡中出现一个名为“书签”的菜单,如下图1所示。...当然,你可以对上述代码稍作改动,将其功能放置在已有的选项卡中或者右键快捷菜单中,这取决于你的使用习惯。
将Excel数据输入到Word文档并不难,但这会破坏书签,如果你在对Word文档进行了大量修改后发现想要重新从Excel中输入数据,那可能会令人沮丧。...因此,下面的这段代码很简单,对其进行设置,只需为Excel中的文本、区域和图表命名,并按照代码中的说明在Word书签中创建匹配的名称。 注意,我不能保证它在所有情况下都能工作。...完整的代码: '这里的代码使用书签将图表和表复制到Word文档中 'Word文档必须打开并处于活动状态,即当前可见的Word文档 '要复制一个表,给它一个以tbl开头的区域名称 '然后在Word文档中插入一个使用该名称的书签...'在给它一个名字时,最安全的是点击图表前按Ctrl '然后你在Word中包含一个具有此名称的书签,同样以 tag_ 为前缀 '运行下面的宏应该复制所有内容 '注意这种方法意味着不能多次插入相同的图表/...表格 '因为Word出于显而易见的原因不允许重复的书签名称 Dim WdApp As Object 'Word.Application Dim doc As Object 'Word.Document
标签:Word VBA 在某些情况下,可能想知道在文档中每个字母有多少个,即字母a-Z中每个有多少,或者可能想找出特定文本中最常用的字母。...本文包括两个VBA宏,计算Word文档中每个字母或其他字符的数量。 程序1:在对话框中显示结果,其中按指定的顺序显示每个字符的计数。...,而不会统计页眉、页脚、尾注、脚注等中的字符。...如何修改程序来仅统计所选内容中的字符 要统计文档中所选内容的字符,将代码中的: strText = UCase(ActiveDocument.Range.Text) 修改为: strText = UCase...使用VBA统计字符总数 代码为: ActiveDocument.Characters.Count 注:本文学习整理自thedoctools.com,供学习参考。
这里介绍两种方法,一种是Spannable,一种是Html.fromHtml(通过html标签来改变),实际中看您使用哪种方便选择使用即可 1.Html.fromHtml的使用 TextView textView...= (TextView) findViewById(R.id.text); String textSource = "修改TextView中部分文字的<font color='#ff0000' <big...大</big <small 小</small </font 和<font color='#00ff00' 颜色</font ,展示多彩效果!"...; textView.setText(Html.fromHtml(textSource)); 上面是没有加html标签,下面是加了html标签的效果: ?...以上这篇android 更改TextView中任意位置字体大小和颜色的方法就是小编分享给大家的全部内容了,希望能给大家一个参考。
学习Excel技术,关注微信公众号: excelperfect 下面的自定义函数使用Shapes集合对象的AddShape方法及其参数,可以在指定的单元格中插入指定的形状。...ShapeType指定形状的类型,可以是1至137、139至183之间的任意数字,这些数字代表不同的形状。...参数sAddress指定要添加形状的单元格,字符串形式,例如要在单元格B3中添加形状,则指定参数sAddress的值为B3。...示例 如下图1所示的工作表,列A中是代表形状的常量名,列B中是对应的常量值。 ?...图1 下面的代码在列C中添加对应的形状: Sub AddShape() Dim shp As Shape Dim rng As Range For Each rng In
标签:Word VBA 可以使用VBA代码来判断文档中表格内的单元格是否为空。下面的代码检查所选文档内容中表格内的单元格,并给出空单元格的信息。...方法1 基于空单元格由Chr(7)跟随的段落标记组成,可以使用Range对象检测空单元格,代码如下: Sub CheckTableCells() Dim rngCell As Cell...End If Next rngCell Next rngRow End Sub 方法2 使用Range变量,将其设置为标记每个单元格的区域,移动到区域的末端,使单元格末端标记和段落标记不包含在区域中...(要执行此操作,只需将其移动一个字符),并获取区域内的文本。...如果单元格为空,则区域内没有文本。
标签:Word VBA 如果你的文档中或者他人传给你的文档中有很多表格,但这些表格有不同样式的边框,而你现在想将这些表格的边框设置为统一的样式,怎么办?...当然,你可以逐个表格逐个表格地设置,但是如果文档中的表格很多,这样的操作既繁琐又浪费时间。这种情形下,VBA就派上用场了。...下面的代码为当前文档中的所有表格设置统一的边框样式: Sub AllTablesSetUniformBorders() Dim strTitle As String Dim strMsg As String...,线宽和颜色 objBorderStyle = wdLineStyleSingle objBorderWidth = wdLineWidth075pt objBorderColor = wdColorBlack...,vbInformation, strTitle Exit Sub End If '使用要更改的边框定义数组 '这里不包括对角线边框 objArray = Array(wdBorderTop
标签:Word VBA 本文提供的Word VBA程序可以在Word中制作类似网站中的屏幕提示,即将鼠标悬停在特定文本上时显示包含相关信息的小框。...如果这样的话,你必须依次执行选择文本、添加书签、创建超链接、选择书签、输入屏幕提示文本等操作。 下面是一组自动执行这些操作的VBA程序。...'你可以修改为你喜欢的颜色 objColor = wdColorViolet '下面指定的字符串用于指定屏幕提示文本中的换行符....'如果指定的字符会包含在屏幕提示文本中, '那么将该字符更改为屏幕提示文本中不使用的字符....而正常的超链接样式将自动从超链接中删除,以便用户可以将屏幕提示超链接与普通超链接区分开来。如果需要,可以更改程序中背景色的颜色。
要从Excel中访问Word文档,需要建立对Word的连接。建立连接有两种方法:后期绑定和前期绑定。...在VBE中,单击菜单“工具—引用”,在“引用”对话框中找到所需的类型库并选中其前面的复选框,如下图6所示,创建对“MicrosoftWord 16.0 Object Library”的引用。 ?...打开Word文档并粘贴Excel工作表数据 下面的程序复制Excel工作表中的数据并添加到指定Word文档的末尾。....Quit End With '释放对象变量 Set wrdApp = Nothing End Sub 在已经打开的Word文档中粘贴Excel数据 下面的代码复制工作表数据并粘贴到当前...创建新的Word文档并粘贴Excel数据 下面的代码将创建一个新的Word文档将添加从Excel中复制的数据: Sub CopyDataToWord() Dim wrdApp As Word.Application
标签:Word VBA 在《Word VBA技术:删除表格中内容相同的重复行》中,我们演示了如何使用代码删除已排序表中第1列内容相同的行。...然而,如果表格中第1列没有排序,那么如何删除这列中内容相同的行呢? 对上篇文章中介绍的代码稍作调整,就可以实现删除列中相同内容的行的任务。...Long Dim strLastRowCell As String Dim strCell As String Dim strCellPrevious As String '指定想要操作的表格...End If Next j Next i '打开屏幕更新 Application.ScreenUpdating = True End Sub 代码从表格最后一行开始,依次遍历表格中的所有行并对第一列中的内容进行比较...,删除具有相同内容的行。
本专题先讲解了Word对象模型中常用的对象,让大家先熟悉VBA是如何操控Word文档的,有了一定的Word VBA基础知识后,再通过详细的示例演示Excel与Word交互的技术。...了解Word对象模型 与Excel一样,我们使用VBA来调用Word对象模型中的对象及其属性、方法和事件,从而实现对Word的控制。...Templates对象 代表Word文档模板。 下图2展示了Word文档中的一些常用对象。 ? 图2:文档文本对应的常用对象示例 以上图2中所选择的段落为例,使用VBA代码来对其进行分析。...图3:上图1所选文本中段落和句子的分析结果 可以看出,Word VBA是以“。”或“.”为分隔符来拆分出句子的。...图4:上图1所选文本中词和字符的分析结果 可以看出,Word VBA将符号作为一个词。
领取专属 10元无门槛券
手把手带您无忧上云