精华内容
下载资源
问答
  • word复制粘贴的宏代码
    2020-07-26 11:47:27

    功能

    纯文本粘贴。
    测试通过。
    另外,可自定义键盘快捷键,如Ctrl+Shift+V,非常方便好用。

    VBA代码

    Sub 纯文本粘贴()
    '
    ' 纯文本粘贴 宏
    ' Ctrl+Shift+V
    '
        Selection.PasteAndFormat (wdFormatPlainText)
    End Sub
    
    更多相关内容
  • 初学者怎样复制粘贴并运行VBA?

    千次阅读 2022-04-24 19:33:44
    如果你是小白,是否困惑过找到VBA代码之后怎么去使用呢? 下面就跟着我一起看看,怎么去使用在网络上找到的VBA代码 ...同理,Word,PPT,CAD,Access等支持VBA的软件也自带有相应的内建对象。 VBA是什么?.

    如果你是小白,是否困惑过找到VBA代码之后怎么去使用呢?
    下面就跟着我一起看看,怎么去使用在网络上找到的VBA代码

    VBA是什么?

    VBA其实一点也不神秘,它来自于微软的VB语言,语法基本上相同,但是对应办公组件的VBA宏里面包含了一些对应的内建模块,以Excel为例,其中内建的对象有Application,Workbook,Worksheet,Range,WorksheetFunction对象等。同理,Word,PPT,CAD,Access等支持VBA宏的软件也自带有相应的内建对象。

    VBA宏是什么?

    宏简单来讲,就是一些能够完成特定简单功能的代码片段。

    如何上手自己的第一个VBA宏?

    1. 打开excel,找到开发工具—>点击Visual Basic,进入VBA后台
      在这里插入图片描述
      在这里插入图片描述
    2. 找到相应的工作簿,在上面右键—> 插入—>模块

    在这里插入图片描述
    3. 在新出现的模块中输入或者粘贴VBA代码
    在这里插入图片描述
    本例中的代码块,可直接复制粘贴

    Option Explicit
    
    Sub test()
        Range("A1") = "测试"
        Range("A1:B2").Select
        
    End Sub
    
    1. 关闭VBA后台,回到想要进行宏操作的Excel工作表界面(如Sheet1工作表),找到开发工具—>
      在这里插入图片描述
    2. 在弹出的对话框中,选择需要运行的那个宏,点击执行
      在这里插入图片描述
      本例中最终的效果为:
      在这里插入图片描述
    展开全文
  • 本文介绍如何运行命令进行无格式粘贴,并设置快捷键。 1 设置命令 1.1 打开,步骤如下图。 1.2 新建(如:PastePurly) 1.3 在打开的窗口输入命令:Selection.PasteAndFormat (wdFormatPlainText) 。...

    不得不吐槽,Office在MAC系统下真的不太好用,就这个粘贴都。。。各位用了就会懂的。


    本文介绍如何运行宏命令进行无格式粘贴,并设置快捷键。

    1 设置宏命令

    1.1 打开宏,步骤如下图。
    在这里插入图片描述
    1.2 新建宏(如:PastePurly)
    在这里插入图片描述
    1.3 在打开的窗口输入宏命令:Selection.PasteAndFormat (wdFormatPlainText) 。然后保存。
    在这里插入图片描述
    到此步,宏命令设置完毕。

    2 设置快捷键

    2.1 打开设置面板
    在这里插入图片描述
    2.2 左边的类别选择“宏”(Macros),右边输入我们宏名称(PastePurly),第三直接按键设置快捷键,第四点击右边按钮(Assign)进行设置,最后点击“OK”。
    在这里插入图片描述
    到此,设置完毕。当复制文本内容时候,在word任意地方,使用我们设置好的快捷键即可完成无格式粘贴。需要注意的时候,如果复制的图片,你用快捷键无格式粘贴,会报错哦(如下图),但是不要紧,点击”End“就好了。
    在这里插入图片描述
    欢迎留言交流~

    展开全文
  • 为了方便大家,直接附上我写好word文档,下载后即可使用(已在不同的电脑上测试通过)。 希望有所帮助~ 分别录制了:中文(Alt+1),英文宏(Alt+2) 原文链接 ...
  • DevC++实现代码高亮复制word

    千次阅读 多人点赞 2019-10-28 17:52:16
    时间: 2019.10.28 缘起: 课程报告大多为word版,日常写代码还是习惯使用 DevC++ ,然而直接在word复制代码,格式实在陋。...本质: 保存为 .rtf 或 .html 等带格式的文件,然后复制,在Word中粘贴。 ...

    时间: 2019.10.28
    缘起: 课程报告大多为word版,日常写代码还是习惯使用 DevC++ ,然而直接在word复制代码,格式实在陋。
    教程现状: 网上不少教程,大部分介绍的都是使用Notepad++来完成。不想换编辑器,因而探索了下,最终找到了使用DevC++实现代码高亮复制入word的方法。
    本质: 保存为 .rtf.html 等带格式的文件,然后复制,在Word中粘贴。



    0. 前言

    不少实践课程都要求写word版的报告,有无代码高亮,美观程度还是有很大差别的。下图以示对比:

    有无高亮对比

    图上为直接复制c++代码;图下为带高亮复制代码。可以明显看到在美观度上,两者有着不小的差距,尤其是阅读代码时。相信作为报告上交,后者会更容易加分。

    1. 高亮复制原理

    绝大多数代码编辑器,从中直接复制代码只包含文本,不包含格式信息。因而需要将其剪切为 富文本.rtf 或是 网页.html ,再复制入word,则可以保留高亮。

    2. 网上现有方法

    在撰写我的报告时,搜寻了不少 c++代码高亮复制入word 等关键词。得到的绝大部分解决方案如下:

    1. 使用 notepad++ 直接 Copy RTF/HTML to clipboard (最多推荐)
    2. 使用 Eclipse 去掉勾选 启用折叠 (较少推荐,未验证)
    3. 部分版本 VS 直接复制可以(有说VS2013可以,未验证)

    然而。。用习惯了DevC++,不想为了这再换IDE。更重要的是,总觉得这一点DevC++应该也可以实现,因而仔细找了找,终于发现了解决方案!

    3.使用DevC++保留代码高亮

    步骤:

    1. 在DevC++中,点选 文件 -> 导出 -> 到RTF / 到HTML
    2. 打开导出的文件,复制文字
    3. 打开word,粘贴。即可看到带高亮的代码被粘贴于word。

    其实就是围绕着高亮本质,找到保留成 .rtf 或是 .html 的方法即可。

    注意: DevC++默认的字体是 Console,直接保留为富文本或网页文件时,其中的中文注释可能出现乱码。此时可以修改DevC++编辑器字体为中文字体,再重复上述步骤,即可解决问题。(工具 -> 编辑器选项 -> 显示 ->字体)

    在这里插入图片描述

    4.进一步美化

    粘贴完之后,可能发觉略显单调。此时可以采取一些进阶操作,来进一步的美化。

    4.1 增加底纹

    选中代码,对段落增加底纹,推荐 灰色,背景1,深色5%

    4.2 增加边框

    4.3 增加行号

    关于行号,为了使其不影响之后代码的复制。因而可以使用 1行2列 的一个表格,将代码行与代码分开存放。

    5. 利用 实现操作自动化

    在Word中粘贴代码,绝不会只有1次。这时我们可以使用VBA宏,来自动化一些重复性操作。比如,设置底纹和表格格式、敲打行号等。

    Alt + F11可以进入VBA,然后在“Normal -> 模块”,右键选择“插入模块”,然后把我下面的代码复制到“模块1”并保存。(Normal是Word打开时会自动载入的一个模板文件,把宏放在这里,可以保证在任意一个Word文档中都能调用。)

    Sub 设置代码表格()
    ' author: code4101
    ' 设置代码表格 宏
    
        ' 背景色为morning的配色方案,RGB为(229,229,229)
        With Selection.Tables(1)
            With .Shading
                .Texture = wdTextureNone
                .ForegroundPatternColor = wdColorAutomatic
                .BackgroundPatternColor = 15066597
            End With
    
            .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
            .Borders(wdBorderRight).LineStyle = wdLineStyleNone
            .Borders(wdBorderTop).LineStyle = wdLineStyleNone
            .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
            .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
            .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
            .Borders.Shadow = False
            .AutoFitBehavior (wdAutoFitContent)  '自动调整大小
        End With
        With Options
            .DefaultBorderLineStyle = wdLineStyleSingle
            .DefaultBorderLineWidth = wdLineWidth050pt
            .DefaultBorderColor = wdColorAutomatic
        End With
    
        ' 段落无首行缩进,行间距为固定值12磅
        With Selection.ParagraphFormat
            .LeftIndent = CentimetersToPoints(0)
            .RightIndent = CentimetersToPoints(0)
            .SpaceBefore = 0
            .SpaceBeforeAuto = False
            .SpaceAfter = 0
            .SpaceAfterAuto = False
            .LineSpacingRule = wdLineSpaceExactly
            .LineSpacing = 12
            .KeepWithNext = False
            .KeepTogether = False
            .PageBreakBefore = False
            .NoLineNumber = False
            .Hyphenation = True
            .FirstLineIndent = CentimetersToPoints(0)
            .OutlineLevel = wdOutlineLevelBodyText
            .CharacterUnitLeftIndent = 0
            .CharacterUnitRightIndent = 0
            .CharacterUnitFirstLineIndent = 0
            .LineUnitBefore = 0
            .LineUnitAfter = 0
            .MirrorIndents = False
            .TextboxTightWrap = wdTightNone
            .AutoAdjustRightIndent = True
            .DisableLineHeightGrid = False
            .FarEastLineBreakControl = True
            .WordWrap = True
            .HangingPunctuation = True
            .HalfWidthPunctuationOnTopOfLine = False
            .AddSpaceBetweenFarEastAndAlpha = True
            .AddSpaceBetweenFarEastAndDigit = True
            .BaseLineAlignment = wdBaselineAlignAuto
        End With
    
        ' 清除原有的段落底纹
        Selection.ParagraphFormat.Shading.BackgroundPatternColor=wdColorAutomatic
    
    End Sub
    
    Sub 输入连续数字()
    ' author: code4101
        行数 = InputBox("请输入代码终止行数", "输入行数", "50")
        For i = 1 To 行数 - 1
            Selection.TypeText Text:=i
            Selection.TypeParagraph
        Next
        Selection.TypeText Text:=行数
    End Sub

    这里找了两个宏,一个是输入连续数字的宏。另一个是对代码表格进行一些处理的宏(可以解决底纹等问题),选中那个一行两列的表格,读者跑跑我的宏就知道效果了。(这两个宏的配置会比较个性化,读者可以根据自己的喜好来开发。)

    此处宏代码转自:如何在Word中排出漂亮的代码

    6. 最终效果

    最终效果图
    这是刚完成的一份实验报告,可以看到,相较于无高亮代码,整篇Word的格式还是美观了不少。

    *尾声

    1. 小感

    虽然网上的很多资源不是直接针对DevC++的,但还是从notepad++中借鉴了保留为含格式文本的思想。可见,多查资料,尤其是多查有效的资料,对于学习是一定有帮助的。然而,现在互联网上的博客,质量还是少了点,或者说真正去探索一个源问题的少了点。大多数都是先搜现成答案,搜到则复制到自己博客下做个备忘,搜不到就放那儿,也不去探索了。。个人想法。

    2. 致谢

    本文写作中,参看了不少博文与资料,以下对主要参看的做一些罗列,排序不分先后:

    1. 如何在Word中排出漂亮的代码
    2. 代码复制到Word格式不变
    3. https://zhidao.baidu.com/question/131849075.html

    3. 本文不足

    1. 源代码为Console等字体导出为富文本或网页文本,出现中文乱码的原因还是没想明白。。先暂时将编辑器字体更换为中文字体来解决,还不是很懂里面原因。
    2. 步骤略繁琐了些,对比notepad++可以直接将带格式文本复制进入剪贴板。

    4. 声明

    本文为原创文章,转载务必注明出处。

    展开全文
  • 1.4.2之后官方并没有做功能的改动,1.4.2在word复制这块没有bug,其他版本会出现手动无法转存的情况 本文使用的后台是Java。前端为Jsp(前端都一样,后台如果语言不通得自己做 Base64编码解码) 因为公司业务需要...
  • word宏编程以及VBA

    万次阅读 多人点赞 2018-12-03 19:55:37
    word宏是什么呢? 是一个批量处理程序命令,正确地运用它可以提高工作效率。微软的office软件允许用户自己编写,叫VBA的脚本来增加其灵活性,进一步扩充它的能力。 如完成一个一打开word文件同时要打开某个文件...
  • 我们在使用电脑工作的过程中,经常需要将网页上的文字复制Word中进行编辑使用,然而网页上的内容都是带有格式的,编辑起来很麻烦,所以我们就要对文字进行消除格式。虽然记事本可以消除格式,但是还要打开记事本略...
  • 自己总结的近千行常见算法代码,有备注标明错误提示。包括了基本的输入输出,以及函数传参,还有...标明了诸多易错点,最重要的是是在word中实现了代码的完美统一,可以直接复制粘贴到IDE中测试。语法高亮,方便阅读。
  • Word中添加代码

    千次阅读 2021-10-18 22:45:36
    当我们需要在word里面添加一块具有...接着手动将右侧代码复制下来,粘贴word你所需要的地方。 (若代码行号是接着你所不想要的序号继续下去的话,可以使用Shift+Enter键换行,然后粘贴代码) 效果如上图所示。 ...
  • word宏处理,批量图片大小设置,对齐方式
  • 有时候我们需要在word里面直接插入代码,但是如果直接复制,没有格式,大片段的代码看起来会非常不好看。所以可以通过下面的方式美化。 方法1、加个表格,先插入一个1*1的表格,然后代码复制到表格里面,给表格加上...
  • 利用WORD 进行多种操作,大大提高工作效率。例如此模板包含批量打印、公文自动排版、图片批量改大小、图片批量居中。
  • word批量调整图片大小--

    千次阅读 2021-02-18 00:32:45
    word中选择,查看或者创建,不同版本的略有区别 输入名称,默认也可 在相应位置粘贴如下代码 Sub 批量调整图片大小() ' ' 批量调整图片大小 ' ' Dim n ' 图片个数 On Error Resume Next ' 忽略错误 ...
  • word代码加行号

    2022-02-01 20:20:21
    2,在word中,按住Alt+F11进入VB编辑器后,在VBA的代码区写下: 在工程区“Normal”下展开找到“ThisWorkBook”。 Sub HangHao() Dim parag As Paragraph Dim nLineNum: nLineNum = 0 Dim selRge As Range Set ...
  • word中粘贴代码的排版问题

    万次阅读 2012-12-17 20:50:13
    原文地址: ... ========================================================================================== ...有时候要在word中代码,是的,用word来干这件事很逊,人家叫做,不能不低头呀。但这不
  • 点晴OA工作流表单模板创建注意事项(Word、Excel复制粘贴变形如何解决)很多用户反映点晴OA系统工作流表单创建时对于表格的控制十分的麻烦,希望能够做出漂亮的效果,但往往事违人愿。下面将工作流表单制作过程...
  • 利用VBA在Word中排出漂亮的代码

    千次阅读 2018-07-25 14:02:16
    引言 在学习编程的过程,常常会使用word来做笔记,下面我将对如何利用word 宏来进行代码的排版进行说明 ... 我用的是word2007,word2003和word2010操作...带高光的,直接复制粘贴word就行了。  但是作为...
  • Word文档注入实现钓鱼复现 网上很多相关的文章,但都不是很细节,遇到了一些问题,在这里统一汇总一下。 前期准备 环境准备: 一台kali用于使用CS、一台靶机、一台vps服务器(这里使用kali) Word使用系统自带的...
  • 如何在Word中排出漂亮的代码

    万次阅读 多人点赞 2014-12-08 15:58:35
    引言 学数学和计算机,当然... 从Matlab高亮代码复制到Word,中文会乱码开始,我就很想研究下如何在Word中展示漂亮的代码。今年寒假利用Vim,有些突破,10月3日的时候又有了比较大的进展,自己设计了一款Vim的代码...
  • 实用的Word宏-无格式粘贴

    千次阅读 2007-09-16 19:15:00
    一般从网页上或者别的word文件里Copy纯文本的东西到Word文档里时,其格式会一起Copy并Paste,很多人的解决方法是先把...其实Word有先择性粘贴这一功能,先Alt+E再Alt+S是这个操作的快捷键,在弹出的窗口选择“纯文本
  • word(2010)使用-批量提取word数据

    千次阅读 2020-06-22 14:59:38
    word 2010 的使用Word中的定义Word的优缺点Word运用实例---批量提取word数据结语 Word中的定义 Microsoft Word中定义为:“就是能组织到一起作为一独立的命令使用的一系列word命令,它能使日常...
  • word如何插入域代码

    千次阅读 2021-06-13 12:30:39
    word里怎么进行域代码的设置?如果知道要插入的域的域代码,可以将其直接键入在文档。首先按 Ctrl+F9,然后在括号键入代码就可以了。【Word插入域方法】1、Word2007,在要插入域的位置单击。2、在“插入”...
  • 3、Word中找到书签并选中,粘贴复制。 注意:一定要在EXCEL工具-引用 “Microsoft Word 1?.0 Object Library”,否则一些Word中的类无法使用的。 Sub test() Dim Sheet As Worksheet Set Sheet = ...
  • 如有不会的可以参考这三篇文章:手动复制粘贴?这个小技巧,3分钟搞定100份Word文档的定制和发送!​mp.weixin.qq.com邮件合并「下篇文章」:文档拆分就这么办!!​mp.weixin.qq.com「邮件合并」从合并到拆分的完整...
  • word2003 打开Word窗口,依次点击“工具//VisualBasic编辑器”, 此时会打开“MicrosoftvisualBasic”窗口, 在左侧“工程”栏选中...输入以下代码: SubMyPaste() Selection.PasteAndFormat(wdFormat...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,856
精华内容 1,542
热门标签
关键字:

word复制粘贴的宏代码