VBA 获取word版本
展开全部 新建一个窗体,添加一个文本框控件,用VB写如下程序: Sub Example()Dim myObject As Object'对于浮动式文本框控件Set myObject = ActiveDocument.Shapes(1).OLEFormat.ObjectMsgBox myObject.Text'对于嵌入式文本框控件Set myObject = ActiveDocument.InlineShapes(1).OLEFormat.ObjectMsgBox myObject.Text'对于word的文本框图形(非控件)Set myObject = ActiveDocument.Shapes(1).TextFrame.TextRangeMsgBox myObject.TextEnd Sub Visual Basic(简称VB)是Microsoft公司开发的一种通用的基于对象的程序设计语言,为结构化的、模块化的、面向对象的、包含协助开发环境的事件驱动为机制的可视化程序设计语言。
是一种可用于微软自家产品开发的语言。
“Visual” 指的是开发图形用户界面 (GUI) 的方法——不需编写大量代码去描述界面元素的外观和位置,而只要把预先建立的对象add到屏幕上的一点即可。
“Basic”指的是 BASIC (Beginners All-Purpose Symbolic Instruction Code) 语言,是一种在计算技术发展历史上应用得最为广泛的语言。
Visual Basic源自于BASIC编程语言。
VB拥有图形用户界面(GUI)和快速应用程序开发(RAD)系统,可以轻易的使用DAO、RDO、ADO连接数据库,或者轻松的创建Active X控件,用于高效生成类型安全和面向对象的应用程序 。
程序员可以轻松的使用VB提供的组件快速建立一个应用程序。
...
excel vba 读取 word 指定字符
Sub 按钮1()Dim myPath As StringSet Wdapp = CreateObject("Word.Application")Wdapp.Visible = TrueApplication.ScreenUpdating = False '关闭屏幕刷新' On Error Resume Next '捕捉错误myPath = ThisWorkbook.Path &; "\多房地产预评估函.doc" '定义word文件路径,自己修改Set wdDoc = Wdapp.Documents.Open(myPath) '打开wordwdDoc.Activatesr = wdDoc.Content '将word的文档内容赋予变量srMsgBox Mid(sr, InStr(sr, "籍贯") + 3, 2)wdDoc.Close '关闭wordWdapp.QuitSet Wdapp = NothingSet wdDoc = NothingApplication.ScreenUpdating = True '开启屏幕刷新End Sub
用VBA快速获取word大纲文本
Private Sub ListBox1_Click()Dim n%n = Me.ListBox1.ListIndex + 1Me.Controls("checkbox" & n).SetFocusIf Me.Controls("checkbox" & n) = False ThenMe.Controls("checkbox" & n) = TrueElseMe.Controls("checkbox" & n) = FalseEnd IfEnd Sub--------------------Private Sub UserForm_Initialize()Dim i%For i = 1 To 4Me.ListBox1.AddItem Me.Controls("checkbox" & i).CaptionNextEnd Sub----------------------
WORD VBA 如何获取某行某一列的位置?
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _"GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As LongType OPENFILENAMElStructSize As LonghwndOwner As LonghInstance As LonglpstrFilter As StringlpstrCustomFilter As StringnMaxCustFilter As LongnFilterIndex As LonglpstrFile As StringnMaxFile As LonglpstrFileTitle As StringnMaxFileTitle As LonglpstrInitialDir As StringlpstrTitle As Stringflags As LongnFileOffset As IntegernFileExtension As IntegerlpstrDefExt As StringlCustData As LonglpfnHook As LonglpTemplateName As StringEnd TypeSub t()Dim ofn As OPENFILENAMEDim rtn As String ofn.lStructSize = Len(ofn)ofn.lpstrFilter = "doc Files (*.doc)" & Chr(0) & "*.doc" & Chr(0)ofn.lpstrFile = Space(254)ofn.nMaxFile = 255ofn.lpstrFileTitle = Space(254)ofn.nMaxFileTitle = 255ofn.lpstrInitialDir = "C:"ofn.lpstrTitle = "打开文件"ofn.flags = 6148 rtn = GetOpenFileName(ofn) If rtn >= 1 ThenMsgBox ofn.lpstrFileElseMsgBox "Cancel Was Pressed"End IfEnd Sub
EXCEL VBA 获取打开的word文件名
可用CreateObject函数创建对EXCEL的引用,然后就可打开EXCEL工作簿,将表格中的数据复制到WORD中,参考代码如下:Set xlapp = CreateObject("excel.application")With xlapp.Open("带路径的EXCEL文件名").Sheets(1).Range("A1:H8").Copy'粘贴到WORD指定位置End Withxlapp.Quit
转载请注明出处51数据库 » word vba 获取脚注