关于Word中 的VBA 编程
解决你的“顺便问下".....Sub Macro1()Dim strText As StringstrText = "建立反对撒客里空的龙卷风"Selection.TypeText strTextSelection.MoveStart Unit:=wdLine, Count:=-1Selection.MoveEnd Unit:=wdCharacter, Count:=-1 * (Len(Selection.Text) - 4)Selection.MoveStart Unit:=wdCharacter, Count:=3Selection.Font.Bold = TrueMsgBox Selection.TextEnd Sub
EXCEL VBA和WORD VBA有什么区别?
Sub GenDocfromExcel()'excel控制word,生成新文件,插入图片和文件名,保存'office 2003, VBA工具/引用中要勾选Microsoft Word 11.0 Object Library'office 2007, VBA工具/引用中要勾选Microsoft Word 12.0 Object Library'...Range("A1:B13").Copy '复制当前内容Dim WordApp As Word.Application '定义变量Set WordApp = CreateObject("Word.Application") '生成WORD对象WordApp.Documents.Add '新建文件WordApp.Selection.Paste '粘贴fn$ = "D:\" & Range("b1") '生成文件名WordApp.ActiveDocument.SaveAs fn$ '保存文件WordApp.Quit '退出Set WordApp = Nothing '取消变量End Sub...
word 使用vba 怎么改一个内容?
操作步骤。
第一,首先将需要批量替换的多个Word文档放在同一文件夹下面。
第二,新建一空白Word文档,右击空白工具栏,单击“控件工具箱”,就可以看到屏幕上调出的控件工具箱。
第三,在控件工具箱上单击“命令按钮”,文档中就放置了一个按钮了。
第四,双击该按钮,进入VB代码编写模式,将以下代码复制进去。
Private Sub CommandButton1_Click()Application.ScreenUpdating = FalseDim myPas As String, myPath As String, i As Integer, myDoc As DocumentWith Application.FileDialog(msoFileDialogFolderPicker) .Title = "选择目标文件夹" If .Show = -1 Then myPath = .SelectedItems(1) Else Exit Sub End IfEnd WithmyPas = InputBox("请输入打开密码:")With Application.FileSearch .LookIn = myPath .FileType = msoFileTypeWordDocuments If .Execute > 0 Then For i = 1 To .FoundFiles.Count Set myDoc = Documents.Open(FileName:=.FoundFiles(i), Passworddocument:=myPas) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "大家好" .Replacement.Text = "你好" .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll myDoc.Save myDoc.Close Set myDoc = Nothing Next End IfEnd WithApplication.ScreenUpdating = TrueEnd Sub 第五,保存上面代码,退出VB编辑模式,返回Word文档界面。
第六,单击选中该按钮,再单击控件工具箱的第一个按钮“退出设计模式”。
第七,进行测试:点击按钮,选择要放置多个WORD文档所在的文件夹,确定后即可完成!注意如果WORD文档没有加密的话,密码项就不填,直接确认。
就会发现该文件夹下面的所有WORD文档中“大家好”已被替换为“你好”了。
WORD VBA问题
方法1当我们打开Word时,会弹出“Microsoft Office Word 需要 VBA 宏语言支持来完成此操作。
”这项功能目前尚未安装,是否现在安装?点击是又安装不了,证明此方法行不通,那么就点击否。
2然后弹出“此文档有宏,该应用程序的宏语言支持功能被取消。
功能要求的VBA不可用,是否以只读方式打开该文档?直接点击取消。
3然后点击菜单栏的工具按钮,再选择“宏”,然后选择“安全性”。
4在弹出的安全项中,选择非常高。
只允许运行安装在受信任位置的宏。
所有其他签署的和未经签署的宏都将被禁用。
5然后点击可靠发行商,将颁发对象中有的宏全部选择,然后点击删除,要全部删除掉,然后去掉信任所有安装的加载项和模板及信任对于“Visual Basic项目”的访问前面的勾,两个复选框都不要勾选,然后点击确定返回打开Word就可以了。
excel vba 启动word 宏
VBA代码如下:Sub AddStr()Dim myDialog As FileDialog, oFile As Variant, oDoc As DocumentSet myDialog = Application.FileDialog(msoFileDialogFilePicker) With myDialog.Filters.Clear.Filters.Add "所有 WORD 文件", "*.doc", 1.AllowMultiSelect = TrueIf .Show -1 Then Exit Sub For Each oFile In .SelectedItemsSet oDoc = Documents.Open(FileName:=oFile, Visible:=False, PasswordDocument:=OldPW)With oDoc.Content.InsertBefore "这是加入的文本" & vbCr.Close True '关闭文档End WithNext oFileEnd WithEnd Sub说明:使用该方法的好处是灵活,不用指定固定的目录来搜寻目标文档,直接运行代码,会自动弹出选择目录或哪些文档的对话框,非常方便。
只需修改要加入的内容即可。
Word VBA里面的ListBox怎么设置?
用listbox控件的ColumnCount 属性设置有多少列 列号从0开始可以直接在控件属性页面设置,也可以用代码设置例如:listbox1.ColumnCount = 3列宽用ColumnWidths 属性来控制 每列列宽的数值用分号 (;) 分隔例如:90;72;90默认的列宽设置单位是磅若要指定其他度量单位,则需将此单位作为值的一部分例如:2 cm;1cm;3 cm 第一列为 2 厘米,第二列为 1 厘米,第三列为 3 厘米
vba,word和excel相互调用
总是要有一个打开的时机的,总要有一段打开的代码,不然怎么凭空打开,怎么获取打开的文件名. 如果你想在你的宏运行前打开,你可以把调用与打开的代码放在宏运行的前面. 如:以excel打开word为例,你可以在Workbook_Open下放置你调用和打开word 的代码: Private Sub Workbook_Open() dim aaa as ...application End Sub 方法你应该比较熟悉了,就是在vbaproject下双击ThisWorkbook,然后在上边的下拉列表里选对象和事件.如果在宏中用路径打开被调用的文件,那么该文件就必须放在路径指定的位置,我不想这样。
我想放在任意位置。
放在任意位置你可以用一个打开对话框呀,如下面代码:Dim fd As FileDialog Dim Wbook As Workbook Dim rowindex As Integer Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtSelectedItem As Variant With fd .Filters.Add "EXCEL 文件", "*.xls", 1 '过滤 If .Show = -1 Then rowindex = 1 For Each vrtSelectedItem In .SelectedItems Set Wbook = Workbooks.Open(vrtSelectedItem)
转载请注明出处51数据库 » word vba hyperlink