vba:究竟有没有人成功在vb里操作word文件，实现将某个字符串替换为另一个字符串？？（我之间录制宏也没用）

Question

你打开的 文件 是不是一个 ole,而非文本？

Answer 1

参照一下程序自己看吧,我做的MIS程序中的一段,没有仔细优化,随便看看,有好的建议MAIL还给我
:)  [email protected] Error GoTo WDERR
    Set WD = CreateObject("Word.Application")
    Screen.MousePointer = 11
    With WD
'       .Visible = True
        .Application.WindowState = wdWindowStateMaximize
        .Visible = True
        .Documents.Add Template:= _
            AppPath + "..\Templates\TEMP01.dot", NewTemplate:= _
            False
        .Visible = False
        '输入事由
        .SELECTion.Find.Text = "%事由%"
        .SELECTion.Find.Wrap = wdFindContinue
        .SELECTion.Find.Execute
        .SELECTion.TypeText Text:=str事由        .ActiveDocument.SaveAs FileName:=AppPath & "..\Document\" & strFILENAME & ".Doc" ', FileFormat:= _
            wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
            False, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
            False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
            SaveAsAOCELetter:=False
        Screen.MousePointer = 0
        
        MsgBox "文档生成完毕！", vbInformation
        .Visible = True
    End With
    Set WD = Nothing
    Exit Sub
WDERR:
    Select Case Err
    Case 5151
        MsgBox "生成人事令失败：文档模板没找到，请确保 [TEMP01.dot] 在" & vbCrLf & AppPath & "..\Templates 中。", vbCritical
        WD.quit
    Case -2147023174
        MsgBox "生成人事令失败：自动化错误，可能关闭系统启动的 MS WORD 或系统没有安装MS WORD 引起，请确保MS WORD正确安装并勿在生成命令时不要操作WORD。", vbCritical
    End Select
    Set WD = Nothing
    Screen.MousePointer = 0

Answer 2

我在WORD里试过用VBA打开同一目录下所有文件，把英文全替换成中文。

Answer 3

cqq_chen：把例子给我看看，行不？
[email protected]

Answer 4

cqq_chen,请把这个例子也给我发一份吧,谢谢!

Answer 5

我找一下，如果今天没发，明天一定发。可能是在家里没带到公司。
to:dave75你的E-mail?

Answer 6

huyongsc,我发邮件给你了，我无发下载最后一个文件，你压缩成一个zip再给我试试
谢谢！你是用vb5写的吗？