用通配符替换即可:
Sub宏1()Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
WithSelection.Find
.Text="[1-9]"
.Replacement.Text="."
.Forward=True
.Wrap=wdFindContinue
.Format=False
.MatchCase=False
.MatchWholeWord=False
.MatchByte=False
.MatchAllWordForms=False
.MatchSoundsLike=False
.MatchWildcards=True
EndWith
Selection.Find.ExecuteReplace:=wdReplaceAll
Application.WindowState=wdWindowStateNormal
EndSub
如何用VB批量新建不同文件名的Word文件?
要实现要求的操作,需要进入dos状态:
1、程序--〉附件--〉命令提示符:
2、为了操作方法,我们把所有的word复制进D盘“1”这个文件夹内。
3、转到D盘文件夹“1”,先按D:回车
4、接着按cd D:\1回车(cd与1之间要一个空格符)
5、输入命令dir *.* >>abc.txt(意思为显示当前文件夹下所有内容,并且把显示的内容存在(同时也是新建)abc.txt这个文本文件中。
6、关闭命令提示符窗口,在正常windows状态下,可以查看到该txt文件内容:
7、复制粘贴该文件内容至word,稍加编辑,至可达到想要的目的。
别胡乱复制粘贴答案,你连问题的内容都没有仔细看!你还把我问题中要求没弄清楚,是要根据内容批量生成多个不同名称的Word文档,不是要提取多个Word文档的名称到文本,明确告诉你DOS下用命令新建的Word文件用Office2016软件打开就报错,这样新建出来的Word文件是不正确的,Word2016根本就不认,提示内容有错误
VB与OFFICE编程,OFFICE中的常数在不同版本是否完全相同
对的!windows和office其实可以做的更好!可是又不得不对以前的程序做大量的兼容型处理!看看编译时候的那些预处理文件就知道真的很费劲!在office2000下编程在03下的确可以使用!而且不会出现问题,MSDN里以前这样说过,以前用2000做开发平台,office2000的word.tlb,后来在xp上一样可用!
VB怎样实现word文件调用?
VB.NET写 word文件代码:
Dim wordApp As New Word.Application
Dim objSelection As Word.Selection
Dim Title As String = "K388+400常胜沟大桥"
wordApp.Documents.Add()
oDocument = wordApp.ActiveDocument
objSelection = wordApp.Selection
wordApp.Selection.TypeText(Title)
objSelection.TypeParagraph()
wordApp.Selection.TypeText("一、桥梁基本状况卡片")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别,B技术结构数据")
objSelection.TypeParagraph()
wordApp.Selection.TypeText("A行政数据识别。B技术结构数据。C档案资料(全、不全、或无)。D最近技术状况评定")
objSelection.InsertBreak() '插入分页符,相当于2个字符
objSelection.TypeText("E修建工程记录")
SetRange(1)
With wordApp.Selection
.Font.Size = 18 '字体(小二)
.ParagraphFormat.Alignment = 1 '水平居中
.Font.Bold = True
End With
SetRange(2)
With wordApp.Selection
.Font.Size = 14 '字体(四)
.Font.Bold = True
.Font.Name = "华文琥珀"
End With
SetRange(25, 44, True)
With wordApp.Selection
.Font.Size = 9 '字体(小五)
.Font.Bold = True
.Font.Italic = True
End With
SetRange(4, 2)
With wordApp.Selection
.Font.Size = 9 '字体(小五)
.Font.Bold = True
End With
'文件保存
oDocument.SaveAs("d:\" & Title & ".doc")
wordApp.Visible = True
VB 切换到指定的应用程序上
用AppActivate其实挺容易实现的,代码如下
-------------------------------------------------------------------
'一个窗体,一个textbox,一个cmdButton,textbox内填写你要切换的程序窗口标题,比如说“PopKart Client”或者“诛仙” (注意不含引号)
'以下是代码
Private Sub Command1_Click()
Dim MyAppID, ReturnValue '调用AppActivate
If Text1.Text = "" Then '防止出现空字符串
MsgBox "请填写窗口标题"
Else: AppActivate Text1.Text '将制定的窗口激活
End If
End Sub
'在VB6.0下调试通过,另外在我的网盘www.hankcs.ys168.com里面有工程文件
------------------------------------------------------
你也可以看看相关的教程:
激活一应用程序窗口。
语法
AppActivate title[, wait]
AppActivate 语句的语法具有以下几个命名参数:
部分 描述
title 必需的。字符串表达式,所要激活的应用程序窗口的标题。可以使用 Shell 函数返回的任务识别码来替换 title,以激活应用程序。
wait 可选的。Boolean 值,说明在激活另一个应用程序之前调用的应用程序是否有焦点。如果为 False(缺省),那么,即使调用的应用程序没有焦点,也直接激活指定的应用程序。如果为 True,则调用的应用程序会等到有焦点后,才激活指定的应用程序。
说明
AppActivate 语句将焦点移动到命名的应用程序或窗口,但并不影响焦点是否最大化或最小化。当用户采取行动改变焦点或将窗口关闭时,就会将焦点从活动的应用程序窗口移动出去。可用 Shell 函数启动一个应用程序并设置窗口样式。
在决定激活哪个应用程序时,请将 title 与每一个运行中的应用程序的标题字符串进行比较。如果没有完全匹配,就激活任何这样的应用程序,其标题字符串以 title 开头。如果以 title 命名的应用程序有很多实例,则激活任何一个实例。
--------------------------------------------------------------------------------
AppActivate 语句示例
本示例说明使用 AppActivate 语句来激活应用程序的各种用法。示例中用到的 Shell 语句均假定该应用程序已经存在指定的路径中。
Dim MyAppID, ReturnValue
AppActivate "Microsoft Word" ' 激活 Microsoft
' Word。
' AppActivate 也可利用 Shell 函数的返回值。
MyAppID = Shell("C:\WORD\WINWORD.EXE", 1) ' 运行 Microsoft Word。
AppActivate MyAppID ' 激活 Microsoft
' Word。
' 您也可使用 Shell 函数的返回值。
ReturnValue = Shell("c:\EXCEL\EXCEL.EXE",1) ' 运行 Microsoft Excel。
AppActivate ReturnValue ' 激活 Microsoft
' Excel。
--------------------------------------------------------------------------------
相关基础知识:
命名参数
一参数,在对象库中预先定义了其名称。对每个参数,不必拘泥于语法所规定的特定顺序来提供值,而是只需按任何顺序用命名参数分配值。例如,假设一方法接受了三个参数:
DoSomeThing namedarg1, namedarg2, namedarg3
在对命名参数赋值时,可使用以下语句:
DoSomeThing namedarg3 := 4, namedarg2 := 5, namedarg1 := 20
注意,命名的参数不必按语法中安排的正规顺序出现。
字符串表达式
任何其值为一连串字符的表达式。字符串表达式的元素可包含返回字符串的函数、字符串文字、字符串常数、字符串变量、字符串 Variant 或返回字符串 Variant (VarType 8) 的函数。
Boolean 数据类型
只有两种值的数据类型,这两种值分别为 True(-1) 或 False(0)。布尔变量是以 16 位 ( 2 字节 ) 数字存储的。
----------------------------------------------
关于VB与word的问题
将
With MsWord
.Content.Font.Name = "宋体"
.Content.Font.Size = 12
.Content.Paragraphs.LineSpacing = 15.5
End With
改写为
MsWord.Content.Font.Name = "宋体"
MsWord.Content.Font.Size = 12
MsWord.Content.Paragraphs.LineSpacing = 15.5
就可以了。
vb6 shell方法打开word 显示错误
HTFJ既是变量,把它包含在双引号中就成了字符串了。
Shell "C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE " & HTFJ, vbNormalFocus
我已经改过了,仍然不行,提示错误如前。
这个shell方法,搞了半天都不行.. 一用变量就打不开。
或者有没有其他方法可以打开指定的文件?
Shell """D:\Program Files\Microsoft Office\Office12\WINWORD.EXE"" """ & HTFJ & """", vbNormalFocus
我的能打开了,
首先检查一下文件地址是否正确
msgbox dir("C:\Program Files\Microsoft Office\OFFICE11\WINWORD.EXE")
msgbox dir(HTFJ)
如果那一个没显示文件名那就时文件名出错了。
第二:程序和文件分别用双引号括起来,由于它是以空格作分界符的,而文件地址本身也有空格,这样它无法识别。双引号字符用两个双引号表示,如"""" 表示一个双引号字符串。
下面这句再拷进去试试看:
Shell"""C:\ProgramFiles\MicrosoftOffice\OFFICE11\WINWORD.EXE"""""&HTFJ&"""",vbNormalFocus
vb中怎样把计算所得到的数据输入到一个新的word中
Private Sub cmd1_Click()
Dim MyWord As Object
Set MyWord = CreateObject("Word.Application")
MyWord.Documents.Open "文件路径"
MyWord.Visible = True
End Sub
那怎样把计算结果输入到这个新建的word中。上面好像没有输出的语句啊。
转载请注明出处51数据库 » vb程序中识别word版本 vb识别将word数字中的改为.