精华内容
下载资源
问答
  • word小技巧_修改时,出现注释

    千次阅读 2010-03-19 17:10:00
    网上找了一会没找到 自己就开始翻word中的各项功能,终于发现:原来在[审阅]中得[显示]功能中,其中,显示标记的最终状态就是当修改时,将修改前得东西显示在注释栏里面。对立的还有显示标记的原始状态,注释中显现...

       前一段时间,看到一个别人发的doc,结果自己随便修改的时候,出现了注释……上面把我修改的内容,比如删掉的东西,在注释中显现出来了。很奇怪……以前没有接触过。网上找了一会没找到

      自己就开始翻word中的各项功能,终于发现:原来在[审阅]中得[显示]功能中,其中,显示标记的最终状态就是当修改时,将修改前得东西显示在注释栏里面。对立的还有显示标记的原始状态,注释中显现你修改后的内容,以及显示最终状态(这个是我们平时得,不添加注释的默认)以及显示原始状态(这个估计就能全部看原始版本了)

     

    展开全文
  • 在侯捷《word排版艺术》一书中有一个很实用的vba宏,可通过录制宏,打开vba代码窗口,然后添加如下代码: Dim nLineNum '行号(数值)Dim sLineNum As String '行号(文字)Dim selRge As Range '用以记录整区块程序...

    在侯捷《word排版艺术》一书中有一个很实用的vba宏,可通过录制宏,打开vba代码窗口,然后添加如下代码:

    Dim nLineNum '行号(数值)
    Dim sLineNum As String '行号(文字)
    Dim selRge As Range '用以记录整区块程序代码(多行)
    Dim i '计数器

    '以下变量用于“将注释改为蓝色”
    Dim lineProgramRange As Range '单行程序代码范围
    Dim commentRange As Range '注释范围
    Dim TextLine As String '每一行程序代码(内容)
    Dim ProgComment As String '每一行程序代码内的注释文字
    Dim RgnStart As Long 'Start of a Range
    Dim RgnEnd As Long 'End of a Range

    Set selRge = Selection.Range   '首先记录Selection
    For nLineNum = 1 To selRge.Paragraphs.Count '针对每个段落
        sLineNum = str(nLineNum) '行号转换为文字
        sLineNum = LTrim(sLineNum) '去除开头和结尾的空格
        For i = 1 To (3 - Len(sLineNum)) '补足三位数(前加0)
            sLineNum = "0" + sLineNum
        Next i
        sLineNum = "#" & sLineNum '前加符号#
        sLineNum = sLineNum + " " '前加空格
       
        selRge.Paragraphs(nLineNum).Range.InsertBefore (sLineNum)   '将行号插入到代码前


    '将注释改为蓝色
    Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
    TextLine = lineProgramRange.Text '取得整行文字(代码)
    CharPos = InStr(1, TextLine, Chr(39)) '寻找注释起始点

    If CharPos <> 0 Then
        ProgComment = Mid(TextLine, CharPos + 1) '切割出注释文字
        RgnStart = lineProgramRange.Start
        RgnEnd = lineProgramRange.End
        lineProgramRange.SetRange Start:=RgnStart + CharPos, End:=RgnEnd
        lineProgramRange.Select
        Selection.Font.ColorIndex = wdBlue '令注释为蓝色
    End If
       
    Next nLineNum

     


     

    步骤如下:

     
    选中代码后,点击这个宏就可以生成如下左边的代码行了。宏弄好后可以在工具栏弄一个按钮的,具体的弄法我忘了,可以在上述书中找。
     
     

    转载于:https://www.cnblogs.com/witxjp/p/4965208.html

    展开全文
  • Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document ' On Error Resume Next '忽略错误 '定义一个文件夹...
    Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 
    Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document
    ' On Error Resume Next '忽略错误
    '定义一个文件夹选取对话框
    Set MyDialog = Application.FileDialog(msoFileDialogFilePicker)
    With MyDialog
    .Filters.Clear '清除所有文件筛选器中的项目
    .Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件
    .AllowMultiSelect = True '允许多项选择
    If .Show = -1 Then '确定
    Application.ScreenUpdating = False
    For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环
    Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False)
    With Doc
    With .PageSetup '进行页面设置
    .Orientation = wdOrientPortrait '页面方向为纵向
    .TopMargin = CentimetersToPoints(2.2) '上边距为2.2cm
    .BottomMargin = CentimetersToPoints(2.2) '下边距为2.2cm
    .LeftMargin = CentimetersToPoints(2.5) '左边距为2.5cm
    .RightMargin = CentimetersToPoints(2.5) '右边距为2.5com
    .Gutter = CentimetersToPoints(0) '装订线0cm
    .HeaderDistance = CentimetersToPoints(1.5) '页眉1.5cm
    .FooterDistance = CentimetersToPoints(1.75) '页脚1.75cm
    .PageWidth = CentimetersToPoints(21) '纸张宽21cm
    .PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm
    .SectionStart = wdSectionNewPage '节的起始位置:新建页
    .OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同”
    .DifferentFirstPageHeaderFooter = False '不勾选“首页不同”
    .VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐”
    .SuppressEndnotes = False '不隐藏尾注
    .MirrorMargins = False '不设置首页的内外边距
    .BookFoldRevPrinting = False '不设置手动双面打印
    .BookFoldPrintingSheets = 1 '默认打印份数为1
    .GutterPos = wdGutterPosLeft '装订线位于左侧
    .LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格”
    End With
    With .Content.ParagraphFormat '段落格式设置
    .LeftIndent = CentimetersToPoints(0) '左缩进0cm
    .RightIndent = CentimetersToPoints(0) '右缩进0cm
    .SpaceBefore = 0 '段前间距0cm
    .SpaceBeforeAuto = False '段前间距不设为“自动”
    .SpaceAfter = 0 '段后间距0cm
    .SpaceAfterAuto = False '段后间距不设为“自动”
    .LineSpacingRule = wdLineSpaceExactly
    .LineSpacing = 24 '行距24磅
    .Alignment = wdAlignParagraphJustify '段落设置为两端对齐
    .WidowControl = False '不勾选“孤行控制”
    .KeepWithNext = False '不勾选“与下段同页”
    .KeepTogether = False '不勾选“段中不分页”
    .PageBreakBefore = False '不勾选“段前同页”
    .NoLineNumber = False '不勾选“取消行号”
    .Hyphenation = True '不勾选“允许西文在单词中间换行”
    .FirstLineIndent = CentimetersToPoints(0) '首行缩进0cm
    .OutlineLevel = wdOutlineLevelBodyText '大纲级别为“正文文本”
    .CharacterUnitLeftIndent = 0 '段落左缩进0cm
    .CharacterUnitRightIndent = 0 '段落右缩进0cm
    .CharacterUnitFirstLineIndent = 0 '特殊格式为“无”
    .LineUnitBefore = 0 '段前间距为0
    .LineUnitAfter = 0 '段后间距为0
    .AutoAdjustRightIndent = True '自动调整段落的右缩进
    .DisableLineHeightGrid = False '勾选“如果定义了文档网格,则对齐网格”,即指定段落中的字符与行网格对齐
    .FarEastLineBreakControl = True '将东亚语言文字的换行规则应用于指定的段落
    .WordWrap = True '在指定段落或文本框的西文单词中间断字换行
    .HangingPunctuation = True '指定段落中的标点将可以溢出边界
    .HalfWidthPunctuationOnTopOfLine = False
    .AddSpaceBetweenFarEastAndAlpha = True '自动在指定段落的中文文字和拉丁文字之间添加空格。
    .AddSpaceBetweenFarEastAndDigit = True '自动在指定段落中的中文文字与数字之间添加空格
    .BaseLineAlignment = wdBaselineAlignAuto '自动调整基线字体对齐方式
    End With
    ''''''''''新增部分
    With .Content
    With .Font
    .NameFarEast = "宋体"
    .NameAscii = "Times New Roman"
    .Size = 12
    End With
    With .Paragraphs.First
    .Range.Font.Size = 16
    .Alignment = wdAlignParagraphCenter
    End With
    End With
    .Close True
    End With
    Next
    Application.ScreenUpdating = True
    End If
    End With
    MsgBox "格式化文档操作设置完毕!", vbInformation
    End Sub
    展开全文
  • 下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对“//”以后的注释部分加上颜色。   用法:选中你希望添加行号的所有行,运行此VBA,即可在每行首添加“#001 ”字样的行号。对你选中的行,从1开始自动...

    说实话,CSDN的这个插入代码的控件很好用,特别是自动添加行号的功能。

    下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对“//”以后的注释部分加上颜色。

     

    用法:选中你希望添加行号的所有行,运行此VBA,即可在每行首添加“#001 ”字样的行号。对你选中的行,从1开始自动编号。你也可以把这段代码设置成一个按键,每次只要选中希望编号的行,然后点一下按键运行一下即可。

     

    有时间再把对word中嵌入的代码的格式设置也加进来就更完美了~~~


    以下代码在office2007中调试通过:

    Sub 程序代码加行号()
        Dim nLineNum           '行号(数值)
        Dim sLineNum As String '行号(文字)
        Dim selRge As Range
        Dim i
        
        '------------以下变量变量用于将注释改为蓝色------------
        Dim lineProgramRange As Range  '单行程序代码范围
        Dim commentRange As Range
        Dim TextLine As String
        Dim progComment As String
        Dim RgnStart As Long
        Dim RgnEnd As Long
        
        Set selRge = Selection.Range
        For nLineNum = 1 To selRge.Paragraphs.Count
            sLineNum = Str(nLineNum)
            sLineNum = LTrim(sLineNum)
            
            '生成行号格式"001"
            For i = 1 To (3 - Len(sLineNum))
                sLineNum = "0" + sLineNum
            Next i
            
            '行号前加"#"
            sLineNum = "#" & sLineNum
            sLineNum = sLineNum + " "
            
            '得到当前选中行 并设置颜色为蓝色
            Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
            'Selection.Font.ColorIndex = wdBlue
            lineProgramRange.Font.ColorIndex = wdBlue
                    
            selRge.Paragraphs(nLineNum).Range.InsertBefore (sLineNum)
            
            '------------以下变量用于修改注释为绿色------------
            Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
            TextLine = lineProgramRange.Text
            charpos = InStr(1, TextLine, "//")   'C语言单行注释标志
             
            If charpos <> 0 Then  '存在注释的时候才需要处理
                progComment = Mid(TextLine, charpos)  '切割出注释文字
                RgnStart = lineProgramRange.Start
                RgnEnd = lineProgramRange.End
                lineProgramRange.SetRange Start:=RgnStart + charpos - 1, End:=RgnEnd  '感谢zhupanxin的修改
                
                lineProgramRange.Select
                Selection.Font.ColorIndex = wdGreen
                
            End If
                
            '------------以下用于修改关键字 颜色、字体------------
            
        
        Next nLineNum
        
    End Sub
    




    展开全文
  • Microsoft Word使您能够向Word文档添加注释。在诸如建议改进文档或共享文本思想等情况下,注释可能会有所帮助。在某些情况下,需要以编程方式管理评论。为此,本文将教您如何使用C ++在Word文档中使用注释。 让我们...
  • word给整篇文章注释拼音

    千次阅读 2020-02-27 23:52:21
    遇到的困难:word 2016的注音功能只能给大概二三十字一次性注音(未详细数到底多少),对于成百上千字的文档注音就很繁琐 解决方法:使用word中的宏,在网上搜集资料找到这篇文章: https://www.cn...
  • WORD2003:选中要加注释的文字,打开“插入”菜单,点击“批注”,然后输入注释内容即可。 WORD2007:选中要加注释的文字,打开“审阅”菜单,点击“新建批注”,然后输入注释内容即可。       ...
  • 第五周 Word注释与交叉引用 教学时间 2013-3-26 教学课时 2 教案序号 4 教学目标 1、掌握脚注、尾注、题注的概念和应用 2、掌握交叉引用的操作方法 教学过程: 复习提问 1、如何利用模板创建一份协议书?...
  • 批注内容可以是对某段文字或内容的注释,也可以是对文段中心思想的概括提要,或者是对...修改Word批注 删除Word批注 使用工具:Free Spire.Doc for .NET 6.3(最新社区版)   注:编辑代码前注意添加引用Sprie...
  • android中添加注释

    2015-07-22 20:17:35
    1.选中你要加注释的区域,用ctrl+shift+C 会加上//注释 2.先把你要注释的东西选中,用shit+ctrl+/ 会加上/* */注释 3.要修改在eclispe中的命令的快捷键方式我们只需进入windows -> preference -> General -> key...
  • e/w 向前以word为单位移动 2.其他移动命令 ^ 移动到行首 $ 移动到行末尾 % 跳转到匹配的{或[( :num 光标指定到第num行 gg 到文档第一行第一列 G 到文档最后一行第一列 3.上下文搜索 1. /...
  • 批注内容可以是对某段文字或内容的注释,也可以是对文段中心思想的概括提要,或者是对文章...修改Word批注 删除Word批注 使用工具:Free Spire.Doc for .NET 6.3(最新社区版) 注:编辑代码前注意添加引用Spr...
  • 使用python修改word文件

    2020-07-24 10:15:45
    通过使用Python修改Word文件 import os import win32com from self import self from win32com.client import Dispatch # -------------------------------------------------------- # -- 需要修改的参数 # ---...
  • 批注内容可以是对某段文字或内容的注释,也可以是对文段中心思想的概括提要,或者是对文章内容的...删除Word批注使用工具:Free Spire.Doc for .NET 6.3(最新社区版)注:编辑代码前注意添加引用Sprie.Doc.dll(d...
  • IDEA添加Java类注释模版

    万次阅读 2017-11-29 19:24:06
    IDEA版本:IntelliJ IDEA 2017.2.5 x64eclipse能在类上方输入/**,回车添加注释模版,但idea没有默认添加这个功能,需要做一些设置。下面介绍三种方法,实现创建类默认添加注释、手动添加注释、批量添加JavaDoc...
  • word修改或删除脚注或尾注分隔符 Microsoft Word 用一条短的水平线将文档正文与脚注和尾注分隔开,这条线称为注释分隔符。如果注释延续到下页,Word 将打印出一条称为注释延续分隔符的长线。通过添加边框、...
  • threejs模型旁边添加 文字注释,解释模型 3D效果

    千次阅读 多人点赞 2019-10-30 20:13:35
    let word = textWord.substr(i * 10, space) ctx.fillText(word, 15, 60*(i+1)) } 上面的代码时生成文字的,换行那个 主要时拍页面显示不下所以使用了换行,换行只是改变了一下 呈现的位置 第二步 就是将...
  • Word添加ActiveX控件,如输入框,需要放置在 文本框中,或者放置在正文流中。 本docm因需要和背景底图搭配,所以需要调整Activek输入框控件的上下和左右位置,几次使用放置文本框的办法没有成功。最后是放置在...
  • 回答:Word文档是我们办公中经常用到的软件,批注的插入、修改与删除也是我们经常用到的,怎么插入批注修改批注呢?下面和学习啦小编一起来看看。Word文档批注的插入、修改与删除方法如果不希望在审阅文档时显示批注...
  • 用C#编程修改Word模版

    千次阅读 2012-10-05 14:16:21
    我的一个项目中需要用C#编程修改Word模版,搜索了很多都没有说清楚,自己摸索了一下,终于完成了,在此记下来与大家分享。 包括文本替换和填充表格两种常用功能。   第一步制作模版文件  将用户提供的Word文档...
  • 修改Eclipse注释里的${Date}变量格式

    万次阅读 2010-06-12 12:10:00
    Eclipse 的Date变量在GlobalTemplateVariables类中定义,如果要修改日期格式,则需要修改GlobalTemplateVariables类。这个类在Eclipse插件目录org.eclipse.text_3.3.0.v20070503-0800.jar(3.3.0 M7版本)文件的org....
  • 书本中想要添加注释就直接用笔来添加Word文档里面添加注释相信大家也都知道该如何操作,那么PDF文件中注释添加与编辑呢?这个估计对大家来说还会有点不太熟悉吧,今天小编就为大家分享一下PDF格式文件注释添加...
  • 生活学习中,PDF文件逐渐成为了一种并不可少的文档表现。...现在来说,很多的英文PDF文档出现在我们眼中,该如何在其中添加和删除注释,让我们呢更加方便的阅读呢? 这是一款新型的PDF文档文字处理工具。你可以像wo...
  • 有时在阅读文档时,一些重点的文字或段落需要添加批注,常用的Word或Excel文档直接插入批注即可,但如果是PDF文件应该如何添加呢? 首先我们需要打开PDF文档,比如用极速PDF阅读器打开文件后,点击左上方导航栏中的...
  • 修改论文格式——word技巧大乱斗

    千次阅读 2012-11-09 19:22:57
    首先声明这篇文章不是技术帖,纯粹word技巧...修改论文也学到了不少word技巧,这里收集起来,为了以后写大论文和下次再修改时使用:   1.关于脚注与尾注(海量参考文献必备)   1.光标移到要插入参考文献的地
  • 打开word 工具--选项---用户信息,将user 修改为用户名称,保存退出,重新打开excel 文档重新插入注释署名已变更。 转载于:https://blog.51cto.com/liudongsheng/603719...
  • 批注是作者或审阅者给文档添加注释或注解,通过查看批注,可以更加详细地了解某些文字的背景。Word中插入批注的方法很简单,只要先选择要对其进行批注的文本,或单击文本的末尾处,然后在功能区“审阅”选项卡上的...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 55,999
精华内容 22,399
关键字:

word添加修改注释