如何利用VBA获取Word文档中光标所在段落的索引号
你是说获取上面的项目编号吗?试过项目编号获取没成功。
但段落编号我搞定了:a=ActiveDocument.Range(0, selection.End).Paragraphs.Counta里面就是当时光标所在的段落号,举例,全文有10段,光标在第3段,返回值就是3。
vba word如何提取当前段落某个字符前的字符
可以用下面的代码来实现:Sub mytest()Selection.MoveDown unit:=wdParagraphSelection.MoveUp unit:=wdParagraph, Extend:=wdExtendutxt = Selection.Range.Textupos = InStr(utxt, "、")If upos > 0 Thenut = Left(utxt, upos - 1)MsgBox ut '这里就是要提取的内容ElseMsgBox "没有找到顿号!!!"End IfEnd Sub
VBA 获取word版本
于图片来说,,分为二种的,,第一种:是Shape对象(Word中自带的“自选图形”)第二种:是InlineShape对象(嵌入式图片,也就是所谓的通过点击菜单栏中的“插入”->“图片”->“来自文件”)-------------------如何判断word文档中是否存在一张图片呢?这个问题。
我来解答:判断word文档中是否存在一张图片,可以通过看一看word文档中的inlineshape对象的数量来判断。
举例:Dim doc As Document '当前打开的文档对象DocumentDim MyApp As Word.Application 'Word应用程序对象Dim MyFileName As String '当前打开的文件名MyFileName="c;\aaa.doc" '此处可以改成你的文件名字Set MyApp = CreateObject("Word.Application")Set doc = MyApp.Documents.Open(MyFileName)If doc.InlineShapes.Count 0 thenmsgbox "有嵌入式图片存在!"Elsemsgbox "没有嵌入式图片存在!"End if-------------------------------------------------------如果你非要想知道,用户到底是不是插入了你要求的图片的话,你要必须要再他进行插入图片操作时进行控制,也就是说,你必须把用户所插入的图片的(绝对地址)或者(图片名字)添加到用户所插入图片的“可选文字”中记录下来。
MydocInlineShapes.AddPicture(FileName, LinkToFile, SaveWithDocument, Range)FileName String 类型,必需。
指定要创建对象的文件名。
如果忽略本参数,则使用当前文件夹。
LinkToFile Variant 类型,可选。
如果此属性设置为 True,则将 OLE 对象与创建该对象的文件链接。
如果设置为 False,则令该 OLE 对象成为该文件的独立副本。
默认值为 False。
SaveWithDocument Variant 类型,可选。
如果此属性为 True,则将链接的图片与文档一起保存。
默认值为 False。
Range Variant 类型,可选。
指定一个区域,OLE 对象放置在该区域的文字中。
如果该区域未折叠,那么图片将覆盖该区域。
如果忽略此参数,则自动放置图片。
ActiveDocument.Shapes.AddPicture "C:\stone.bmp",True, True,MyRangeActiveDocument.InlineShapes(ID).AlternativeText = App.Path & "\temp" & shapeII & ".bmp" '添加“可选文字”
用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----------------------
转载请注明出处51数据库 » vba word得到段落