Открыть Word и создать новый документ

@Sparco969 · Регистрация: 17.12.2009

Author24 — интернет-сервис помощи студентам

Ребят помогите написать скрипт, нужно чтобы скрипт автоматически запускал word(исполняемый файл winword, то есть exe файл) и создал в нем надпись(любую) решается судьба экзамена очень прошу помочь.

@Toxa33rus · 18.12.2009, 18:23

Visual Basic

dim w
set w = createobject("word.application")
w.visible = true
 
dim d
set d = w.documents.add
 
d.content.insertafter "любая надпись" & vbcrlf
d.content.insertafter "еще одна надпись" & vbcrlf

@Sparco969 · 19.12.2009, 12:25 **[ТС]**

мне нужно не в Visual basic, а в WHS то есть Java Script.

@Ex_Soft · 19.12.2009, 17:44

HTML5

<html>
  <head>
    <title>Test M$ Word</title>
<script type="text/javascript">
<!--
function TestCOM()
{
   var
     oFS=null,
     SignatureDoc="E:\\Soft.src\\JavaScript\\Test\\COM\\Word_tst.doc",
     OutputDoc="E:\\Soft.src\\JavaScript\\Test\\COM\\Word_out.doc",
     MSWordExists,
     OpenOfficeOrgExists,
     MSWord=null,
     Document=null,
     Bookmarks=null,
     wdGoToBookmark=-1, // 0xFFFFFFFF
     wdGoToFirst=1,
     wdGoToAbsolute=1,
     BookmarkName="MyBookmark",
     TEST_BOOKMARK_BY_BOOKMARKS_COLLECTION=false,
     Bookmark;
 
   if(!(oFS=new ActiveXObject("Scripting.FileSystemObject")))
   {
      alert("!Scripting.FileSystemObject");
      return;
   }
 
   if(!oFS.FileExists(SignatureDoc))
   {
      alert("!FileExists");
      return;
   }
 
   try
   {
      MSWord=new ActiveXObject("com.sun.star.ServiceManager");
      OpenOfficeOrgExists=true;
   }
   catch(Exception)
   {
      alert(Exception.name+": "+Exception.message);
      alert(MSWord);
      OpenOfficeOrgExists=false;
   }
 
   MSWord=null;
   //alert(1);
   //MSWord=GetObject("e:\\Test1.doc","Word.Application");
   //alert(2);
   //
   // PRB: Cannot Call GetObject from Script in IE to Access Running Object
   // http://support.microsoft.com/kb/q239470/
   //
 
   if(!MSWord)
   {
      try
      {
         MSWord=new ActiveXObject("Word.Application");
         MSWordExists=true;
      }
      catch(Exception)
      {
         alert(Exception.name+": "+Exception.message);
         MSWordExists=false;
      }
   }
 
   if(!MSWord)
   {
      alert("!Word.Application");
      return;
   }
 
   MSWord.Visible=true;
 
   if(!(Document=MSWord.Documents.Open(SignatureDoc)))
   {
      alert("!Document");
      return;
   }
 
   Document.PageSetup.TopMargin=MSWord.CentimetersToPoints(10);
 
   if(!(Bookmarks=Document.Bookmarks))
   {
      alert("!Bookmarks");
      return;
   }
 
   //alert("Bookmarks.Count="+Bookmarks.Count);
   if(Bookmarks.Exists(BookmarkName))
   {
      if(TEST_BOOKMARK_BY_BOOKMARKS_COLLECTION)
      {
         Bookmark=Bookmarks.Item(BookmarkName);
         // ||
         //Bookmark=Bookmarks.Item(1);
         Bookmark.Select();
      }
      else
      {
         MSWord.Selection.GoTo(/*What*/ wdGoToBookmark, /*Which*/ 0 /*wdGoToFirst*/, /*Count*/ 0, /*Name*/ BookmarkName);
      }
 
      MSWord.Selection.TypeText(document.getElementById("Input1").value);
      //MSWord.Selection.InlineShapes.AddPicture("F:\\My_Doc\\avatara.gif",false,true);
   }
   
   MSWord.ActiveDocument.SaveAs(OutputDoc);
   MSWord.ActiveDocument.PrintOut(false,0,0,"","","",0,3);
   MSWord.ActiveDocument.Close();
   MSWord.Quit();
 
   alert("oB!!!");
}
// -->
</script>
  </head>
  <body onload="TestCOM()">
    <form>
      <input type="text" id="Input1" value="123456789">
    </form>
  </body>
</html>

@Sparco969 · 25.12.2009, 15:07 **[ТС]**

Javascript

