0

OLE を使用してテンプレートから Word 文書を作成するために lotusscript のコードを編集しており、画像を追加するために検索と置換を行っています。これは最初の画像では機能しますが、2 番目の画像では機能しません。

objWord.Selection.Find.Execute "{{image1}}",False, True,,,,, 1,,,,,,,
objWord.Selection.Extend
If (objWord.Selection.Characters.Count > 1) Then
    If (signaturefilename = "") Then
        objWord.Selection.Find.Execute "{{image1}}", False, True,,,,, 1,, " ", 2,,,,        
    Else
        Call objWord.Selection.InlineShapes.AddPicture(tempdir + "\" + imagefilename, False, True,)     
    End If
End If

objWord.Selection.Find.Execute "{{image2}}",False, True,,,,, 1,,,,,,,
objWord.Selection.Extend
If (objWord.Selection.Characters.Count > 1) Then
    If (signaturefilename = "") Then
        objWord.Selection.Find.Execute "{{image2}}", False, True,,,,, 1,, " ", 2,,,,        
    Else
        Call objWord.Selection.InlineShapes.AddPicture(tempdir + "\" + imagefilename, False, True,)     
    End If
End If

コードの最初のセクションは完全に機能しますが、2 番目のセクションでは、予想どおり、2 番目のテキストが画像に置き換えられません。

2 番目の Find.Execute が 2 番目のテキスト ブロックを見つけることを期待していましたが、ドキュメント内のすべてのテキストを置き換えてしまいます。

私が見落としている明らかな何かがありますか？

ありがとう、

あ

4

1 に答える 1

0

わかりました-うまくいきました。それは：

objWord.Selection.Extend

それを削除する必要がありました。最初はドキュメント全体を選択していませんでしたが、2番目は選択しました。これは現在完全に機能しています。ポインタをありがとうリチャード。

さらに、私は以下を使用しました：

objWord.Visible = True

デバッグを支援します。

于 2013-03-05T01:48:13.133 に答える