VBA WordをExcelに埋め込む - 埋め込みしようとするとWordが埋め込まれる

Word文書からExcel文書にコピーしようとしていますが、下のコードでWord文書を貼り付けずにExcel文書に埋め込みますテキストVBA WordをExcelに埋め込む - 埋め込みしようとするとWordが埋め込まれる

文書の単語は埋め込まずテキストにペーストするようにするにはどうすればよいですか？

2016-07-04 Mr.Burns

あなたは何が起こっているの写真がありますか？値として貼り付けが必要だと思うが、最初に確認したい。 –

@ BryanDavies何が起こっているのかの写真をアップロードしたいのですが、印刷画面のブロック/ロックがありません。私がそれを記述するのに最善の方法は、単語の文書全体がテキストボックスのようにExcelにありますが、それは横と上に定規があり、Excelの式バーに埋め込まれた単語を選択するとExcelになります "= EMBED "Word.Document.8"、 ""） " –

申し訳ありませんが、私はあなたがこれをすばやく必要と思っています:)。私は私の携帯電話にありますが、レコードマクロを使用して値として特別なペーストを記録すると、動作するコードが得られます。私はコンピュータに戻ったら一度更新します –

値として貼り付けを試行します。

Selection.PasteSpecial Paste:=xlPasteValues

出典

2016-07-04 12:37:14

Dim objWord As Object, objDoc As Object 
Set objWord = CreateObject("Word.Application") 
Set objDoc = objWord.Documents.Open("\\Desktop\REPORT.doc") 
objWord.Visible = True 

objWord.Selection.WholeStory 
objWord.Selection.Copy 

Workbooks.Add 
Selection.PasteSpecial

あなたは（これは可能な限りデータを保存するように）シートにWordオブジェクトを挿入するペースト法、VBAのデフォルト値を指定せずにWordからExcelに貼り付けます。 PasteSpecialコマンドでxlPasteValuesを使用するように指定すると、選択したテキストが目的のセルに文字列として挿入されます。

出典

2016-07-04 12:21:15 RGA

VBA WordをExcelに埋め込む - 埋め込みしようとするとWordが埋め込まれる

答えて

関連する問題