博客园_erqie

在word2010里裁剪cad等图像

2011-12-12T03:51:00Z

刚出office2010的时候，安装，使用，都挺好，不爽的就是cad图形直接粘贴到word里没有了图片工具栏，造成图片周边空白过多而无法裁剪。以前的处理办法两个：1.在cad里把图形输出成图片，再把图片插入到word里，缺点是无法在word里再修改图形，一旦图形要修改，还得重复上述步骤。2.仍然直接在cad里复制，然后粘贴到word，在图形上右键，设置对象格式，在裁剪里用鼠标一个一个的调整，缺点是无法直观的看到图形的裁剪情况。

今天在用sigmaplot作图的时候，粘贴到word也有空白，但用右键点图形的时候发现有一个上浮的工具栏，里面有裁剪图标，兴奋不已。通过这个可以像原来一样直接裁剪。回头再在cad里一试，同样可行。

以前一直都直接在ribbon上找图片的工具栏，发现图片的有，cad或者其它的一些ole的图片没有。可能有人已经发现了这点，我也是不细心，没发现这个右键出来的浮动工具栏。具体操作看图就行了。（晕，发完才发现那个浮动工具栏没被录下来，奇怪。大家试试就知道了。）

本文链接

解决奇妙的Dell显示器屏幕闪的问题

2011-10-20T02:36:00Z

以前的是dell的品牌机，一套的，一直用起来没什么问题。最近换了个主机，显卡支持更高的1280*1024的分辨率。结果一安装完，显卡驱动也是最新的。屏幕文字要闪烁。只有在1024*768才不闪。几经折腾，终于在一个帖子里看到说dell显示器对驱动要求很严格。大家知道一般安装系统安装了显卡驱动就OK了，显示器的驱动一般是系统自带的就可以，结果没想到在网上搜索了这个显示器的驱动安装好后，屏幕文字抖动的问题给解决了。新鲜，特此记录一下。

本文链接

批量替换excel里的软回车

2011-09-13T03:48:00Z

按ctrl+h弹出替换框,然后点查找内容,按住alt不要放,用小键盘输入10,然后放开alt,然后点全部替换就可以了

本文链接

360，你还能再流氓一点吗？

2011-09-13T02:31:00Z

软件认证？认证毛线啊

本文链接

Google Earth批量生成地标文件（kml）的Excel VBA代码

2011-06-08T11:03:00Z

据一哥们需求，要把N（N>20000）多点添加到google earth中，这么繁杂、重复的工作怎么能用体力来完成呢，于是向我求助。

整理的地标包括名称、东经、北纬等数据，存储在excel文件中（第一列为名称，第二列为东经，第三列为北纬，坐标以小数度为单位，而不是度分秒）。开始想用按键精灵，但发现要实现在excel对不同行取位置不好办。于是研究google earth，随意添加了两个地标，然后右键另存为kml文件，用emeditor打开，发现就是个xml格式的文件，里面包括了众多信息，当然坐标也在其中。据此，从这个kml文件入手开始计划用vba来生成这样一个文件。以前没接触过，简单分析了一下，只需要填入几个数据就OK。于是动手，代码如下：

