精华内容
下载资源
问答
  • word编辑文档时,希望快速为选中内容添加行号或删除行号。如果手动来做,当行数很多时,就会比较麻烦,这时VBA就可以派上用场。 vba源码 '为选中内容添加行号 Sub 添加行号() ' n = 0 Dim ...

    需求说明

    用word编辑文档时,希望快速为选中内容添加行号或删除行号。如果手动来做,当行数很多时,就会比较麻烦,这时VBA就可以派上用场。

    vba源码

    
    
    '为选中内容添加行号
    
    Sub 添加行号()
    
        n = 0
        
        Dim selectedRange As Range
        
        Set selectedRange = Selection.Range
        
        For Each p In selectedRange.Paragraphs
            n = n + 1
            selectedRange.Paragraphs(n).Range.InsertBefore (n & "  ")
        Next
        
    End Sub
    
    
    '为选中内容删除行首字符
    
    Sub 删除行首字符()
    
        n = 0
        
        Dim selectedRange As Range
        
        Set selectedRange = Selection.Range
        
        For Each p In selectedRange.Paragraphs
            n = n + 1
            selectedRange.Paragraphs(n).Range.Words(1).Delete
        Next
        selectedRange.Select
        
    End Sub
    
    
    

    编辑vba的步骤:
    1.打开vba编辑器
    在这里插入图片描述
    2 .输入上节所给的源代码
    在这里插入图片描述

    在自定义区域添加按钮,方便通过鼠标调用这两个宏

    在这里插入图片描述

    添加行号后的效果
    在这里插入图片描述

    展开全文
  • word中文本过长时,可实现对文本编写行号自动形成
  • 2020年11月8日18-快速为章节添加第几章,解决换行时自动出现行号问题.docx
  • planetB网站,让代码添加行号和高亮

    写实验报告的时候,经常需要在word里面输入代码,而没有行号和高亮的代码是缺乏可读性的。
    本文推荐一个添加代码高亮的网站:PlanetB
    链接如下http://www.planetb.ca/syntax-highlight-word
    网站界面如图
    在这里插入图片描述
    直接上结果
    word里面的代码如图所示:
    在这里插入图片描述
    planetB的操作
    1.复制代码到文本框中
    2.选择语言类型,比如C++,python
    3.点击Highlight
    4.复制代码即可
    在这里插入图片描述

    2021年4月25日更新:
    pastebin.com
    示例如下:
    在这里插入图片描述

    希望对你有帮助。

    展开全文
  • 在dataGridView1的RowPostPaint事件中,添加下如下代码。 private void dataGridView1_RowPostPaint(object sender, DataGridViewRowPostPaintEventArgs e) { SolidBrush b = new SolidBrush(this.dataGridView1...

     

    private void FrmLog_Load(object sender, EventArgs e)
    {

     

    dataGridView1.DataSource = SQLiteHelper.GetTable("select * from log");
    dataGridView1.SelectionMode = DataGridViewSelectionMode.FullRowSelect;
    dataGridView1.AutoGenerateColumns = false;
    dataGridView1.ReadOnly = true;
    dataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill;
    dataGridView1.AllowUserToAddRows = false;

    }

     

     

    在dataGridView1的RowPostPaint事件中,添加下如下代码。


    private void dataGridView1_RowPostPaint(object sender, DataGridViewRowPostPaintEventArgs e)
    {
    SolidBrush b = new SolidBrush(this.dataGridView1.RowHeadersDefaultCellStyle.ForeColor);
    e.Graphics.DrawString((e.RowIndex + 1).ToString(System.Globalization.CultureInfo.CurrentUICulture), this.dataGridView1.DefaultCellStyle.Font, b, e.RowBounds.Location.X + 20, e.RowBounds.Location.Y + 4);
    }

     

    获取选中行的值

    private void dataGridView1_CellClick(object sender, DataGridViewCellEventArgs e)
    {
    if (e.RowIndex > -1)
    {
    int rowindex = e.RowIndex;
    txtLogId.Text = dataGridView1.Rows[rowindex].Cells[0].Value.ToString(); //获得当前行的第1列的值
    }
    }

    转载于:https://www.cnblogs.com/HandLoong/p/8398668.html

    展开全文
  • 我们在编写Word文档时,希望也能有CSDN博客中的代码插件的效果,可以插入带有行号和高亮显示的代码,然而...还有一种方式,就是我们通过Word中的VBA语言进行编程,来自动对代码段进行高亮显示和添加行号,这种方式可以

    我们在编写Word文档时,希望也能有CSDN博客中的代码插件的效果,可以插入带有行号和高亮显示的代码,然而这却不太容易做到。要做到这一点,有两种方式,一种是借助Notepad++,将内容导出为HTML格式,然后插入到Word中。这种方式的缺点是不能带行号,这对于想要解释代码来说,非常不方便。还有一种方式,就是我们通过Word中的VBA语言进行编程,来自动对代码段进行高亮显示和添加行号,这种方式可以由我们自己来定制,非常方便。以下代码参考了这篇博文(http://blog.chinaunix.net/uid-20672257-id-3323617.html),在此表示感谢。

    在Word2007中要实现代码段的行号和高亮显示,我们首先定义一个新的样式来表示代码行。点击“开始”=》“样式”右下角的箭头,如下图所示:


    如上图中红色圆圈处,在随后弹出的窗体中,点击新建样式,如下图所示:


    在弹出的样式定义界面中,选择样式定义,如下图所示:


    我们将进入段落编辑界面,如下图所示:


    这是因为Word缺省的行距太大,我们希望代码紧凑一些,所以缩小了行距。因为要使代码突出显示,我们希望代码有一个柔和的底色,如下图所示:


    在随后弹出的边框定义页面中,选择下图中红色圆圈选项:


    我们可以将这个样式命名为code1。

    至此,我们就定义了一个完整的代码段样式,下面我们就需要通过程序来对关键字、运算符进行高亮显示,并添加行号,我们将使用Word自带的VBA来实现这一功能,我们首先进入宏编辑界面,如下所示:


    然后选择创建宏,将下面的代码粘到界面中:

    'script to high light code In document
    Private Function isKeyword(w) As Boolean
        Dim keys As New Collection
        With keys
            .Add " if": .Add "else": .Add "switch": .Add "case": .Add "default": .Add "break"
            .Add "goto": .Add "return": .Add "for": .Add "while": .Add "do": .Add "continue"
            .Add "typedef": .Add "sizeof": .Add "NULL": .Add "new": .Add "delete": .Add "throw"
            .Add "try": .Add "catch": .Add "namespace": .Add "operator": .Add "this": .Add "const_cast"
            .Add "static_cast": .Add "dynamic_cast": .Add "reinterpret_cast": .Add "true"
            .Add "false": .Add "null": .Add "using": .Add "typeid": .Add "and": .Add "and_eq"
            .Add "bitand": .Add "bitor": .Add "compl": .Add "not": .Add "not_eq": .Add "or"
            .Add "or_eq": .Add "xor": .Add "xor_eq": .Add "import": .Add "print"
        End With
        isKeyword = isSpecial(w, keys)
    End Function
    
    Private Function isSpecial(ByVal w As String, ByRef col As Collection) As Boolean
        For Each i In col
            If w = i Then
                isSpecial = True
                Exit Function
            End If
        Next
        isspeical = False
    End Function
    
    Private Function isOperator(w) As Boolean
        Dim ops As New Collection
        With ops
            .Add "+": .Add "-": .Add "*": .Add "/": .Add "&": .Add "^": .Add ";"
            .Add "%": .Add "#": .Add "!": .Add ":": .Add ",": .Add "."
            .Add "||": .Add "&&": .Add "|": .Add "=": .Add "++": .Add "--"
            .Add "'": .Add """"
        End With
        isOperator = isSpecial(w, ops)
    End Function
    
    Private Function isType(ByVal w As String) As Boolean
        Dim types As New Collection
        With types
            .Add "void": .Add "struct": .Add "union": .Add "enum": .Add "char": .Add "short": .Add "int"
            .Add "long": .Add "double": .Add "float": .Add "signed": .Add "unsigned": .Add "const": .Add "static"
            .Add "extern": .Add "auto": .Add "register": .Add "volatile": .Add "bool": .Add "class": .Add " private"
            .Add "protected": .Add "public": .Add "friend": .Add "inlIne": .Add "template": .Add "virtual"
            .Add "asm": .Add "explicit": .Add "typename"
        End With
        isType = isSpecial(w, types)
    End Function
    
    Sub SyntaxHighlight()
        Dim wordCount As Integer
        Dim d As Integer
        ' set the style of selection
        Selection.Style = "code1"
        d = 0
        wordCount = Selection.Words.Count
        Selection.StartOf wdWord
        While d < wordCount
            d = d + Selection.MoveRight(wdWord, 1, wdExtend)
            w = Selection.Text
            If isKeyword(Trim(w)) = True Then
                Selection.Font.Color = wdColorBlue
            ElseIf isType(Trim(w)) = True Then
                Selection.Font.Color = wdColorDarkRed
                Selection.Font.Bold = True
            ElseIf isOperator(Trim(w)) = True Then
                Selection.Font.Color = wdColorBrown
            ElseIf Trim(w) = "//" Then
                'lIne comment
                Selection.MoveEnd wdLine, 1
                commentWords = Selection.Words.Count
                d = d + commentWords
                Selection.Font.Color = wdColorGreen
                Selection.MoveStart wdWord, commentWords
             ElseIf Trim(w) = "/*" Then
                'block comment
                While Selection.Characters.Last <> "/"
                    Selection.MoveLeft wdCharacter, 1, wdExtend
                    Selection.MoveEndUntil ("*")
                    Selection.MoveRight wdCharacter, 2, wdExtend
                Wend
                commentWords = Selection.Words.Count
                d = d + commentWords
                Selection.Font.Color = wdColorGreen
                Selection.MoveStart wdWord, commentWords
            End If
            'move the start of selection to next word
            Selection.MoveStart wdWord
        Wend
        ' prepare For set lIne number
        Selection.MoveLeft wdWord, wordCount, wdExtend
        SetLIneNumber 1
    End Sub
    
    Private Sub SetLIneNumber(ByVal base As Integer)
        Dim lines As Integer
        lines = Selection.Paragraphs.Count
        Selection.StartOf wdParagraph
        For l = base To lines + base
            lIneNum = l & " "
            If l < 10 Then
                lIneNum = lIneNum & " "
            End If
            Selection.Text = lIneNum
            Selection.Font.Bold = False
            Selection.Font.Color = wdColorAutomatic
            p = Selection.MoveDown(wdLine, 1, wdMove)
            Selection.StartOf wdLine
        Next l
    End Sub
    

    上面的代码不太长,而且结构也很简单,大家可以自己去研究一下。与原始代码相比,这里为了高亮显示Python中的import等关键字,所以添加了新的关键字,另外,如果希望开始行号不是从1开始,可以修改SetLIneNumber函数调用中的参数,由1变为希望的值即可。

    做好上述设置之后,我们就可以在Word中添加代码段了,添加完成之后,先选中这个代码段,然后点击“开发工具”=》“宏”,在如下界面中点击运行:


    最终的效果如下所示:


    如上所示,可以看出,我们添加的代码段可以非常好的和Word中的普通文本一起显示,达到了我们的目的。

    展开全文
  • 但是,Word本身带的行号功能,非常不太好用,而手工敲写编号,一是容易错,而是工作量太大。所以很有必要编写一个自动编号的宏程序。宏代码是这样的其实,这样的宏写过很多次,也用过很多次,每次用过后,代码都不...
  • 设定配色方案 set number " 显示行号 set cursorline " 突出显示当前行 set ruler " 打开状态栏标尺 set shiftwidth=4 " 设定 和 >> 命令移动时的宽度为 4 set softtabstop=4 " 使得按退格键时可以一次删掉 4 个空格...
  •  在实际工作中,有时会遇到需要在某些特殊文档中加入行号的情况,譬如说英文阅读材料、法律文书、名人手稿等,显然人工添加是不现实的。其实Word中早就为大家提供了这样的功能,只是鲜为人知罢了。  Step 1:...
  • 今日,客户要求在写病历时可以像wps或word那样自动添加序号,方便医生使用,但在网上没有找到相关例子,所以自己用比较笨的方法实现了一下。 主要用到的是richtextbox的keydown事件和TextChange事件 private void ...
  • 在文章中添加行号

    千次阅读 2011-12-17 17:15:53
    第一种:Adding line numbers to a LaTeX document ...unpack it ('unzip lineno.zip') and...第二种:在word自动实现正文加上行号(line numbers) 在页面设置里有这一项。参考附件图示,试试看。
  • vim 配置文件 ,高亮+自动缩进+行号+折叠+优化 将一下代码copy到 用户目录下 新建文件为 .vimrc 保存即可生效; 如果想所有用户生效 请修改 /etc/vimrc (建议先cp一份) "=======================================...
  • vim 配置文件 ,高亮+自动缩进+行号+折叠+优化 http://apps.hi.baidu.com/share/detail/31767352 将一下代码copy到 用户目录下 新建文件为 .vimrc 保存即可生效; 如果想所有用户生效 请修改 /etc/vimrc
  •          ② 添加文字块儿          ③ 添加一个分页          ④ 添加图片          ⑤ 添加表格          ⑥ 提取word表格,并保存在excel中(很重要)     3、...
  • set number " 显示行号 set cursorline " 突出显示当前行 set ruler " 打开状态栏标尺 set shiftwidth=4 " 设定 和 >> 命令移动时的宽度为 4 set softtabstop=4 " 使得按退格键时可以一次删掉 4 个空格 set ...
  • jupyter notebook实现显示行号Jupyter Notebook默认不显示行号,可是当我们代码报错时,发现会显示自己多少行出现错误。eg:这时候我们总不能一行行去数吧,因此,为了方便我们调试排错。我们需要让jupyter notebook...
  • 在Linux中配置文件的位置 在目录 /etc/ 下面,有个名为vimrc的文件,这是系统中公共的vim...let Tlist_File_Fold_Auto_Close=1 " 自动折叠当前非编辑文件的方法列表 let Tlist_Auto_Open = 0 let Tlist_Auto_Update = 1...
  • C#自动生成word报告

    千次阅读 2015-03-24 15:42:42
    C#结合XML书签配置文件,连接SQL Server数据库,生成word报告。包括文本、表格、chart和图片。基本能够满足一般生成报告的需要。
  • 原文链接:... 有时候需要在Notepad++编辑一些代码或伪代码,需要添加或者删除行号。 就需要装个 TextFX Characters的插件。 “Plugin Manager”——“Show Plugin Manager”,选中“TextFX Cha...
  • java poi获取word文档自动生成的序号

    千次阅读 2020-01-16 16:58:55
    POI不能获取word自动生成的序号,但是可以自己根据级别自己写出来。 maven <dependency> <groupId>org.apache.poi</groupId> <artifactId>poi-scratchpad</artifactId> ...
  • word表格中进行减乘除法计算在MicrosoftWord2003中,您可以对输入表格单元格的值进行、减、乘、除运算。在下面的示例中,每个表格单元格中的值用列字母和行号表示。例如,“A1”表示第一列和第一行中的单元格...
  • 说实话,CSDN的这个插入代码的控件很好用,特别是自动添加行号的功能。 下面这段VBA代码就是在Word中,对你编辑的代码添加行号和对“//”以后的注释部分加上颜色。   用法:选中你希望添加行号的所有行,运行此...
  • 选择第一行中想要插入编号的单元格; 在“段落”里选择一种编号样式; 点击“格式刷”; 按住左键往下拉,则下面的单元格自动编号。

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 19,469
精华内容 7,787
关键字:

word自动添加行号