ICode9

精准搜索请尝试: 精确搜索
  • 2022-06-13 VBA代码实现word文档批量转pdf2022-06-13 21:33:05

    VBA代码: 代码第7行,文件位置需要改成自己需要转换的文件所在路径。 1 Sub doc2pdf() 2 ' 3 ' doc2pdf 宏 4 ' 5 ' 6 Dim file As String 7 ChangeFileOpenDirectory "C:\Users\jskzls\Desktop\测试\" '文件夹位置 8 9 file = Dir("*.doc") 10 Do

  • Python如何使用win32com.client2022-05-30 12:01:18

    在网上搜索的时候,经常看到两种打开方式: dispatch和EnsureDispatch import win32com.client as win32 xl_dis = win32.Dispatch("Excel.Application") import win32com.client as win32 xl_ens = win32.gencache.EnsureDispatch("Excel.Application") 两种方式的差别参见: https

  • C# 通过COM接口实现导入外部块功能2022-04-07 13:32:05

    private void btnBlock_Click(object sender, EventArgs e){double[] insertionPoint = new double[3];insertionPoint[0] = 0;insertionPoint[1] = 0;insertionPoint[2] = 0.0;string progid = "ObjectDBX.AxDbDocument.22";dbx.AxDbDocument dbxDoc;dbxDoc = (dbx

  • Word批量设置图片大小2021-09-15 14:32:56

    写论文需要批量统一图片格式?让我们打开word“宏”。 1.查看Word图片属性是像素(px)还是厘米(cm) 如果是厘米,可以参考步骤二设置。如果是像素,跳转到步骤三开始coding。  (当然是cm也不影响,像素更方便) 2.将Word图片显示方式修改为像素 3.在宏这里开始coding 3.1选择“视图”中

  • vba获取word文档中的标题2021-07-20 19:01:11

    今天在看协议文档的时候,发现协议条目太多,不想每次写一个就到文档中找一个,我想把条目都写成以条目名称为名的txt中,这样放在项目中就可以做一个看一个,做完删除或者保留资料以后翻看也都是可以的,非常方便 于是写了个vba来处理这些word数据 下面见代码 Sub 六级标题全部写入txt()

  • VBA制作坐标图2021-06-08 23:06:06

    VBA制作坐标图 word、ppt经常要制作图形,例如坐标图,有许多纵横线,有时需要批量制作,手工极不方便,线间距也不好调节,还有设置网格线的粗细、箭头、颜色等等,这时用VBA就可以发挥优势。 一、要求: 每间隔5格主刻度线加粗显示,组合成一个图;次刻度线较细,组合成一个图。便于批量设置主刻

  • 如何批量处理word中的表格2021-04-14 21:00:18

    如何批量处理word中的表格 1 . 批量设置word中的表格宽度比如,我这有一个word文档有200多个表格(全部是3列的),现在要求第一列宽度3cm,第二列4cm,第三列5cm。一个一个改不太可能吧???执行如下的宏代码就搞定:  点击(此处)折叠或打开Sub Macro1()Dim MyTable As TableFor Each MyTable

  • 如何批量处理word中的表格2021-04-09 22:55:00

    如何批量处理word中的表格1 . 批量设置word中的表格宽度比如,我这有一个word文档有200多个表格(全部是3列的),现在要求第一列宽度3cm,第二列4cm,第三列5cm。一个一个改不太可能吧???执行如下的宏代码就搞定:点击(此处)折叠或打开Sub Macro1()Dim MyTable As TableFor Each MyTable In Active

  • 返单编号更新2021-04-09 18:31:31

    var doc = activeDocument; var pt = 72/25.4; for (k=0; k<doc.artboards.length; k++) { var abBounds = doc.artboards[k].artboardRect; var 宽=abBounds[2]-abBounds[0]; var 高=abBounds[1]-abBounds[3]; var wh = getTextWidth(); var x=abBounds[2]-3

  • 用Python来控制Autocad的打印------以Pycomcad为例2021-02-01 23:33:20

    from pycomcad import * #以pycomcad作为接口库为例 import win32com acad=Autocad() 打印最重要的设置都在上面的界面中,下面对这些个界面,用Python控制来一一进行说明: (1)打印机的控制 全部显示出打印机: acad.acad.ActiveDocument.ModelSpace.Layout.GetPlotDeviceNames() 选择

  • pyautocad2019-11-23 19:53:01

    首部必须 #!/usr/bin/env python # -*- coding: utf-8 -*-    导入pyautocad import pyautocad    import re# 设置python的默认编码,只针对python2,python3不需要 import sys reload(sys) sys.setdefaultencoding('utf-8')    # 打开cad文件 acad.ActiveDocument.A

  • 20190412wdVBA 排版2019-04-12 12:38:15

    Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range Call ClearParagraphFill Call ConvertNoToText '项目编号转为文本

  • 20190411wdVBA_排版2019-04-11 23:40:24

    Sub LayoutForExamPaper() Dim StartTime As Variant Dim UsedTime As Variant StartTime = VBA.Timer Application.ScreenUpdating = False Dim oneP As Paragraph Dim rng As Range Call ClearParagraphFill Call ConvertNoToText '项目编号转为文本

专注分享技术,共同学习,共同进步。侵权联系[[email protected]]

Copyright (C)ICode9.com, All Rights Reserved.

ICode9版权所有