var vbOKCancel = 1;
var vbInformation = 64;
var vbCancel = 2;
var Message = "Вы действительно хотите запустить программу word?";
var Title   = "Подтвердите действие";
Welcome();
 
var WSHShell = WScript.CreateObject("WScript.Shell");
WSHShell.Run("winword");
 
function Welcome() {
    var WSHShell = WScript.CreateObject("WScript.Shell");
    var intDoIt;
 
    intDoIt =  WSHShell.Popup(Message,
                              0,
                              Title,
                              vbOKCancel + vbInformation );
    if (intDoIt == vbCancel) {
        WScript.Quit();
    }
}

Вот код нужно дописать чтоб при открытии word создавался документ с любой надписью.

@Sparco969 · 28.12.2009, 11:43 **[ТС]**

неужели никто дописать не может????

@Ex_Soft · 28.12.2009, 12:15

Вы это видели?

@Sparco969 · 28.12.2009, 18:43 **[ТС]**

Видел и что вы предлагаете??? то что выше херня извините за выражение зачем мне HTML и Visual basic если мне надо JAVA SCRIPT помоему тупо задавать такой вопрос товарищ EX Soft.Конечно я благодарен за ваши старания, но моя проблема всеравно от этого не решилась.

@Ex_Soft · 28.12.2009, 18:54

Сообщение от Sparco969

зачем мне HTML и Visual basic если мне надо JAVA SCRIPT

Сообщение от Ex_Soft

HTML5

1	<script type=>>>"text/javascript"<<<>

"...Зрение слабое..."?

@Sparco969 · 28.12.2009, 19:29 **[ТС]**

Во 1. Вставь все это в блокнот с расширением JS(JAVA SCRIPT) а не HTML то есть ( " Бокнот.js") и посмотри внимательней кому очки надо. Во 2. даже с расширением HTML ворд незапускается, а прописывается походу в браузере. В 3. прочитайте всю тему чтобы делать выводы кто слепой а кто сильно зрячий.

@Ex_Soft · 28.12.2009, 23:30

Сообщение от Sparco969

Вставь все это в блокнот с расширением JS(JAVA SCRIPT) а не HTML то есть ( " Бокнот.js")

/me вспоминает:

Для того, чтобы отделить потенциальных программистов от сосунков, нужно на самой ранней стадии обучения посадить группу за терминалы и посмотреть, чем каждый из них будет заниматься. Сосунок будет исправно решать поставленную преподавателем задачу, а потенциальный настоящий программист залезет в машину учителя, вытащит оттуда ТЕТРИС, за 3 минуты до конца занятия сворует программу у соседа и исправит в соответствии со своим заданием.

Кто ж знал, что Вы любитель заниматься monkey typing.

"Бокнот.js"

Javascript

var
    MSWord=null;
 
try
{
    if(MSWord=new ActiveXObject("Word.Application"))
    {
        MSWord.Visible=true;
    }
    else
        alert("!Word.Application");
}
catch(Exception)
{
    alert(Exception.name+": "+Exception.message);
}

Все - работает. Чем это принципиально отличается от этого?

Сообщение от Sparco969

даже с расширением HTML ворд незапускается

Browser какой? Надеюсь M$ IE? На запросы о запуске JS'а и ActiveX'а, что отвечали?

@Sparco969 · 29.12.2009, 23:05 **[ТС]**

Скажу честно с вы программист такой же как и я(но я не учусь на ПО так что мне простительно) , что не можете написать\дописать такой легкий скрипт.

@Ex_Soft · 29.12.2009, 23:54

тынць/тынць

@Sparco969 · 30.12.2009, 00:16 **[ТС]**

Ваши ссылки для меня ничего нового не превнесли, еслибы я занимался халявой весь семестр врятли мне дали бы это задание, вы не знаете моей ситуации и суете всякую ахинее вместо того чтобы помочь.

@Ex_Soft · 30.12.2009, 00:26

Вам все уже дано. Разбирайтесь. Раз уж, Вы такой особенный, что именно Вам доверили сию one banana problem.

@Sparco969 · 30.12.2009, 16:01 **[ТС]**

Да вы остряк как ни как, очки мозг не стягивают ( с такими разговор короткий и закнчивается он у дяди Айболита)

@dr0sel · 18.09.2021, 23:56

У меня получилось открыть Ворд и создать новый файл с таким кодом:

Код

function writeword() {
	var fw = new ActiveXObject("Word.Application");
	fw.Documents.Add();
	fw.Visible = true;
}

..то есть надо было добавить круглые скобки без параметров после Add.

@mr_dramm · 19.09.2021, 00:10

Не по теме:

