1

Visual Basic、Visual Studio 2012 を使用して、Word .doc ファイルの文字列を置き換えようとしています。このコードは、<<FileNumber>>. 残りの部分で機能させるためのトリックは何ですか? ありがとう。

    Dim oWord As Word.Application
    Dim oDoc As Word.Document

    oWord = CreateObject("Word.Application")

    oWord.Documents.Open(FileName:=System.AppDomain.CurrentDomain.BaseDirectory + "\" + txtReportFolder.Text + "\" + txtReportNumber.Text + "\Form A.doc")
    oWord.Documents("Form A.doc").Activate()
    oDoc = oWord.ActiveDocument
    Dim oRange = oDoc.Content
    oRange.Find.Execute(FindText:="<<FileNumber>>", ReplaceWith:=txtReportNumber.Text)
    oRange.Find.Execute(FindText:="<<OCode1>>", ReplaceWith:="488")
    oRange.Find.Execute(FindText:="<<Text>>", ReplaceWith:="Loss")
    oRange.Find.Execute(FindText:="<<EDP1>>", ReplaceWith:="16G2-M")
4

1 に答える 1

0

これは私にとってはうまくいきました。すべての実行の間にこれを追加します。

oRange = oDoc.Content

次に、これらも追加します。

    oDoc.Save()
    oWord.Quit()
于 2012-10-19T09:06:11.437 に答える