1 Sub GenPlacemark()
2     Dim i As Integer
3     Dim s As String '存储生成的代码
4     Dim f as String '保存的文件名
5     f="c:\point.kml"
6     s = "<?xml version='1.0' encoding='UTF-8'?>" & Chr(10) & _
7         "<kml xmlns='http://www.opengis.net/kml/2.2' xmlns:gx='http://www.google.com/kml/ext/2.2' xmlns:kml='http://www.opengis.net/kml/2.2' xmlns:atom='http://www.w3.org/2005/Atom'>" & Chr(10) & _
8         "<Document>" & Chr(10) & _
9         "<name>临时位置.kml</name>" & Chr(10) & _
10         "<StyleMap id='msn_ylw-pushpin'>" & Chr(10) & _
11         "<Pair>" & Chr(10) & _
12         "<key>normal</key>" & Chr(10) & _
13         "<styleUrl>#sn_ylw-pushpin</styleUrl>" & Chr(10) & _
14         "</Pair>" & Chr(10) & _
15         "<Pair>" & Chr(10) & _
16         "<key>highlight</key>" & Chr(10) & _
17         "<styleUrl>#sh_ylw-pushpin</styleUrl>" & Chr(10) & _
18         "</Pair>" & Chr(10) & _
19         "</StyleMap>"
20     s = s & "<Style id='sn_ylw-pushpin'>" & Chr(10) & _
21         "<IconStyle>" & Chr(10) & _
22         "<scale>1.1</scale>" & Chr(10) & _
23         "<Icon>" & Chr(10) & _
24         "<href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href>" & Chr(10) & _
25         "</Icon>" & Chr(10) & _
26         "<hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/>" & Chr(10) & _
27         "</IconStyle>" & Chr(10) & _
28         "<ListStyle>" & Chr(10) & _
29        " </ListStyle>" & Chr(10) & _
30         "</Style>"
31     s = s & "<Style id='sh_ylw-pushpin'>" & Chr(10) & _
32         "<IconStyle>" & Chr(10) & _
33         "<scale>1.3</scale>" & Chr(10) & _
34         "<Icon>" & Chr(10) & _
35         "<href>http://maps.google.com/mapfiles/kml/pushpin/ylw-pushpin.png</href>" & Chr(10) & _
36         "</Icon>" & Chr(10) & _
37         "<hotSpot x='20' y='2' xunits='pixels' yunits='pixels'/>" & Chr(10) & _
38         "</IconStyle>" & Chr(10) & _
39         "<ListStyle>" & Chr(10) & _
40         "</ListStyle>" & Chr(10) & _
41         "</Style>" & Chr(10) & _
42         "<Folder>" & Chr(10) & _
43         "<name>临时位置</name>"
44     s = s & "<open>1</open>"
45     SaveFile s, f
46     For i = 2 To Sheet1.UsedRange.Rows.Count
47         s = "<Placemark>" & Chr(10) & "<name>" & Sheet1.Cells(i, 1).Value & "</name>" & Chr(10) & _
48             "<Camera>" & Chr(10) & _
49             "<longitude>" & Sheet1.Cells(i, 2).Value & "</longitude>" & Chr(10) & _
50             "<latitude>" & Sheet1.Cells(i, 3).Value & "</latitude>" & Chr(10) & _
51             "<altitude>500</altitude>" & Chr(10) & _
52             "<heading>0</heading>" & Chr(10) & _
53             "<tilt>0</tilt>" & Chr(10) & _
54             "<altitudeMode>relativeToGround</altitudeMode>" & Chr(10) & _
55             "<gx:altitudeMode>relativeToSeaFloor</gx:altitudeMode>" & Chr(10) & _
56             "</Camera>" & Chr(10) & _
57             "<styleUrl>#msn_ylw-pushpin</styleUrl>" & Chr(10) & _
58             "<Point>" & Chr(10) & _
59             "<altitudeMode>absolute</altitudeMode>" & Chr(10) & _
60             "<gx:altitudeMode>clampToSeaFloor</gx:altitudeMode>" & Chr(10) & _
61             "<coordinates>" & Sheet1.Cells(i, 2).Value & "," & Sheet1.Cells(i, 3).Value & ",0</coordinates>" & Chr(10) & _
62             "</Point>" & Chr(10) & _
63             "</Placemark>" & Chr(10)
64             SaveFile s, f
65     Next
66     s = "</Folder></Document></kml>"
67     SaveFile s, f
68     MsgBox "down"
69 End Sub
70
71 Sub SaveFile(sql As String, fileName As String)
72 '--------------------------------------------------------------
73 '功    能：保存语句,若已存在文件则直接追加,若文件不存在在先新建.
74 '作    者：erqie
75 '制作日期：2009-08-24
76 '修订日期：
77 'ForReading 1 以只读方式打开文件。不能写这个文件。
78 'ForWriting 2 以写方式打开文件
79 'ForAppending 8 打开文件并从文件末尾开始写。
80 '--------------------------------------------------------------
81     Dim fso, MyFile
82     Set fso = CreateObject("Scripting.FileSystemObject")
83     If (fso.fileExists(fileName)) Then
84         '参数8表示在文件末尾追加写入
85         Set MyFile = fso.OpenTextFile(fileName, 8)
86         'fso.Delete (fileName)
87
88     Else
89         'ture表示覆盖创建
90         Set MyFile = fso.CreateTextFile(fileName, ture)
91     End If
92     MyFile.writeline (sql)
93     MyFile.Close
94     Set fso = Nothing
95     Set MyFile = Nothing
96 End Sub

