| |
度々お世話になっています。
このサイトでは様々な質疑が掲載されており，過去のログでたいていの事は解決できたのですが，今回，見つけきらなかったため質問しました。
よろしくお願いします。
Sub CopyPasteWord()
Dim objWord As New Word.Application
Dim WkSht As Worksheet
Dim BOOK As String
With Application
.AskToUpdateLinks = False
.DisplayAlerts = False
BOOK = ThisWorkbook.Sheets(1).Cells(12, 2)
OPENBOOK = ThisWorkbook.Path + "\" + BOOK
Workbooks.Open OPENBOOK
wordfilename = Application.GetOpenFilename _
(Title:="ファイルを開く", _
FileFilter:="Word 文書(*.doc),*doc")
'事情によりWordだけGetOpenFilenameメソッドを利用しています
With objWord
.Visible = True
.WindowState = wdWindowStateMaximize
.Documents.Open OPENWORD
End With
'ここでExcelからWordにCopyPaste
'コードは省略します。
.DisplayAlerts = True
.AskToUpdateLinks = True
End With
End Sub
上記のような，コードを作成しました。
既に目的のファイルが開いていた場合についての質問です。
Excelの方は，特に何も起こらないのですが，
Wordの方だけ使用中なるウインドウが表示されてしまいます。
すでにファイルが開いている場合は，IFステートメントでファイルを開く部分のコードを省略するようにしたいのですが，どのようにしたら良いのでしょうか？
（Wordの方もGetOpenFilenameメソッドを使用しないで同様の事を試したのでしたが，結果は一緒でした。）
よろしくお願いします。
|
|
tomo
- 07/4/5(木) 13:18 -