Крутяк трупы оживают =) АктивИкс уже история работает только в IE, который уже не поддерживается (спасибо MS мы этого так долго ждали :yahoo:)

Сегодня актуально редактировать документы с помощью онлайн редакторов и хранить на гугл диске например

@Balanaar · 19.09.2021, 23:12

Не по теме:

Зато всплыли крутые ссылки с этого поста. Кстати недавно высказывался на тему того, что студенты вкидывают сюда 50 топиков с задачами одним махом и ждут их решения. Очень в тему.

FlasherX · 21.09.2021, 15:33

Не по теме:

mr_dramm, что за низкопробный флуд? Разделом ошиблись? Бывает.

@Ex_Soft 213 / 107 / 15 Регистрация: 28.01.2009 Сообщений: 481
	29.12.2009, 23:54	13
	тынць/тынць 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	30.12.2009, 00:16 [ТС]	14
	Ваши ссылки для меня ничего нового не превнесли, еслибы я занимался халявой весь семестр врятли мне дали бы это задание, вы не знаете моей ситуации и суете всякую ахинее вместо того чтобы помочь. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
		1
	Открыть Word и создать новый документ 17.12.2009, 23:41. Показов 19529. Ответов 21 Метки нет (Все метки) Ребят помогите написать скрипт, нужно чтобы скрипт автоматически запускал word(исполняемый файл winword, то есть exe файл) и создал в нем надпись(любую) решается судьба экзамена очень прошу помочь. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	19.12.2009, 12:25 [ТС]	3
	мне нужно не в Visual basic, а в WHS то есть Java Script. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	28.12.2009, 11:43 [ТС]	6
	неужели никто дописать не может???? 0

@Ex_Soft 213 / 107 / 15 Регистрация: 28.01.2009 Сообщений: 481
	28.12.2009, 12:15	7
	Вы это видели? 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	28.12.2009, 18:43 [ТС]	8
	Видел и что вы предлагаете??? то что выше херня извините за выражение зачем мне HTML и Visual basic если мне надо JAVA SCRIPT помоему тупо задавать такой вопрос товарищ EX Soft.Конечно я благодарен за ваши старания, но моя проблема всеравно от этого не решилась. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	28.12.2009, 19:29 [ТС]	10
	Во 1. Вставь все это в блокнот с расширением JS(JAVA SCRIPT) а не HTML то есть ( " Бокнот.js") и посмотри внимательней кому очки надо. Во 2. даже с расширением HTML ворд незапускается, а прописывается походу в браузере. В 3. прочитайте всю тему чтобы делать выводы кто слепой а кто сильно зрячий. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	29.12.2009, 23:05 [ТС]	12
	Скажу честно с вы программист такой же как и я(но я не учусь на ПО так что мне простительно) , что не можете написать\дописать такой легкий скрипт. 0

@Ex_Soft 213 / 107 / 15 Регистрация: 28.01.2009 Сообщений: 481
	30.12.2009, 00:26	15
	Вам все уже дано. Разбирайтесь. Раз уж, Вы такой особенный, что именно Вам доверили сию one banana problem. 0

@Sparco969 0 / 0 / 0 Регистрация: 17.12.2009 Сообщений: 9
	30.12.2009, 16:01 [ТС]	16
	Да вы остряк как ни как, очки мозг не стягивают ( с такими разговор короткий и закнчивается он у дяди Айболита) 0

@dr0sel 0 / 0 / 0 Регистрация: 07.05.2021 Сообщений: 3
	18.09.2021, 23:56	17
	У меня получилось открыть Ворд и создать новый файл с таким кодом: Код function writeword() { var fw = new ActiveXObject("Word.Application"); fw.Documents.Add(); fw.Visible = true; } ..то есть надо было добавить круглые скобки без параметров после Add. 0

@mr_dramm молодой 1772 / 1013 / 320 Регистрация: 17.07.2021 Сообщений: 2,050 Записей в блоге: 12
	19.09.2021, 00:10	18
	Не по теме: Крутяк трупы оживают =) АктивИкс уже история работает только в IE, который уже не поддерживается (спасибо MS мы этого так долго ждали :yahoo:) Сегодня актуально редактировать документы с помощью онлайн редакторов и хранить на гугл диске например 0

@Balanaar
	19.09.2021, 23:12 #19
	Не по теме: Зато всплыли крутые ссылки с этого поста. Кстати недавно высказывался на тему того, что студенты вкидывают сюда 50 топиков с задачами одним махом и ждут их решения. Очень в тему. 0

FlasherX
	21.09.2021, 15:33 Открыть Word и создать новый документ #20
	Не по теме: mr_dramm, что за низкопробный флуд? Разделом ошиблись? Бывает. 0