半萌半骚长发及腰
vba中如何实现按钮随鼠标移动
Declare Function GetCursorPos Lib ＂user32＂ (lpPoint As POINTAPI) As LongType POINTAPIX As LongY As LongEnd TypePublic Function getmouse_x_y() As POINTAPIGetCursorPos getmouse_x_yEnd Functionsub test()'call getmouse_x_y '调用“获取鼠标坐标值过程”（假定你们给的过程/程序，名叫getmouse_x_y）if getmouse_x_y.x>100 and getmouse_x_y.y>100 then …… '根据返回当前鼠标的坐标值执行某过程/程序……end sub
（急）VBA程序的建立,编辑和运行方法？
VBA概述：VBA是Visual Basic For Application的缩写，是VB在office中的运用。
是基于Visual Basic For Windows发展而来的，VB For Windows是Microsoft于1992年推出的开发Windows应用程序的程序设计语言，由于基语法简单，易学易用，所以深受用户的欢迎。
而VBA和VB For Windows大体相似。
在Office2000之前，VBA在Word,Excel,Access等Office系统软件中的运用有些有同，但是到Office2000就统一起来了。
Excel是第一个包含有VBA的应用程序，自Office2000以后，Eexel,Word,PowerPoint,Access中已经有了统一标准的宏语言VBA，其中Excel和Access的VBA最为成熟。
在Excel中VBA程序即可以存放有.xls中，也可以单独以文本形式存放。
对VBA的学习，用户首先必须VB有一定的了解（不过不必很专业，毕竟经常用Excel的用户一般是办公人员，不可能是专业编程人员），然后结合宏记录器学习。
因为，宏记录器可以记录宏，用户可以非常清楚了然VBA的很多知识。
另外，如果不是功能很强大的VBA程序，那么用宏记录器就足够了。
打开密码记录器的方法，通过“工具->宏->录制新宏”。
另外，用户可能用“工具->宏->宏...”来管理宏。
用“工具->宏->VB 编辑器”或Alt+F11可以打开VB编辑器，在VB编程器，可以很方便地整个VB工程进行管理，可以方便地编写VBA代码，另外，用户可以再点击Alt+F11切换到Excel窗口。
VBA的使用过程： 1、创建一个Excel文件。
2、创建一个控件，然后双击控件或是右击该控件，点击“查看代码”，就可以对该控件的某个事件，如click,keydown等。
进行编写执行代码了。
创建控件的方法是，点击“视图->工具栏->控件工具箱”，打开“控件工具箱”栏，然后就可以直接拖动某个控件到Excel单元格中去。
在Excel中窗口，添加的控件一般是处于执行状态的，如果要对这个控件进行编辑，除了第一次建立的时候可以对它进行属性编辑外，打开“控件工具箱”，也可以使控件处于编辑状态，如果还不行，可以再添加一个控件，然后已有的控件绝对会处于编辑状态。
当然，对控件修改完毕后，别忘了删除刚才新添加的没有用的控件。
在编辑状态中，你可以右击该控件，点击“属性”，那么就可以打开属性窗口，在这个窗口里，你可以很方便的对这个控件的名字，标题，大小等属性进行编辑。
3、手动或用宏记录器对该控件的某个事件进行编码。
宏记录器简单易用，不过强大的功能还是必须手动编写VBA。
VBA对象介绍： 编写VBA代码的最关键在于灵活运用VBA对象，对这些VBA对象的属性或方法进行操作。
另外，你也可以创建自定义函数，来对某些操作进行封装。
既然是VBA，编码风格当然和VB相同，如果会VB，那么只要对VBA的对象比较了解，就可以编写功能强大的VBA程序；同样，如果不会VB，那么，只需要了解VBA的对象就够了，因为它比较简单易学。
以下分别讨论VBA各对象对其属性与方法： 在一些可以包含其他对象的窗口对象中，有几个特殊的属性，其属性值是当前活动对象，对它们，可以直接引用。
表1 一些特殊的属性 对象名 含义 ActiveWorkbook 当前工作簿，即如果你打开了几个Excel文件，那么你当然正在编辑的Excel文件即ActiveWorkbook ActiveSheet 当前工作簿中的当前工作表，即当前编辑的Excel文件中正在编辑的工作表 ActiveCell 当前工作表中活动单元格 ActiveChart 当前工作簿中的活动图表 Selection 当前被选定的对象 下面详谈各对象及它们的属性和方法 一、Application对象 此对象指Excel应用程序的工作环境。
属性 1.Caption属性 含义：Excel应用程序标题栏显示的文本。
举例：Application.caption=“船员管理系统”，如赋值Empty，则恢复Excel默认的标题栏。
2.Cursor属性 含义：Excel中鼠标的形状。
表2 Cursor属性 属性值 鼠标形状 xlDefault 缺少型值，鼠标呈缺少形状 xlWait 等待型值，鼠标呈不断翻转的沙漏形状 xlNorthwestArrow 箭头型值，鼠标呈标准箭头形状 xlIBeam 文本型值，鼠标呈“I”字形以等待用户输入文本 操作：Application.Cursor=xlWait等。
3、DisplayAlerts属性 含义：用以确定是否显示系统的应用提示和警告信息，如果不想显示，则把些属性设为false，反之亦然。
4、DisplayFormulaBar属性 含义：用以确定是否显示公式编辑栏 5、DisplayScrollBars属性 含义：用以确定是否显示Excel的滚动条 6、DisplayStatusBar属性 含义：用以确定是否显示Excel的状态栏 7、EnableCancelkey属性 含义：用以确定是否允许用户中断正在执行着的VBA程序。
缺省情况下，在VBA程序执行过程中，用户按下Ctrl+Break能够中断VBA程序的执行。
此时此属性即值为xlInterrupt。
若要禁止中断VBA程序，由赋值为xlDisabled；若需要VBA执行过程中遇到错误进中止，由赋值为xlErrorHandler 8、ScreenUpdating属性 含义：用以确定是否显示VBA程序的中间运算结果。
9、StatusBar属性 含义：设置状态栏的文本 10、ActiveWorkbook属性 含义：如表1介绍。
11、ActiveSheet 含义：如表1介绍。
12、ActiveCell属性 含义：如表1介绍。
13、ThisWorkBook属性 含义：用以返回正在执行着VBA程序所...
如何用VBA修改word的节开始的分节符
录制一个宏就知道了。
1、插入分节符（下一页）Selection.InsertBreakType:=wdSectionBreakNextPage2、后面插入指定图片。
路径是中间那句jpg格式的，要更改成自己的。
Selection.InlineShapes.AddPictureFileName:=_＂C:\DocumentsandSettings\AllUsers.WINDOWS\Documents\MyPictures\示例图片\Bluehills.jpg＂_,LinkToFile:=False,SaveWithDocument:=TrueWORD的VBA主要是Selection事件，即光标移动到某一位置（当前），然事执行某项操作，一般用录制宏可解决。
怎么在WORD中调出移动表格列在WORD中制了表格后,想把每列的
'在模块中定义，注意不能在窗口中定义，插入-模块Public Declare Function ShellExecute Lib ＂shell32.dll＂ Alias ＂ShellExecuteA＂ (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long调用：ShellExecute Me.hwnd, ＂open＂, ＂E:\aa.pdf＂, ＂＂, ＂＂, 1
转载请注明出处51数据库 » vba word移动
