vb程序中识别word版本 vb识别将word数字中的改为.

用通配符替换即可：

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数字中的改为.