エクセルマクロでボタン一つでWordにテキスト貼りつけしたいです

はじめてお世話になります
エクセルもワードも2016を使用してます。
前任者が作成したマクロがあるのですが、ワードに貼りつけするマクロを誰かが消したようで業務に困っています。
マクロの記述ぐらいしか出来ないレベルです。
張り付けるワードには、ボタンが設置してあり空白や行削除等自動で作成できるようになっています。
エクセルには業務進行表のようなもので 各担当者が実施した時間、作業内容などが表になっていて
不要箇所は空白になっていたり、数字や単位などが入力されてます。
ワードに貼り付けるとボタンで不要個所も自動的に修正されるのでテキスト貼り付けが出来ればOKです。
烈はA列からA Z列、行は１行目から７００行ほどのデータです。

時間　担当者　工程　処理　・・・・・・・・・・
5/1 A 112 A-15 ・・・・・・・・・・
5/2 B 115 B-10 ・・・・・・・・・・

表形式で出力されてますが、罫線は不要です。
いろいろ探しましたが、うまくいきません。
助けて頂けたらと質問してみました。
よろしくお願いいたします。

質問者からの補足コメント

• 補足します。
  前任者は連絡が取れる者がいません。
  
  日報みたいなもので、業者に依頼して作成する物でなく、またそのような予算もありません。
  各個人が時系列でワードにて報告となってます。
  
  やりたい事は、
  1,エクセル表''A''で1つのシートの必要範囲(例えば A1:E5)を選択コピーして、
  2,指定のワード''B''を自動で開き、
  3,テキスト貼り付けをする。
  
  これをマクロにて自動化したいのです。
  
  エクセルの表を貼り付けるVBAコードは、いっぱいネットで見つけたのですが、テキスト貼り付けは探せなかったので質問しました。
  
  エクセルの表を罫線なしで貼り付ければいいと思われるかもしてませんが、
  ワードに貼り付けた後、検索と置換で再加工するので、テキスト貼り付けが必要なのです。
  
  補足になってるかは分かりませんが、宜しくお願いします。

    補足日時：2020/05/13 11:42

• enunokokoroさん　
  
  ご回答ありがとうございます
  消えたマクロはエクセルにあったもので、その為ワードがに貼り付け出来なくなりました。
  貼り付け先のWordにあるボタンとは、ワードのタブにマクロボタンが登録されています。
  その為用紙上には設置してありません。
  
  消えた原因は憶測ですが、4月に辞めた前任者が自分で作成したマクロを消したと思われます。
  褒められる辞め方でなかったとだけ言えば、ご理解できるでしょうか。
  
  エクセルで右クリックで選択範囲コピー、マクロが設定されたワードを開き右クリックで貼り付け形式を指定（A□で囲んである）で貼り付けてます。
  
  このマクロを消されてしまったのです。
  
  パソコンで選択範囲コピーとか貼り付け形式を変更するなどが、不慣れなものもいますので、出来るだけ自動化して個人での作業を減らそうとしているのです。
  
  よろしくお願い致します

  No.2の回答に寄せられた補足コメントです。 補足日時：2020/05/13 18:54

• めぐみん_
  
  ご回答ありがとうございます
  
  あくまでも個人的に作成したものを各自が利用させてもらってました。
  
  なので損害賠償請求とかは無理ですね。
  
  通信教育やVBAの本など買って勉強してますが、エクセルでワードを開くまでは何とか出来たのですが、コピー＆ペーストがうまくいかないですね。
  
  手作業なら簡単ですが、定年延長者が増えてコピー＆ペーストもなかなか覚えてもらえなくて・・・
  なので本人は手打ち入力するので、時間がかかり他の人に大量の業務が回ってくる。
  これから益々そんな方が増えると思います。
  
  もう少し勉強してみます。
  
  ありがとうございました。

  No.4の回答に寄せられた補足コメントです。 補足日時：2020/05/13 20:57

• 

  enunokokoroさん
  
  ご回答ありがとうございます
  
  今日会社でやってみましたが、
  wdDoc.ActiveWindow.Selection.PasteSpecial Link:=False, _
  　DataType:=wdPasteText, Placement:= _
  　wdInLine, DisplayAsIcon:=False　
  
  のところでエラーとなってしまいました。
  
  どこが問題なのでしょう？
  
  wdFormatPlainTextの場合
  罫線とか入らないと思うのですが、どうなんでしょう？
  この場合も罫線が入りました。

  No.5の回答に寄せられた補足コメントです。 補足日時：2020/05/14 18:04

• 

  enunokokoroさん
  
  ご回答ありがとうございます
  
  コンパイルエラー　構文エラーと出ました。
  Word 16.0 Object Libraryはチェックあります
  
  下記は罫線つきます
  Sub Macro2()
  Dim objWd As Object
  ActiveSheet.Range("A1:C3").Copy
  Set objWd = CreateObject("Word.Application")
  With objWd
  .Visible = True
  .Documents.Open _
  Filename:="パス入力"
  .Selection.PasteAndFormat Type:=wdFormatPlainText
  End With
  End Sub

  No.8の回答に寄せられた補足コメントです。 補足日時：2020/05/14 21:19

• 

  enunokokoroさん
  
  ご回答ありがとうございます
  
  何故か罫線つきますね。グリッドではないです。
  
  もうこの問題で1週間以上悩んでます。
  
  とりあえず罫線付きで貼り付けて、Word側の方で罫線外しで加工してみます。
  
  クリップボードからのコピーかリンク貼り付け等色々やってみます。
  
  マクロが入ったWordファイルでも、マクロなしのファイルでも罫線付くので
  
  何か他に原因があるのかもしれません。
  
  明日会社でもう少し検討してみます。

  No.9の回答に寄せられた補足コメントです。 補足日時：2020/05/14 22:57

No.2 回答者： enunokokoro 回答日時： 2020/05/13 13:39

直接の回答ではありませんが。

質問内容の消えたマクロはどちらにあったものなのですか？

Excelブックにあったものが消えて、指定したWord文書へと貼り付ける
ことができないのですか？

それとも、Word文書のマクロが消えて、Excelブックの指定範囲から
コピーしてきて貼り付けができなくなったのですか？
貼り付け先のWordにあるボタンとは何ですか？
用紙上に設置してある場合、Wordだと印刷されるので邪魔になって
削除されたのでは？

補足でのやりたい事だけなら、Word文書に貼り付けるときにテキスト
となればよいので、貼り付け形式を指定するだけで済むはずです。
貼り付けオプションが表示されるようなら、そこでテキストを指定する
だけで済むことですので。

No.1 回答者： めぐみん_ 回答日時： 2020/05/13 06:17

正直現物を見ないと何をおっしゃっているのか、どう言う状態からどう言う結果を欲しているのか、トンと不明な感じがします。

前任者と連絡が取れるなら仮に退職されてたとしたら報酬を支払うなどでお願いをして、且つ誰かがちゃんと理解する事ではないかな？
仮に亡くなられた又は断られたと言うなら、クラウドソーシング等に作成依頼として現物を提供しそれに合うよう作成をして貰うのが確実。