かなりの初心者です・
顧客データの入ったエクセルのシートkokyakuでフォームを作成、VBの参照設定からワード
のライブラリを選択してこちらのをコピーさせていただいて作りたいのですが,
Dim StrRcNo     As String      '印刷するレコードNo　start
    Dim EndRcNo     As String      '印刷するレコードNo　End
    '差し込み印刷設定してあるWordのファイルを開く場合
    Set wdDoc = wdApp.Documents.Open(App.Path & "\LabelPrint.doc")
ここで変数が定義されていないとエラーになりますが,App.Pathのところでとまるのは
何が原因でしょうか？　ファイルLabelPrint.docは　デスクトップにあります

>     Set wdDoc = wdApp.Documents.Open(App.Path & "\LabelPrint.doc")
> ここで変数が定義されていないとエラーになりますが,App.Pathのところでとまるのは
> 何が原因でしょうか？　ファイルLabelPrint.docは　デスクトップにあります

App.Path と言うのはＶＢの実行ＥＸＥのあるフォルダの意味です。
ファイルLabelPrint.docは　デスクトップでは
App.Path & "\LabelPrint.doc"　とは所在の指定が異なりますが。

LabelPrint.doc　をＶＢの実行ＥＸＥと同じフォルダにするとどうなりますか？

> LabelPrint.doc　をＶＢの実行ＥＸＥと同じフォルダにするとどうなりますか？
実は同じファイルにもうひとつのフォームがあり,そのフォームをエクセルを起動と同時に
開くようにしている為、オフィスのXLstartフォルダに入れているんです。
フォーム2としてあたらしくフォームを作り,ボタンを押すと印刷をできる形が理想なのですが・・

Private Sub Commandbutton1_Click()・・＞command1_click()をこのようにしています
    On Error Resume Next
    Dim strMsg      As String
    Dim wdApp       As Word.Application
    Dim wdDoc       As Word.Document
    Set wdApp = New Word.Application
    Dim AddressFile As String      'Excelの住所録ファイル名
    Dim StrRcNo     As String      '印刷するレコードNo　start
    Dim EndRcNo     As String      '印刷するレコードNo　End
    '差し込み印刷設定してあるWordのファイルを開く場合
    Set wdDoc = wdApp.Documents.Open(App.Path & "\LabelPrint.doc")
    'ファイル名取得(ファイルシステムコントロールより取得）
    AddressFile = txtFilePath.Text
    If Len(Trim$(AddressFile)) = 0 Then
        AddressFile = App.Path & "\kokyaku1.xls"・・・＞顧客のアドレスが入ったファイルです
    End If

教えていただいたようにLabelPrint.docをXLstartへいれてみたのですが、変数定義がないと
エラーになってしまいます。なれないものでお手数をおかけしますが,よろしくアドバイスお願いします

> 教えていただいたようにLabelPrint.docをXLstartへいれてみたのですが、変数定義がないと
このような事は、回答されていませんよ！よく見て下さい。下記のような回答ですよ

>App.Path と言うのはＶＢの実行ＥＸＥのあるフォルダの意味です。

今動かしているVBのプログラムが入っているフォルダの事ですよ！
（VBのプログラムとデータは同じフォルダに入れて下さいという事です）
解らなければヘルプでApp.Pathの意味を調べて下さい。


又、LabelPrint.doc を直接ダブルクリックしてその後　データの差込をした場合問題なくWord上で
表示されますか？
VBからでなく直接Wordを使って問題なく印刷できる事を確認してから、VBから操作して下さい。

すいませんでした。同じファイルということが,エクセルのファイルといっしょのフォルダと思っていました。いまlabelprint.docで差込をしたところ無事に印刷もできていますので、もう少しがんばってみます。ありがとうございました。