其中GenPlacemark过程用于生成kml文件主体，基本思路：1.把kml文件的样式设置等固定部分先保存到变量s里（for循环以前），2.循环excel里存储的地标信息，并生成相应的Placemark段，具体位于代码的for循环体里。

SaveFile函数是用来保存文件的。

需要注意的是：1.kml文件坐标生效的地方位于：

"<coordinates>" & Sheet1.Cells(i, 2).Value & "," & Sheet1.Cells(i, 3).Value & ",0</coordinates>"

而不是

"<longitude>" & Sheet1.Cells(i, 2).Value & "</longitude>" & Chr(10) & _
"<latitude>" & Sheet1.Cells(i, 3).Value & "</latitude>" & Chr(10) & _

2.保存文件函数经过了多次调用，这是因为如果把所有信息都存储到变量s里，最后保存，excel会死掉，所以不得不在中间生成一段代码就保存一次。

3.使用vba保存的文件格式是gb2312的，而google earth只次utf8的编码，所以尽管生成的kml文件头里注明了

"<?xml version='1.0' encoding='UTF-8'?>"

但实际是不生效的，需要用文本编辑器，如;emeditor、editplus等将生成的文件另存为utf8编码。尝试过把

"<?xml version='1.0' encoding='UTF-8'?>"

改成

"<?xml version='1.0' encoding='gb2312'?>"

但google earth不认，只好手动转字体编码了。主要是考虑到中文地标名称，如果不是utf8编码，用google earth打开后会乱码，改完后就OK了。

使用此脚本步骤：打开保存有地标信息的excel文件，确保第一列为名称、第二列为东经，第三列为北纬，坐标以小数度为单位。按alt+f11调出vba编辑器，把kml脚本粘贴过去，使光标位于genplacemark函数体任意位置，按f5运行。结果默认保存在c盘根目录。由于保存时用的是追加写入的方式，因此每次运行前先删除c盘根目录下以前生面的point.kml文件。

kml脚本

本文链接

[转]Arcgis制作泰森多边形具体步骤

2011-05-03T07:49:00Z

1.添加站点坐标（为计算最后生成的泰森多边形的面积，这里的坐标格式只能是XY坐标，只可选择投影坐标系统）
2.将点图层导出为Shp文件（右键点图层 Data\Export data）
利用Analysis Tools\Proximity\Create Thiessen Polygonss划分泰森多边形（注意将Environment Settings\General Settings\Extent设为流域边界）
3.用流域边界裁剪生成的泰森多边形图
4.打开流域泰森多边形属性表，添加面积属性值（右键Open Attribute Table\Options\Add Field添加面积属性，可选择数据类型，并指定字段的精度和比例）完毕后选中面积属性栏，右键 Calculate Geometry[几何计算]，即可添加面积值

原文

本文链接

删除word中的参考文献引用标记

2011-04-08T08:38:00Z

一般情况下，报告或者论文中引用参考都是以[x]的方式（其中x为数字编号），且标记为右上标。如果从一个报告或论文中拷贝部分内容到另一个报告中，难免相应的参考文献引用要替换或删除。此时可以用word的替换功能，按ctrl+h打开替换窗口，点击“更多”，勾上“使用通配符”，然后在查找内容里输入"\[*\]"（注意不包括引号），即可查找出方括号中间为数字的内容。然后是删除或者替换都随便了。

本文链接

Aquaveo.GMS.v7.1.3.0.x86-REDT

2010-10-21T04:33:00Z

Download address: http://www.beeplat.org/folder/626450483.htm

本文链接

修改的2010版word与excel的菜单，把常用的提取了出来

2010-09-21T10:13:00Z

office2010可以自定义菜单，这下可以把自己常用的功能按键集中到一起了，免得鼠标在菜单上面乱找。

附件里是我根据网上的自定义菜单再自己修改符合自己习惯的，如果觉得好的可以拿去使用或进一步修改。

word修改菜单：

excel修改菜单：

/Files/erqie/office2010自定义菜单.7z

本文链接

转一个按月统计的SQL语句

2010-04-04T10:15:00Z

表结构如下: qtydate ---------------------------------------------- 132005/01/17 152005/01/19 32005/01/25 1052005/01/27 12005/01/31 3522005/02/03 122005/02/04 2552005/02/07 62005/02/18 12005/02/19 282005/...