Snasui Excel Forum

Code: Select all

Sub Macro1()
    Windows("TEST WORK EXCEL.xls").Activate
    ThisWorkbook.Close
End Sub

Code: Select all

Sub Search()
    Dim wdApp As Word.Application, msWord As Word.Document
    Set wdApp = CreateObject("Word.Application")
    Set msWord = Application.Documents.Open("D:\my document\Test File\TEST WORD.doc")
    wdApp.Visible = True
End Sub

Code: Select all

Set msWord = wdApp.Documents.Open("D:\my document\Test File\TEST WORD.doc")

Code: Select all

Sub Reset()
Dim Count As Range
Dim objWord As Object
Set Count = Worksheets("TIME").[B7]
Set objWord = GetObject(, "Word.Application")
On Error Resume Next
Count.Value = Count.Value - TimeValue("00:00:01")
    If Count <= 0 Then
   MsgBox "หมดเวลา"
        Application.DisplayAlerts = False
        objWord.Quit
        Application.Save
        Application.Quit
        Exit Sub
    End If
Call Timer
End Sub

Code: Select all

Option Explicit

Dim CountDown As Date
Dim wdApp As Word.Application, msWord As Word.Document

Code: Select all

Sub Reset()
    Dim Count As Range
    Set Count = Worksheets("TIME").[B7]
    On Error Resume Next
    Count.Value = Count.Value - TimeValue("00:00:01")
    If Count <= 0 Then
    MsgBox "หมดเวลา"
        Application.DisplayAlerts = False
        Application.Save
        Application.Quit
        wdApp.Quit
        Exit Sub
    End If
    Call Timer
End Sub