Sub Activate()
Dim wdApp As Word.Application
Dim wdDoc As Word.Document
Dim wdDocTwo As Word.Document
Set wdApp = CreateObject("word.Application")
wdApp.Visible = True
Set wdDoc = ThisDocument
Set wdDocTwo = wdApp.Documents.Add
wdDocTwo.Activate 'активация окна( но не выводит на передний план)
AppActivate (wdDocTwo.Name)' выведет окно wdDocTwo на передний план
End Sub
<script>alert("Hello QnA.Habr!");</script>Это можно сделать встроенной функцией btoa(), но она не умеет Unicode: только ASCIIdata:text/html;base64,и_тут_ваш_код_в_base64data:text/html;base64,CjxzY3JpcHQ+YWxlcnQoIkhlbGxvIFFuQS5IYWJyISIpOzwvc2NyaXB0Pgo=
HTMLElement.prototype.waitFor = function(event_name) {
if (event_name) {
return new Promise((res, rej) => {
const listener = function() {
res()
this.removeEventListener(event_name, listener)
};
this.addEventListener(event_name, listener);
})
} else {
throw 'No event passed to waitFor method!';
}
}
async function foo() {
const start = new Date();
await document.querySelector('body').waitFor('click');
console.log('uspeshno dojdalis clicka, jdali celih ' + ((new Date().getTime() - start.getTime())/1000) + ' sekund');
}
foo();
Тут такое дело, встроеная Date не является классом как таковым, поэтому все неверные варианты убрал под спойлер
class ServerDate extends Date {
construcror(...args) {
super(...args);
if (args.length === 0) {
// если аргументов конструктора нет то получаем время от сервера
fetch("url роутера на сервере отдающего время в миллисекундах")
.then((response) => {
return response.json();
})
.then((data) => {
this.setTime(data.time)
})
}
}
}
const date = new ServerDate();super(...args);. Если да, то можно попробовать сделать такclass ServerDate extends Date {
construcror(...args) {
// super(...args);
if (args.length) {
this.setTime(Date.now());
}else{
// если аргументов конструктора нет то получаем время от сервера
fetch("url роутера на сервере отдающего время в миллисекундах")
.then((response) => {
return response.json();
})
.then((data) => {
this.setTime(data.time)
})
}
}
}
const date = new ServerDate();
console.log(date)const date = new ServerDate(); будет содержать время клиента 
function format(time) {
return [time % 86400000 / 3600000, // hours
time % 3600000 / 60000, // minutes
time % 60000 / 1000 // seconds
]
.map(x => Math.floor(x).toString().padStart(2, '0'))
.join(':')
}
Private Function getData(strUrl As String) As String
Dim http As Object
On Error Resume Next
Set http = CreateObject("MSXML2.XMLHTTP")
If Err.Number <> 0 Then
Set http = CreateObject("MSXML.XMLHTTPRequest")
End If
On Error GoTo 0
If http Is Nothing Then
getData = ""
Exit Function
End If
http.Open "GET", strUrl, False
http.Send
getData = http.responseText
Set http = Nothing
End Function
