精华内容
下载资源
问答
  • 2020-12-31 14:06:08

    该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

    例:123456变成123,456,而不是将123456变成123,456.00。

    找到了一段宏代码,但运行后将123456变成123,456.00了,而不是我要的123,456。

    Sub CurrencyNumber()

    Dim i As Range, Acell As Cell, CR As Range

    On Error Resume Next

    Application.ScreenUpdating = False

    If Selection.Type = 2 Then

    For Each i In Selection.Words

    If i Like "####*" = True Then

    If i.Next Like "." = True And i.Next(wdWord, 2) Like "#*" = True Then

    i.SetRange Start:=i.Start, End:=i.Next(wdWord, 2).End

    i = Format(i, "Standard")

    Else

    i = Format(i, "Standard")

    End If

    End If

    Next i

    ElseIf Selection.Type = 5 Then

    For Each Acell In Selection.Cells

    Set CR = ActiveDocument.Range(Acell.Range.Start, Acell.Range.End - 1)

    MsgBox CR

    If CR Like "####*" = True Then

    If CR Like "####.#*" = True Then

    Yn = Format(CR, "Standard")

    CR.Text = Nn

    Else

    Yn = Format(CR, "Standard")

    CR.Text = Nn

    End If

    End If

    Next Acell

    Else

    MsgBox "您只能选定文本或者表格之一!", vbOK + vbInformation

    End If

    Application.ScreenUpdating = True

    End Sub

    更多相关内容
  • 用于抽取word文档指定表格的指定数据 供学习交流 import pandas as pd import docx import os def get_data_from_path(save_path): document = docx.Document(save_path) col_keys = [] # 获取列名 col_...

    用于抽取word文档中指定表格的指定数据
    供学习交流

    import pandas as pd
    import docx
    import os
    
    
    def get_data_from_path(save_path):
        document = docx.Document(save_path)
        col_keys = [] # 获取列名
        col_values = [] # 获取列值
        i = 0  # 用来筛选指定表格(对于文档中有多个表格的情况)
        for table in document.tables:
            if i == 0:
                i += 1
                continue
            if i > 1 : break
            i += 1
            for row_index, row in enumerate(table.rows):
                for col_index, cell in enumerate(row.cells):
                    if row_index > 0:
                        if col_index == 0:
                            col_keys.append(cell.text.replace('\n',''))
                        if col_index == 2:
                            col_values.append(cell.text)
        # print(f'col keys is {col_keys}')
        # print(f'col values is {col_values}')
        return  col_keys, col_values
    
    
    def docx2csv(wordlist_path, csv_path):
        key, value = get_data_from_path(wordlist_path)
        res = []  # 存txt
        size = len(key)
        for i in range(size):
            txt_temp = key[i] + ',' + value[i].replace('\n', ',')
            txt_temp = txt_temp.split(',')
            res.append(txt_temp)
        df = pd.DataFrame(res)
    
        df.to_csv(csv_path, encoding='utf_8_sig', index=False, header = None)
        print('3Q')
    
    
    wordlist_path = 'E:\\数字电子技术.docx'
    csv_path = r'E:\1.csv'
    
    docx2csv(wordlist_path, csv_path)
    
    docxs_path = r'E:\电子系课程'  # 文件夹路径
    
    file_list = os.listdir(docxs_path)
    print(file_list)
    for fl in file_list:
        if not os.path.splitext(fl)[1] == ".docx":  # 筛选文件类型,注意”.“
            continue
        docx_path = os.path.join(docxs_path, fl)  # 文件路径
        csv_name = fl.split('.')[0] + '.csv'  # csv文件名
        csv_path = os.path.join(docxs_path, csv_name)  # 文件路径
        docx2csv(docx_path, csv_path)
    
    展开全文
  • word数字千分位的批量添加方法

    千次阅读 2020-12-31 14:06:07
    内容提要:文章介绍word数字千分位的一次性批量添加方法,以及word千分位详细的添加操作步骤。笔者是一名会计从业者,在word文档经常与数字打交道,为了保持数字格式的统一性,需要将数字添加千分位,并保留两位...

    内容提要:文章介绍word数字千分位的一次性批量添加方法,以及word千分位详细的添加操作步骤。

    笔者是一名会计从业者,在word文档中经常与数字打交道,为了保持数字格式的统一性,需要将数字添加千分位,并保留两位小数。

    通常是需要一次性把word里的数字全部变为会计格式,即改为有千分号且后带两位小数点的格式。

    很遗憾的是,word自身内置命令,并不能实现数字千分位的添加。常使用excel的朋友知道,excel添加千分位分隔符,保留两位小数是很简单容易的事情,单击工具栏的命令即可完成。

    既然内置功能无法满足,我们可以通过自己编写一段VBA代码来实现word数字千分位的批量添加。

    我们以word2010版为例,来介绍word数字千分位的批量添加方法。

    第一,打开需要添加数字千分位的word文档。

    第二,单击开发工具——Visual Basic,或者按ALT+F11,打开VBE编辑器。

    附:图文教程:word2010开发工具的显示和关闭http://www.ittribalwo.com/show.asp?id=1447

    第三,单击插入——模块,插入一个模块,并在右边的代码窗口复制下面的代码。

    第四,关闭VBE界面,回到word文档。单击开发工具——宏,找到“qianfen”宏,单击“运行”,即可完成word数字千分位的批量添加。

    下面是具体的word数字千分位批量添加完整代码,直接复制sub至end sub结束。

    Sub qianfen()

    '本代码旨在解决WORD中数据转化为千分位

    '数据限定要求:-922,337,203,685,477.5808 到 922,337,203,685,477.5807

    '转化结果1000以上数据以千分位计算,小数点右侧保留二位小数;1000以下数据不变

    Dim myRange As Range, i As Byte, myValue As Currency

    On Error Resume Next

    Application.ScreenUpdating = False '关闭屏幕更新

    NextFind: Set myRange = ActiveDocument.Content '定义为主文档文字部分

    With myRange.Find '查找

    .ClearFormatting '清除格式

    .Text = "[0-9]{4,15}" '4到15位数据

    .MatchWildcards = True '使用通配符

    Do While .Execute '每次查找成功

    i = 2 '起始值为2

    '如果是有小数点

    If myRange.Next(wdCharacter, 1) = "." Then

    '进行一个未知循环

    While myRange.Next(wdCharacter, i) Like "#"

    i = i + 1 '只要是[0-9]任意数字则累加

    Wend

    '重新定义RANGE对象

    myRange.SetRange myRange.Start, myRange.End + i - 1

    End If

    myValue = VBA.Val(myRange) '保险起见转换为数据,也可省略

    myRange = VBA.Format(myValue, "Standard") '转为千分位格式

    GoTo NextFind '转到指定行

    Loop

    End With

    Application.ScreenUpdating = True '恢复屏幕更新

    End Sub

    展开全文
  • word表格中进行减乘除法计算

    千次阅读 2021-07-25 08:58:00
    word表格中进行减乘除法计算在MicrosoftWord2003,您可以对输入表格单元格的值进行、减、乘、除运算。在下面的示例,每个表格单元格的值用列字母和行号表示。例如,“A1”表示第一列和第一行的单元格...

    在word表格中进行加减乘除法计算

    在MicrosoftWord2003中,您可以对输入表格单元格的值进行加、减、乘、除运算。在下面的示例中,每个表格单元格中的值用列字母和行号表示。例如,“A1”表示第一列和第一行中的单元格。

    8a25aaa1a6ee387c6aed1a3042a8bbf5.gif

    执行下列步骤,将3加到单元格A1(A1的值为2)。

    将插入点置于单元格A4中。

    在“表格”菜单上,单击“公式”。

    在“公式”下将自动显示公式(=Sum(Above))。

    删除自动显示的公式,保留等号(=)。

    在等号后输入(A1)+3。

    单击“确定”。

    公式的结果(2+3=5)将显示在单元格A4中。

    在下列示例中执行上述步骤,然后在步骤4中插入下面的公式之一。

    9f2a59c0779b4fe11bb18146ca53a099.gif加法

    将数字加到单元格

    =(A1)+3

    在示例中等于5

    对两个相邻的单元格求和

    =SUM(A1:A2)

    =(A1+A2)

    在示例中等于9

    对两个不相邻的单元格求和

    =(A1+A3)

    =(A1)+(A3)

    在示例中等于10

    对一组单元格求和

    =SUM(B1:B3)

    在示例中等于9

    5353a5c210c52f267a1fda5f117e41c7.gif减法

    从单元格中减去数字

    =(A1)-1

    在示例中等于1

    对两个单元格求差

    =(A3-B2)

    在示例中等于5

    763c08ed95c064c960ea4edd58209a6a.gif乘法

    将数字和单元格相乘

    =(A1)*3

    在示例中等于6

    将两个相邻的单元格相乘

    =PRODUCT(A1:A2)

    在示例中等于14

    将两个不相邻的单元格相乘

    =(B1*B3)

    =PRODUCT(B1)*(B3)

    在示例中等于5

    99b01154bf3d8c5c86b1ea4106095db7.gif除法

    将数字和单元格相除

    =(C2)/3

    在示例中等于2

    将两个单元格相除

    =(C2)/(A1)

    在示例中等于3

    注意如果在表格中添加了行或列,则必须手动重新计算Word表格中的运算。要执行复杂的计算,您应当考虑使用MicrosoftExcel。

    来源:互联网

    501216a8c9887ccc6e7504f982cc8e97.png

    展开全文
  • word 批量表格增加题注

    千次阅读 2019-12-26 12:15:50
    1.选中一个表,增加题注(引用->...此时显示为“表{SEQ 表格 \* ARABIC }” 5.复制“表{SEQ 表格 \* ARABIC }” 6.开始->替换,打开替换窗口。 7.输入查找内容(我的情况是本来每个表都有表名,但...
  • 该VBA脚本可以实现从word文档的多个表提取数据,每个表格的信息提取到一行。 Sub word2els() Set wdApp = CreateObject(“kwps.application”) path_ = ThisWorkbook.Path wdApp.Documents.Open (path_ & “”...
  • word中利用宏代码,快速统一调整表格
  • 批量word中的数据添加千分位号 Sub 设置千分位() '卡奇兵团:仅对已设置小数位的数值有效 With ActiveDocument.Range.Find .ClearFormatting .Replacement.ClearFormatting .MatchWildcards = True Do ...
  • Python 批量提取 Word 中表格内容,一键写入 Excel

    千次阅读 多人点赞 2021-03-31 00:40:59
    案例思想是源于前两天帮读者做了一个 demo ,需求大致将一上百个 word 中表格内容提取出来(所有word 中表格样式一样),把提取到的内容自动存入 Excel word 中表格形式如下 目前含有数个上面形式的 word 文档需要...
  • vb操作word数字编号

    2018-12-17 20:06:12
    关于vb操作word文档中数字编号有关知识 ListGallery 对象 (Word) 代表单个列表格式的库。 ListGallery对象是ListGalleries集合的成员。 使用ListGalleries (Index),其中 Index 是wdBulletGallery 、 ...
  • 批量修改替换多个Word文档同一内容的方法
  • 在工作,我们经常遇到将Excel表的部分信息填写到Word文档的对应表格中,以生成报告,方便打印。今天我们就来试试如何往固定的Word模板填写数据。此例要求将Excel档的“收货数据”填写到Word档的“收货记录”...
  • 展开全部准备工具/材料:windows10...2、windows10Build10158版本创建新的Word文档,在32313133353236313431303231363533e78988e69d8331333431353430文档输入演示数据,并操作如何在Word文档设置数字的千位分...
  • word表格排版工具是一款可以批量自动排版工具软件,适合有大量排版任务的会计师事务所,设计院等。 使用方法: 运行本软件,按软件界面提示打开要排版的word文件,在界面对表格进行统一格式设置,点击开始可能...
  • excel怎么把中文数字变成阿拉伯数字啊比如小编现在有 一 三 四 小编希望能变成 1 3 4有些记忆,注定无法抹去;就象有些人,注定无法替代一样。需要使用到“方方格子”插件,EXCEL 2007及以上版本可用,百度搜索下载...
  • word中表格批量导入到Excel

    万次阅读 2016-05-17 17:07:35
    通过宏命令将word中表格批量导入到Excel
  • word表格计算方法详解

    2021-07-10 03:26:08
    当我们在Word表格的单元格输入数据,然后就可以对表格单元格进行相关的一些计算。在对word表格进行计算,首先有几点需要说明:第一,Word表格中单元格的命名是由单元格所在的列行序号组合而成。列号在前行号在...
  • python读取word表格

    2021-01-12 02:18:11
    python如何获取word文件... 本文实例讲述了Python实现批量读取word中表格信息的方法。分享给大家供大家参考。具体如下: 单位收集了很多word格式的调查表,领导需要收集表单里的信息,我就把所有调查表放一个文件...
  • ※操作步骤※:1、安装《慧办公》软件,打开Word,《慧办公》软件将出现在Word的功能区,如下图:2、单击【批量插图】→【表格批量插入图片】,如下图:3、在弹出窗体,选择插入图片的方式,如下图:说明:...
  • word中千分位宏,在word中批量改变数字为千分位,比较方便好用
  • word数字批量转为会计计数

    千次阅读 2020-03-17 15:41:00
    因为报告是由python自动输出的,因此数字都是normal显示形式,对于用户阅读不甚友好,因此需要将word中数字批量转为会计计数。 操作 打开word的VBA option(alt)+ F8 将代码复制到程序框 Sub qianfen() '本代码...
  • 不过你可以在Excel输入这样的数据,“复制”,到WORD中“编辑”/“选择性粘贴”/“无款式文本”即可。 在Excel输入这样的数据的法子是: 选中将要输入的单元格区域,右击该区域,在弹出的快捷菜单选择“设置...
  • 假期最后一天,明天就要上班了,今天给大家分享20个Word实用技巧,希望你们能够喜欢。01、一键选择同样的内容编辑Word时,如果需要将相同样式的内容全选复制出去该怎么办...02、表格文字自适应我们在Word里面插入表...
  • 从多个Word文档中批量取值,整理到Excel表的技能,整 从多个Word文件提取指定的值到Excel,也可以理解为把多个Word文件的值放在一个表格中,便于统计或查阅。 本教材提供了4种不同情况下的WORD文件取值手法...
  • 简单好用的Word技巧一秒对齐文字在Word中如何对齐文字,我想十个人有九个都会像三顿这样手打空格。只有短短几行倒还好说,如果是几十行甚至几百行,一定会打空格打到吐吧。标尺一秒对齐!只需要选中文字,在标尺处...
  • word快速提取纯数字

    千次阅读 2021-07-25 08:53:12
    Word中,如何在文本数字混排的表格中提取自己想要的数值呢?以便计算数值。这时候,可能很多人会使用复制、粘贴的方法一个个地提取出来?NO,NO,NO......这里给大家推荐1个技巧:Word查找和替换功能。比如说,快速...
  • 2、选上刚刚建的模板,右键创建引导逻辑,指定excel每一列需要从word表格中哪一个单元格取值。复选框的需要下拉选择是复选框 3、选中模板右键上传,选择好要上传的word文档,一次性加载路径,统计入本地数据库。 4、...
  • 用javascript怎么实现把excel的数据批量导入到数据库表这个js不能直接实现吧 我们程序用到 先读取excel内容转换成数组 然后放到页面上 再提交表单 储存MySql如何批量添加数据或导入excel表的内容。只能做成sql...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 4,261
精华内容 1,704
关键字:

word表格中数字后批量加单位