C# と VB.NET の質問掲示板

わんくま同盟

ASP.NET、C++/CLI、Java 何でもどうぞ

C# と VB.NET の入門サイト


■89981 / )  Re[2]: リッチテキストボックスでカラー情報をコピーする方法
□投稿者/ イエメン (5回)-(2019/01/27(Sun) 13:49:21)
ありがとうございます。

まだ、他のコードを試すことができていませんが、
とりあえず、このコードなら一発でできそうなので
試してみました

VBに翻訳してみたのですが、


    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles Button11.Click


        Dim wApp = Activator.CreateInstance(Type.GetTypeFromProgID("Word.Application"))
        Dim docs = wApp.Documents
        Dim doc = docs.Add()
        Dim rngWord = doc.Range

        Clipboard.Clear()
        rngExcel.Copy

        rngWord.PasteExcelTable(LinkedToExcel:=False, WordFormatting:=False, RTF:=False)
        rngWord.Copy

        RichTextBox1.Paste(DataFormats.GetFormat(DataFormats.Rtf))

        Marshal.ReleaseComObject(rngWord)
        Marshal.ReleaseComObject(doc)
        Marshal.ReleaseComObject(docs)
        Dim oApp As Object = wApp
        wApp.Quit(SaveChanges:=False)
        Marshal.FinalReleaseComObject(oApp)




    End Sub




        Dim docs = wApp.Documents
        wApp.Quit(SaveChanges:=False)
のところで、Option Strict Onでは遅延バインディングを使用できません
というエラーが出ます。
rngExcel
が宣言されていないので
rngExcel.Copy
でもエラーが出ます

どのように改善したら宜しいでしょうか?


返信 編集キー/


管理者用

- Child Tree -