精华内容
参与话题
问答
  • http://n.dvbbs.net/topic-1335208.aspxhttp://bbs.kycms.com/showtopic-3145-1.html CSharp_ds 复制word我们的编辑器,然后你查看源代码,会看到然后你手动把 的方式,我们的远程存图功能就能自动把临时文件夹里...

    http://n.dvbbs.net/topic-1335208.aspx

    http://bbs.kycms.com/showtopic-3145-1.html CSharp_ds

     

    复制word我们的编辑器,然后你查看源代码,会看到<v:imagedata src="file:///C:/Users/ADMINI~1/AppData/Local/Temp/1/msohtmlclip1/01/clip_image001.jpg" o:title="KYCMSV2.0管..._2008.11.23.15.35.21"></v:imagedata>

    然后你手动把 <v:imagedata  改成  <img  ,以形成<img src="file:///C:/Users/ADMINI~1/AppData/Local/Temp/1/msohtmlclip1/01/clip_image001.jpg" o:title="KYCMSV2.0管..._2008.11.23.15.35.21"> 的方式,我们的远程存图功能就能自动把临时文件夹里的东西拷贝进系统的。

     

    但是这个问题是只能在服务器上添加内容才能实现,因为这里的[url=file:///]file:///[/url]路径,服务器会从服务器的C盘去找,而真实的路径是在客户机上,所以要用Javascript与asp.net结合起来,将图片上传到服务器上。
    我的办法是在过滤Word字符的时候,将v:imagedata 转换成标准的img标签,然后用表达式取得图片路径,上传到服务器上,再把路径换成最终图片路径。

    目前还存在一个问题,就是如果上传速度太快(比如在服务器上添加文章),会产生同名的随机文件名(这个问题,KY的远程存图也存在,找到原因了,是因为Function.GetFileName位于循环中,所以random.Next有的时候会得到相同的随机数)

     

    修正了一下
    如果不勾选远程存图,也自动上传Word图片,否则内容添加后,Word中的图片不可能正常显示,所以改为自动上传图片。
    如果图片较大,会造成假死的现象,我增加了一个进度条显示的效果,一边上传一边替换图片路径,速度还不错。所有图片全部上传完毕才会提交数据到数据库。

     

    问题解决了,用FCKEditor.EditorMode来判断编辑器模式

    现在重新写了下上传方法,上传速度提高了不少。

     

    上传方式用MSXML2.XMLHTTP或者VBA方式都可以实现,服务器不用做任何额外配置。
    试了下重写Flash的FileReference的方式来上传图片,没有成功,主要是FileReference.upload()函数是非阻塞式的,并且安全沙箱难控制,不然这种方式应该可以做出很漂亮的效果,比如透明不规则的上传提示。

     

    这个功能在局域网测试完全没问题,因为传输速度快,没有出错,但是上传到服务器上,然后通过ADSL访问,自动上传时速度较慢,只会上传第一张图片,然后就停住了。

    现在的解决办法是用Delphi做了一个ActiveX,在客户机安装好后,就可以使用Word图片自动上传功能了(只需要网站管理员的客户机安装,服务器不用做任何配置,所以也适合虚拟主机用户使用)

    我看了下TurboCMS的安装帮助,从Word文档导入并解析出文章标题和内容,需要在服务器安装配置Office组件,我觉得这完全没有必要啊,解析过程全部是在客户机上完成的,服务器上完全用不到Word的信息,等于脱了裤子放屁。

    还有他们那个自动上传Word图片的功能,只能一张一张传,而不能批量上传。这样就存在一个问题,比如粘贴的内容中有10张临时路径的图片,他就循环执行10次showModalDialog来上传图片,这在IE6下没问题,如果在IE7下,就只执行一次,然后就提示“拒绝访问”。还有,临时路径他只支持“file:///C:/DOCUME~1/Codegear/LOCALS~1/Temp/msoclip1”这样的短路径格式,如果路径是“C:/Documents and Settings/All Users/Documents/My Pictures”这中带空格的形式,就会提示找不到路径“C:/Documents ”。

    看来他们的天价产品没有给出试用版是有原因的,的确是有点唬人。

     

    发现TurboCMS的一个漏洞,Word图片上传地址没有经过身份认证就可以上传图片,那这样的话,在本地提交参数和文件名到TurboCMS服务器,就可以无限上传图片到服务器上(如果够无聊的话,上传些SEX图片 )

    研究了一下他为什么不作身份认证,原来是无法获取IE内存中的Cookie值,所以身份验证永远也通不过,如果是模拟登陆获取Cookie的话,那每上传一张图片就要模拟登陆一次后台,速度很慢,而且登陆日志会超长。

    展开全文
  • Word 图片操作

    千次阅读 2015-08-20 11:36:33
    一. 一张一张的处理 Sub 插入图片() Dim myfile As FileDialog Set myfile = Application.FileDialog(msoFileDialogFilePicker) With myfile .InitialFileName = "D:\" If .Show = -1 Then

    一. 一张一张的处理

    </pre><pre name="code" class="vb">Sub 插入图片()
    Dim myfile As FileDialog
        Set myfile = Application.FileDialog(msoFileDialogFilePicker)
        With myfile
             .InitialFileName = "D:\"
                If .Show = -1 Then
                For Each fn In .SelectedItems
              Set mypic = Selection.InlineShapes.AddPicture(FileName:=fn, SaveWithDocument:=True)
               mypic.Width = 28.345 * 6.3 '根据需要设置
               mypic.Height = 28.345 * 5.4
         Next fn
              End If
        End With
        Set myfile = Nothing
    End Sub



    二. 在表格中插入图片并根据单元格大小自动改变图片大小

    Public Sub ResizeThePicture()
        On Error Resume Next
        Dim picW As Single, picH As Single
        Dim cellW As Single, cellH As Single
        Dim rtoW As Single, rtoH As Single
        cellW = ActiveCell.Width
        cellH = ActiveCell.Height
        picW = Selection.ShapeRange.Width
        picH = Selection.ShapeRange.Height
        rtoW = cellW / picW * 0.95
        rtoH = cellH / picH * 0.95
        If rtoW < rtoH Then
            Selection.ShapeRange.ScaleWidth rtoW, msoFalse, msoScaleFromTopLeft
        Else
            Selection.ShapeRange.ScaleHeight rtoH, msoFalse, msoScaleFromTopLeft
        End If
        picW = Selection.ShapeRange.Width
        picH = Selection.ShapeRange.Height
        Selection.ShapeRange.IncrementLeft (cellW - picW) / 2
        Selection.ShapeRange.IncrementTop (cellH - picH) / 2
    End Sub
    

    三. 批量同时处理相同大小

    Sub 图片大小处理()
      Dim iSha As InlineShape
      For Each iSha In ActiveDocument.InlineShapes
        If iSha.Type = wdInlineShapePicture Then
          iSha.LockAspectRatio = msoFalse
          iSha.Width = CentimetersToPoints(4.6)
          iSha.Height = CentimetersToPoints(4.2)
        End If
      Next
    End Sub
    



    四. 此法针对一个word文档表中有多种尺寸大小的图片

    4.1 首先,用如运行如下的代码对前部分相同的图片进行处理
    Sub 图片处理一()
    Mywidth = 5.21 '5.21为图片宽度(厘米)
    Myheigth = 3.92 '3.92为图片高度(厘米)
    For Each iShape In ActiveDocument.InlineShapes
    iShape.Height = 28.345 * Myheigth '1cm等于28.35px
    iShape.Width = 28.345 * Mywidth '1cm等于28.35px
    Next iShape
    End Sub

    Sub 图片大小处理二()
    ' 批量设置图片尺寸
    ' 设置好第一张整改图片(假设整改图片位于整个文档图片第k位)的大小之后,运行此宏即可.
    Dim n
    For n = k + 1 To ActiveDocument.InlineShapes.Count '注:k+1表示第二张整改图片,实际操作中要填入实际数值
    ActiveDocument.InlineShapes(n).Width = ActiveDocument.InlineShapes(k).Width 'k表示第一张整改图片,实际操作中要填入实际数值
    ActiveDocument.InlineShapes(n).Height = ActiveDocument.InlineShapes(k).Height 'k表示第一张整改图片,实际操作中要填入实际数值
    Next n
    End Sub


    转自: http://needzc.vicp.net/thread-83-1-1.html

    展开全文
  • 支持复制粘贴word图片的文本编辑器

    热门讨论 2014-06-13 15:32:49
    1、先注册控件 注册命令:regsvr32.exe 文件夹路径\UpToFtp.ocx 卸载命令:regsvr32.exe /u 文件夹路径\UpToFtp.ocx ... 修改ftp地址: 支持复制粘贴word图片的文本编辑器\测试\_src\plugins\wordimage.js
  • 批量缩小word图片的宏

    2015-01-19 12:20:44
    Dim n '图片个数  On Error Resume Next '忽略错误    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片  ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px  ...


        Dim n '图片个数
        On Error Resume Next '忽略错误
        
        For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes类型图片
        ActiveDocument.InlineShapes(n).Height = 400 '设置图片高度为 400px
        ActiveDocument.InlineShapes(n).Width = 300 '设置图片宽度 300px
        Next n
        For n = 1 To ActiveDocument.Shapes.Count 'Shapes类型图片
        ActiveDocument.Shapes(n).Height = 400 '设置图片高度为 400px
        ActiveDocument.Shapes(n).Width = 300 '设置图片宽度 300
        pxNext n

    展开全文
  • Word】批量修改Word 图片大小

    千次阅读 2019-01-09 15:05:44
    偶然发现这个黑科技,word 居然可以写特么代码(宏 + VBA) 宏是什么鬼 玩过魔兽世界的小伙伴们指定不会陌生,那特么VBA是什么鬼,翻译成中文就是Visual Basic for Applications(VBA)是Visual Basic的一种宏语言 ...

    偶然发现这个黑科技,word 居然可以写特么代码(宏 + VBA)

    宏是什么鬼 玩过魔兽世界的小伙伴们指定不会陌生,那特么VBA是什么鬼,翻译成中文就是 Visual Basic for Applications(VBA)是Visual Basic的一种语言

    由于微软Office软件的普及,人们常见的办公软件Office软件中的WordExcelAccessPowerpoint都可以利用VBA使这些软件的应用更高效率,例如:通过一段VBA代码,可以实现画面的切换;可以实现复杂逻辑的统计(比如从多个表中,自动生成按合同号来跟踪生产量、入库量、销售量、库存量的统计清单)等。

     

    下面,一起来看看操作技巧:

    (1)首先插入图片或直接打开已有图片的Word图文文档。

     

    (2)直接按【Alt+F8】打开 “宏”对话框,在“宏名”文本框中输入宏名称"setpicsize",然后点击“创建”按钮。

    3)打开VBA编辑器(也可直接按【Alt+F11】快捷键),删除窗口中原有的通用代码,然后将下面的代码复制粘贴到窗口中。

    Sub setpicsize() '设置图片尺寸

    Dim n '图片个数

    On Error Resume Next '忽略错误

    For n = 1 To ActiveDocument.InlineShapes.Count 'InlineShapes 类型 图片

    ActiveDocument.InlineShapes(n).Height = 198.45 '设置图片高度为 7cm

    ActiveDocument.InlineShapes(n).Width = 283.5 '设置图片宽度 10cm

    Next n

    End Sub

    技巧提示:代码中图片的宽度(Height )= 170.1 '设置图片高度为 6cm );高度(Width) = 283.5 '设置图片宽度 10cm,是如何计算得出的。

    方法为:Word中的尺寸单位默认是cm(厘米),而1cm等于28.35px(像素),由于代码中换算设置的单位是px(像素)。所以就用尺寸高度或宽度值乘像素值。即为:7*28.35=198.45;宽度换算方法与此相同。

    (4)然后按【Ctrl + S 】键保存内容,关闭窗口。再次按【ALT + F8】打开 “宏”对话框查看宏,点击“运行”按钮。此时,文档中的所有图片就会自动的变成设置好的尺寸大小了。

    但是,细心的小伙伴会发现,上方文档中图片的高度还是不一样,是怎么回事?这是由于勾选了“锁定纵横比”复选框(是Word为了调整图片尺寸时,为保持图片不变形而默认勾选的选项)。

     


    查找人数:ctrl + H       ^g     显示全部突出

    展开全文
  • 问题描述:代码中设置图片为嵌入型,但是生成word之后图片没有格式。 代码:object range = wordApp.Selection.Range; ;//wordDoc.Paragraphs.Last.Range; object linkToFile = false; //默认 object ...
  • word 图片文字环绕

    千次阅读 2016-11-25 11:32:05
    要想实现,下图所示的排列方式: 双击图片,设置图片文字环绕方式为 四周型 然后有个其它布局选项,可以设置文字与图像边距
  • C# word 图片大小

    2017-10-24 13:50:00
    通过Office自带的类库word文档中插入图片图片大小的单位为磅 而文档中,图片的大小已经固定,为CM。 实际工作中,首先将图片插入到word中,根据目前的大小,计算转换为目标大小的比率,将长宽按照目标大小进行...
  • Word图片导出方法

    2010-05-14 10:15:00
    在使用word时,有时我们会遇到这样的情况:word中的图片很漂亮,我们要在别的软件中使用的话,图片调不出来。如何解决这种情况呢?下面就向大家简单介绍几一种从word中将图片导出的小方法。选择“文件”—“另存为...
  • POI 读word 图片 和 读word表格

    千次阅读 2010-05-25 00:06:00
    转帖:http://blog.csdn.net/InviteSun/archive/2009/10/16/4682765.aspx POI 读word表格view plaincopy to clipboardprint?FileInputStream in = new FileInputStream("D://操作手册.doc"); POIFSFileSystem
  • 分享的这个工具还有公式识别可以用 一款OCR识别的软件将其转换成...然后这样就可以打开想要转换的PDF或者PNG之类的图片了 好像很简答嗯~ o(* ̄▽ ̄*)o往下 我导入一个物理题效果如下好像后面会更新分栏吧期待...
  • java用poi替换word图片

    2017-08-10 00:41:37
    我现在有个需求将word07中的数学公式转存png格式然后在放到这个公式的位置,公式转png已经实现,然后加入了word中最后面了。现在的问题是怎么替换到我公式的位置,简单来说就是获取原来公式的位置并替换他
  • ueditor在前端接收排好版的HTML freemarker模板用的.mht文字格式都能显示处理 img标签的src属性值以转成base64形式在网页正常显示但是导出到word里就显示一个空白小框 src="data:image/jpg;base64,/9j/4...
  • word图片无法保存问题

    千次阅读 2014-01-13 12:14:13
    当你插入一个图片word中的时候在当前目录下会产生一个和你word文件名同名的.files文件 当你把这个文件删除的时候你会发现你插入的图片看不见了。这是因为你保存文件的格式出错了。单击文件中的另存为你会发现你...
  • kindeditor+粘贴word图片

    2019-06-13 11:36:39
    Chrome+IE默认支持粘贴剪切板中的图片,但是我要粘贴的文章存在word里面,图片多达数十张,我总不能一张一张复制吧 ? 我希望打开文档doc直接复制粘贴到富文本编辑器,直接发布 在网上查了很多资料,UEditor和其它...
  • 打开文档后,按Alt+F11,在左边Porject下找到ThisDocument,右键插入模块,贴上下面的Sub Macro()For Each iShape In ActiveDocument.InlineShapesiShape.Height = iShape.Height * 0.25iShape.Width = iShape.Width ...
  • word 图片缩放并居中

    2017-10-30 15:18:02
    Sub chgPic()  For Each iShape In ActiveDocument.InlineShapes  iShape.Height = 0.75 * iShape.Height  'iShape.Width = 7.5 * iShape.Width    If Len(iShape.Range.Paragrap
  • word 图片位置固定方法

    千次阅读 2016-08-18 17:21:05
    我们在Word中给文档添加图片可以达到图文并茂,从而产生更好的效果。默认情况下,插入的图片总是随随文字移动而移动。插入一幅图片,如何可以固定图片位置呢?对Word感兴趣的朋友可加Word学习交流群:180627193...
  • VBS批量缩放Word图片

    千次阅读 2013-09-27 13:18:26
    今天有朋友问我如何处理Word中大量图片的缩放问题,于是就在网上找了一些相关的资料,修改后写出了如下VBS 主要功能是批量缩放Word文档中图片,把所有图片按原...Sub setpicsize() '批量缩放Word图片 Dim n '图片个数
  • TinyXML解析word图片

    千次阅读 2013-01-16 22:47:23
    如何将word中的图片数据获取出来,如果是通过word的接口来获取,这个暂时还没有找到,只能采用曲线救国了,通过对word的xml文档做解析,来获取word图片数据。 你可以将word另存为xml文件以查看word中的图片数据,...
  • Word 图片显示不出来

    2012-04-06 17:22:45
    点击左上角word主菜单-->word选项-->高级-->显示文档内容-->显示图片框 前面的勾去掉即可。
  • word图片插入不清晰

    2020-03-29 11:57:31
    word支持的矢量格式主要有两种:.wmf和.emf .emf是.wmf的加强版 图片模糊主要是因为插入的是栅格图片(.jpg;.png等等) 这个时候就需要进行格式转换 常用的在线格式转换网站 CoolUtils OnlineConvertFree ...
  • 如何给word图片批量编号

    千次阅读 2017-11-21 10:40:19
    作者:知乎用户 ...在word中批量给图片加题注及编号,方便大量图片插入的文档更新时图片变动时可自动更新域来保持题注编号正确。 1.右击某张图片,选择插入题注。 2.可选择标签,也可以点击按钮"新...
  • Java Poi 根据文字内容 插入 word 图片

    万次阅读 2018-11-14 18:45:46
    如下图,我需要在word里根据一个图片的名字,将名字替换成该图片(公章) 思路: 用POI遍历每一个表格里的每一行的每一个单元格,如果遇到我自己定义的"&amp;章",则获取后面的图片的名字,然后利用...
  • C#代码: private void button1_Click(object sender, RibbonControlEventArgs e) { // PictureContentControl myPictureContentControl = null; foreach (Microsoft.Office
  • 取消word图片的链接形式

    千次阅读 2018-06-25 15:57:15
  • Word图片不显示的情况

    万次阅读 2009-09-26 15:59:00
    我的word现在突然不能正常显示图片了,不论是copy的还是从插入那里插入的,都在编辑窗口里显示一个空白框,插入excel的图表也是,但是预览又能看见,不知哪位大侠可以不吝赐教,万分感谢先!!!具体表现为:1、选择...
  • WORD图片版式转换宏VBA

    2019-12-04 14:14:14
    '* +++++++++++++++++++++++++++++ ...'仅测试于System: Windows NT Word: 11.0 Language: 2052 '№ 0281^The Code CopyIn [ThisDocument-ThisDocument]^' '* --------...
  • imagedata的src必须是唯一的,不然显示的图片不正确 name也必须和imagedata的src一致

空空如也

1 2 3 4 5 ... 20
收藏数 12,227
精华内容 4,890
关键字:

word图片