推荐阅读
SharePoint 如何在母版页中插入WebPart
如何在母版页里插入自己开发的WebPart。其实很简单，母版页中虽然不允许插入WebPartZone，但是Designer就可以插入WebPart；或者手动注册，然后插入WebPart也可以，不过Designer插入的时候，会自动在头部注册的。 首先我们开发一个测试用的WebPart，代码很简单，只是输入一段文字，然后部署到网站，如下图： 比如我想修改PageTitle这个为我们自定义的WebPart，如下图： 在下面的位置，插入我们的webpart（我是F12在上图页面上找到一个ID叫PageTitle，然后认定这个节点是上图位置），如下图： 不要删掉下面的节点（删掉ContentPlaceHolder节点会报错！），而是剪切到最下面，设置Visible为false，如下图： 鼠标光标放到要插入的位置，点击菜单上的WebPart，如下图：
WPS提高单元格利用率 缩小单元格边距
需要输入各种各样的文档，在输入文档的同时还需要插入表格，在表格当中输入文字的时候，经常面临着单元格内容无法有效利用的情况，那么，在WPS文档与Word文档当中，如何提高表格单元格的利用率呢，今天我们就来教大家这个小技巧，具体怎么操作呢，一起来学习一下吧。 提高单元格利用率 缩小单元格边距首先，我们插入一个表格，在表格当中输入文字，我们看到单元格并没有被有效利用。 单击表格右键，选择表格属性。
如图 在弹出窗口中选择工程函数
在EXCEL表格中怎么使用IMSUM函数呢?IMSUM函数是求复数和的函数，那如何在EXCEL表格中使用IMSUM函数呢?下面小编为大家详细介绍一下，来看看吧! 打开EXCEL表格，点击公式按钮，如图 点击插入函数，如图 在弹出窗口中选择工程函数，如图 选择IMSUM函数，如图 在弹出窗口中选择数值区域，如图
Word 2010中微软雅黑字体导致行距过大的解决办法
在Word 2010中。 注意：如果在【页面设置】对话框中依次单击【文档网格】选项卡——【网格】——【无网格】单选钮——【确定】按钮后，微软雅黑字体段落间距也可恢复正常，但这种方法给其他段落的间距或页面总行数设置带了很大的问题，不推荐使用此法。更多相关阅读
最新发布
Excel批量获取指定目录下文本文件内容VBA代码
今天帮一位网友弄的，A列为文件名，B列为对应的文本文件内容。此代码只适用于Excel2003及以下版本，因FileSearch方法被微软阉割了。Sub listfile()”””””””””””””””””””””””‘ 批量获取指定目录下所有文本文件名和内容 ‘‘ ‘”””””””””””””””””””””””Dim fs, fso, flDim mypath As StringDim theSh As ObjectDim theFolder As ObjectDim strtmp As StringApplication.ScreenUpdating = FalseOn Error Resume NextSet fso = CreateObject("Scripting.FileSystemObject") ‘设置搜索路径Set theSh = CreateObject("shell.application")Set theFolder = theSh.BrowseForFolder(0, "", 0, "")If Not theFolder Is Nothing Thenmypath = theFolder.Items.Item.PathEnd If‘搜索开始Set fs = Application.FileSearchWith fs.NewSearch.SearchSubFolders = True ‘搜索子目录.LookIn = mypath ‘搜索路径.FileName = "*.txt" ‘搜索文件类型为txtIf .Execute(SortBy:=msoSortByFileName) = 0 ThenC = .FoundFiles.Count ‘统计搜索到的文件个数For i = 1 To Cstrtemp = .FoundFiles(i) ‘设置临时文件n = InStrRev(strtemp, "\") ‘获取文件路径长度（不包括文件名）‘获取文件名及扩展名strfilename = Replace(strtemp, Left(strtemp, n), "")‘从A2单元格开始输出格式为：文件名Cells(i + 1, 1) = Left(strfilename, Len(strfilename) – 4)Set fl = fso.opentextfile(strtemp, 1)strtmp = fl.readall ‘读取文本内容Range("b" & i + 1) = strtmp ‘B2开始写入内容fl.CloseNextElseMsgBox "该文件夹里没有符合要求的文件!"End IfEnd WithSet fs = NothingApplication.ScreenUpdating = TrueEnd Sub
如何修改Excel的标题
在Excel中，标题栏显示“Microsoft Excel”，如果需要修改Excel的标题以方便用户的操作，可通过VBA修改Excel的标题。Excel2003可通过VBA宏修改Excel的标题。Excel的标题的方法：首先Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.Caption = "Excel 伙伴天下"MsgBox "已完成修改Excel的标题", vbOKOnlyApplication.Caption = vbNullStringEnd Sub按F5运行键，出现“已完成修改Excel的标题”说明已完成修改Excel的标题，单击“确定”按钮还原修改修改Excel的标题。
如何查询Excel子窗口的最大高度和宽度
在Excel VBA中，如果需要查询Excel子窗口的最大高度和宽度以方便用户的操作，可通过VBA查询Excel子窗口的最大高度和宽度。Excel2003可通过VBA宏查询Excel子窗口的最大高度和宽度。查询Excel子窗口的最大高度和宽度的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myMaxHeight As Double, myMaxWidth As DoublemyMaxHeight = Application.UsableHeightmyMaxWidth = Application.UsableWidthMsgBox "Excel子窗口：" _& vbCrLf & "最大高度为：" & myMaxHeight _& vbCrLf & "最大宽度为：" & myMaxWidth, vbInformationEnd Sub按F5运行键运行程序，返回当前系统下Excel子窗口的最大高度和宽度。
如何查询Excel的安装路径
在Excel VBA中，如果需要查询Excel的安装路径以方便用户的操作，可通过VBA查询Excel的安装路径。Excel2003可通过VBA宏查询Excel的安装路径。查询Excel的安装路径的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()MsgBox "Excel的安装路径是: " & Application.PathEnd Sub按F5运行键运行程序，查询Excel的安装路径，返回用户Excel的安装路径。
如何实现Excel2007文档逆序打印
在Word2007中，只要依次点击左上角Office徽标→打印，在打开的“打印”设置窗口中点击“选项”按钮，在接着出现的“Word选项”窗口中切换到“高级”标签页，然后勾选“打印”项中的“逆序打印页面”选项，这样打印机打印时就会从最后一页开始逆序打印到第一页，打印完毕后，最后一页自然处于最底下，而第一页处于最上面，如此则无须逆序重排文档，直接就可以装订成册，对于长篇打印文档尤其方便。与Word相比，Excel的打印功能就相形见绌，Excel2007中也未见对打印功能有任何改善。但我们只要稍费心思，也能让Excel2007轻松拥有“逆序打印”功能。操作步骤一.打印机属性巧设置有些打印机只要安装了自带的驱动程序，就可以在打印属性中找到类似“逆序打印”的打印选项。以笔者的Canon PIXMA iP1000为例“事先请安装打印机附带光盘中的驱动程序”，打印时，只要打开Excel2007工作簿，依次点击左上角Office徽标→打印，打开“打印”设置窗口，在打印机名称中选中“Canon PIXMA iP1000”，然后点击“属性”按钮，调出“Canon PIXMA iP1000属性”窗口，切换到“页设置”标签页，勾选“反向”复选框再点击“确定”按钮即可。二. 宏代码实现法有些打印机不具备上述属性，但通过宏照样可以实现逆序打印功能。打开该Excel文件，切换到“视图”选项卡，点击“宏”→“录制宏”，出现“录制新宏”窗口，在“宏名”定义一个名称为：ReversePrint，点击“确定”退出;再点击“宏”→“查看宏”，选择“宏名”下的“ReversePrint”并点击“编辑”，打开“Microsoft Visual Basic”编辑器，用如下内容替换右侧窗口中的所有代码，然后保存关闭VBA编辑器：Sub ReversePrint()
如何查询Excel窗口的位置
在Excel VBA中，如果需要查询Excel窗口的位置以方便用户的操作，可通过VBA查询Excel窗口与左边界的距离和顶端的距离来获取Excel窗口的位置。Excel2003可通过VBA宏查询Excel窗口的位置。查询Excel窗口的位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myLeft As Double, myTop As DoublemyLeft = Application.LeftmyTop = Application.TopMsgBox "Excel窗口的位置：" _& vbCrLf & "左边界距离：" & myLeft _& vbCrLf & "顶端距离：" & myTop, vbInformationEnd Sub按F5运行键运行程序，返回当前系统下Excel窗口的位置。
如何设置Excel文件的默认位置
在Excel VBA中，如果需要设置Excel文件的默认位置以方便用户的操作体验，可通过VBA设置Excel文件的默认位置。Excel2003可通过VBA宏设置Excel文件的默认位置。设置Excel文件的默认位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.DefaultFilePath = "C:\Documents"End Sub按F5运行键运行程序，即可设置Excel文件的默认位置。Excel的默认文件位置可通过单击“工具”菜单-“选项”菜单项，在打开的“选项”对话框中单击“常规”选项卡，在“默认文件位置”输入框可修改Excel文件的默认位置。
如何改变Excel的显示位置
在Excel VBA中，如果需要改变Excel的显示位置以方便用户的操作，可通过VBA设置窗口与左边界和顶端的距离来改变Excel的显示位置。Excel2003可通过VBA宏改变Excel的显示位置。改变Excel的显示位置的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myWState As Long, myTop As Double, myLeft As DoubleWith ApplicationmyWState = .WindowState ‘获取当前的窗口状态.WindowState = xlNormal ‘将窗口设置为一般显示myTop = .Top ‘获取当前窗口的顶部位置myLeft = .Left ‘获取当前窗口的左侧位置.Top = .Top + 50 ‘设定窗口的顶部位置.Left = 100 ‘设定窗口的左侧位置If MsgBox("Excel窗口的显示位置已经改变!" & vbCrLf _& "要恢复为原来的状态吗?", vbQuestion + vbYesNo) = vbYes Then.Top = myTop ‘恢复窗口的顶部位置.Left = myLeft ‘恢复窗口的左侧位置.WindowState = myWState ‘恢复窗口的显示状态End IfEnd WithEnd Sub按F5运行键运行程序，即可改变Excel的显示位置。
Excel获取指定路径的文件名 vba代码
在Excel VBA中，如果需要Excel获取指定路径的文件名以方便用户的操作体验，可通过VBAExcel获取指定路径的文件名。Excel2003可通过VBA宏Excel获取指定路径的文件名。Excel获取指定路径的文件名的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Dim myFilename As String, myPath As StringChDir Application.DefaultFilePath ‘改变默认路径myPath = "C:\" ‘指定的任意路径SendKeys myPath & "{TAB}" ‘将指定的任意路径发送到“打开”对话框myFilename = Application.GetOpenFilenameRange("A1") = myFilenameEnd Sub按F5运行键运行程序，Excel调用“打开”对话框，自动打开指定的路径。双击指定的文件，Excel获取指定路径的文件名。相关说明： 当输入法处于中文输入法状态时，将不能打开指定的路径。
如何隐藏Excel窗口
在Excel VBA中，如果需要隐藏Excel窗口以方便用户的操作，可通过VBA设置Excel窗口的显示方式来隐藏Excel窗口。Excel2003可通过VBA宏隐藏Excel窗口。隐藏Excel窗口的方法：首先按“Alt+F11”组合键，Excel2003打开代码编辑器，单击“插入”菜单-“模块”，双击插入的模块，在右侧的代码窗口中输入：Sub Excel_Partner()Application.Visible = FalseMsgBox "Excel窗口已被隐藏！下面将重新显示Excel窗口！"Application.Visible = TrueEnd Sub按F5运行键运行程序，即可隐藏Excel窗口。