推荐阅读
怎样利用微信小程序制作音乐相册
利用小程序可以轻松制作音乐相册，并且发送亲朋好友，下面给大家简单的介绍一下。1.打开微信，点击【发现】2.点击【小程序】3.搜索【动态相册DIY】4.点击打开小程序5.点击【开始制作】6.点击【添加照片】，从手机中选择图片，稍等片刻7.点击【模板】8.选择合适的【模板】9.点击【音乐】
WPS 如何解除word安全模式
不知大家是否知道Word安全模式呢？当朋友们在打开文档的时候出现一些Word问题提示的时候，按照上面的操作点击不发送然后就可以打开安全模式。但这个模式怎样去掉呢？下面小编告诉大家。使用Word文档时经常会出现打开文档进入安全模式的状况，要想解除也不难。第一步：开启WPS文档，接下来打开需要解除安全模式的那个文档：第二步：点击菜单“文件”，然后选择“另存为”：第三步：在下面“文件类型”里面选择“WPS模板文件”，点击保存：第四步：重启WPS，然后打开那个刚保存的模板文件，然后按照上面步骤另存为正常文件即可：我们还可以删除WPS空白模板文件，然后重启WPS来自动生成的方式解除安全模式。对于Word安全模式该怎么解除这个问题大家是否都已经了解了？其实对于大多办公一族都需要掌握这个技巧和知识，因为这的确是很有用。
excel超链接无法打开怎么办
excel超链接无法打开怎么办？当excel文档里面的超链接无法打开，提示以下错误，而经确认，用户对超链接的目的文档有完全控制权限。以下提供该问题的解决办法1、打开开始菜单，在运行里输入regedit,回车2、在注册表中，导航到HKEY_CURRENT_USER\Software\Classes\.html 项3、在默认项上点右键选择修改4、将Max2.Association.HTML值改为Htmlfile，然后确认，然后退出注册表
如何在Word 2013文档中添加日期和时间？
如何在Word 2013文档中添加日期和时间？您可能有想要知道当前日期和时间的人，或者只是想在Word 2013文档中插入日期或时间，或者只是两者都需要。几乎没有例外，只有时光旅行者是困扰于本年度的人。但是，出于记录保存目的，您可能需要在文档中使用它。无论如何，Word都有许多技巧可以实现它。除了查看日历并键入日期外，您还可以使用“日期和时间”按钮（显示在页边距），该按钮位于“插入”选项卡上的“文本”组中。单击按钮以显示一个对话框，从中可以选择如何将当前日期或时间插入文档中。
最新发布
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窗口。