コピーマージfIelds VB.netのある単語文書から別の文書へ

Question

私は仲間のためにvb.netアプリケーションを編集しています.1つの単語文書から別の文書にマージフィールドをコピーする必要があります。私はdocument.content.textを使用してそれらをコピーすることができますが、テキストとして出てきます（これは私が推測したはずです）。

私は、私は彼らがが選択したんだと思う：私は、私はにコピーしたいと私はその後、関連語アプリを使用して、そのドキュメントにコピーする必要があると思うドキュメントを活性化しています

Dim tDocFields As Microsoft.Office.Interop.Word.Fields 
tDocFields = tDocument.Content.Fields 

。

vDocument.Activate() 
vWord.Selection. ??? Insert() ??? 

いずれのポインタも大変感謝しています。

Answer 1

Fieldsコレクションから利用可能なフィールドにアクセスすることはできますが、フィールドをマージするだけでなくすべてのフィールドがあります。マージフィールドを簡単に識別できますが、フィールド名を抽出するためにはいくつかの基本的な解析を行う必要があります。

：あなたはそうのような新しい文書の新しい差し込みフィールドを作成することができ差し込みフィールドのそれぞれを見つけたら

Dim lo_field As Field 
Dim lo_range As Range 
Dim lo_fieldText As String 

For Each lo_field In mo_doc.Fields 
    If lo_field.Type = WdFieldType.wdFieldMergeField Then 

     lo_range = lo_field.Code() 

     lo_fieldText = lo_range.Text 
     MsgBox(lo_fieldText) 

    End If 
Next 

：次のコードは、それぞれの内容をメッセージボックスには、文書内のフィールドをマージ示し

Imports Microsoft.Office.Interop.Word 

Public Class Form1 

    Dim mo_doc As Document 
    Dim mo_missing As Object = System.Reflection.Missing.Value 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

     ' Open word 
     Dim lo_word As New Application 
     lo_word.Visible = True 

     ' Create a new word document 
     mo_doc = lo_word.Documents.Add(mo_missing, mo_missing, mo_missing, mo_missing) 
     mo_doc.Activate() 

     ' Add a merge field 
     mo_doc.Fields.Add(lo_word.Selection.Range, WdFieldType.wdFieldMergeField, "mergefieldname", True) 

    End Sub 
End Class 

希望すると、これが役立ちます。