Microsoft Word, Вопросы и ответы Опции

[Second]

Хочу задать вот такой вопрос.
Если, к примеру, я хочу открыть html файл в WORD 2000, только не как html страницу, а как txt-файл, то что мне нужно для этого сделать?

[comcat]

Добрый день!
Документы (WEB-странички) созданы на неком шаблоне .dot. Со временем решил поменять формат таблиц и т.п. в этом шаблоне. Как сделать, чтобы эти изменения автоматически перешли в созданные на его основе документы?

[Drean]

Как на всех старницах выровнять стандартное расположение рамок ?

[vicwanderer]

Есть договор который наша фирма заключает с клиентами.
Нужно чтобы когда менеджеры нашей фирмы заходили на сервер и открывали этот файл(*.doc) то им выскакивали окошки в которые они вводили данные, а договор заполнялся этими данными. С помощью чего это можно сделать и где об этом почитать?
PS Никогда такое не делал, а шеф сказал: "Надо."

[FUriCK]

Постараюсь по-порядку.
2 Sercam

...можно было бы вчерашнюю версию восстановить.
Могу ошибаться, но кажется похожая функция была в самом WORD'е,...

YScratch прав на все 100. :)
Ставь сторонний бэкапер. Любой. Их сотни. Иначе никак.

ПАРАМЕРТЫ-СОХРАНЕНИЕ-ВСЕГДА СОЗДАВАТЬ РЕЗЕРВНУЮ КОПИЮ (ставишь "птицу"). Это имелось ввиду?

Спасет далеко не всегда. Обязательно заглючит если с документом работали несколько раз, каждый раз открывая, а потом выходя из Офиса.

2comcat

Документы (WEB-странички) созданы на неком шаблоне .dot. Со временем решил поменять формат таблиц и т.п. в этом шаблоне. Как сделать, чтобы эти изменения автоматически перешли в созданные на его основе документы?

Копируешь *.dot куда-нить (чисто на всяк.пож.) потом открываешь его из ворда, правишь пустые таблички (размеры, формат шрифтов и т.п. ). Удобнее будет, если включить отображение невидимых символов. Потом сохраняешь на место, т.е. в папку Templates пользователя(всех пользователей). Все.

2Drean

Как на всех старницах выровнять стандартное расположение рамок ?

Подробней, плиз...

2 vicwanderer

Есть договор ... менеджеры нашей фирмы заходили на сервер и открывали этот файл(*.doc) то им выскакивали окошки в которые они вводили данные, а договор заполнялся этими данными. ... , а шеф сказал: "Надо."

Раз шеф сказал - значит надо. :)
Это можно сделать с пом. макросов(привязать его на открытие документа) и
VBA (Visual Basic for Applications). Почитать - в хелпе офиса, в инете и МСДНе.

[levnev]

Есть договор ... менеджеры нашей фирмы заходили на сервер и открывали этот файл(*.doc) то им выскакивали окошки в которые они вводили данные, а договор заполнялся этими данными. ... , а шеф сказал: "Надо."

Раз шеф сказал - значит надо. smile.gif
Это можно сделать с пом. макросов(привязать его на открытие документа) и
VBA (Visual Basic for Applications). Почитать - в хелпе офиса, в инете и МСДНе.

Или открой любой "мастер" Ворда, который задает кучу вопросов перед созданием дока (например, мастер Резюме) и посмотри, как устроен шаблон и какие скрипты VBA к нему "приписаны"... Ежели сам умеешь программит, то особенно "хиттрого" там не встретишь! ;)

[tenshi]

Нажмите клавишу INS (Insert)

[yur]

tenshi
Вроде все получилось.
Спасибо :)

[economics]

Drean,
В главном меню.
Файл =>Параметры страницы

Главное чтобы справа внизу стояло "Применить ко всему документу".

[vicwanderer]

В какую ветку форума пойти незнаю. Может кто перенаправит.
Вообщем не получается сделать таблицу в шаблоне(текст уже сделал)

[Kalaputsa]

У меня в Word(e) между словами очень большой пробел,т.е.
"именуемое________в_____________ дальнейшем________«Клиент»_______в". Когда пытаюсь убрать такое растояние слова становятьса слитно. Как зделать, чтоб пробелы между слов были нормальные?

Сообщение было отредактировано Kalaputsa: 17.04.2006 - 14:06

[FUriCK]

vicwanderer
вообще-то достаточно странно.
В шаблон сохраняется все, что есть в документе.
Проверь просто сразу после сохранения настроенного шаблона в
...\Templates\test_template.dot закрыть офис и открыть его двойным щелчком.
Если таблицы там не будет - переустанавливай офис (скорее всего).
Если на каком-то этапе вылезут какие-то сообщения - отпиши сюда.

Kalaputsa
Если сменить шрифт - то же самое?
Выдели все и проверь Format->Font->Character Spacing (Tab)
set
Scale == 100%
Spacing == Normal
Если не поможет - версию офиса тоже давай сюда.

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

1. расставь правильно пробелы
2. если это длинное слово - сделай перенос (прямо вручную).

если нет, попробуй еще так:
1. Включи непечатаемые символы и проверь нет ли разрывов колонки, строки, пр. в конце строки с "длинными" пробелами.
2. убери их если они есть.
3. выдели абзац, после чего убери выравнивание по ширине (сделай "по левому краю").

Сообщение было отредактировано FUriCK: 17.04.2006 - 14:52

[Kalaputsa]

Всё на много проше.... Надо формат текста зделать, а потом чуток его отредактировать.

[FUriCK]

Kalaputsa
Ну, молодец.... (IMG:style_emoticons/bfz/blink.gif)

Только очень хочется попросить:
1. постараться сделать что-то сначала самому - полазить, поискать настройки и только потом уже задавать вопрос в форуме - уважайте, пожалуйста, время других людей. Я, например, его (время) очень ценю.
2. задавать вопрос максимально полно, с указанием версий софта, предпринятых мер и как они повлияли на ситуацию (или не повлияли вообще).

спасибо за внимание.

[Kalaputsa]

Ребят, а можно в ворде после написание цифр, он же(Word) всё это переводил в письменный текст?

[FUriCK]

2 Kalaputsa
только если тебе будет не в лом забить в автозамену все нужные тебе цифры. :) Хотя для если тебе нужно всего лишь 0-9 - никаких проблем. А вот если тебе нужно "тысяча девятьсот пятьдесят три" - задолбаться. Для скорости проще и быстрее научиться слепому набору (по себе знаю - не так уж это и страшно).

[levnev]

Kalaputsa
Кажется на сайте офиса видел какой-то скрипт на эту тему (перевод в чисел в прописную форму)...
Вот тут надо выбрать, что лучше подойдет: www.microsoft.ru/offext/documents/text/list.aspx?id=15

Сообщение было отредактировано levnev: 10.05.2006 - 11:56

[victos]

Kalaputsa
В самом низу окна Ворда есть невзрачная кнопочка ЗАП - запись макроса. После её нажатия всё, что ты делаешь руками параллельно заносится в программный текст (макрос), который потом может быть выполнен неограниченное число раз. При этом нужный текст, таблицы и т.д. появятся в документе, словно их набрали руками. Макросу может быть назначена клавиатурная комбинация для быстрого вызова. Для начала я рекомендую сохранять макросы в текущем документе Ворда (а не в шаблоне Normal.dot, который надо беречь от необоснованного засорения).
Получившийся "программный продукт" можно в любой момент посмотреть по Alt+F11.
Если есть хоть минимальный опыт программирования, то можно править сам текст макроса в среде MS Visual Basic (которая встроена в Ворд), не прибегая к помощи кнопки ЗАП.

[Kalaputsa]

levnev
Спасибо за ссылку, но там ни одна програмка мне не подходит... Мне надо, чтоб там ещё прописывалось рубли, копейки и доллары. Нашёл там одну, но она работает только с Win95/98.

victos
А вот с программированием я ваще ниразу не сталкивался, есть врянты по проще?

[Andyy]

Kalaputsa
Если тебе это надо для платежек или счетов-фактур, то проще делать в Excel.
Public Function СуммаПрописью(N As Double) As String

ReDim D(1 To 9) As String
ReDim dd(1 To 9) As String
ReDim a(1 To 9) As String
ReDim b(1 To 9) As String
ReDim bb(1 To 9) As String
ReDim X(1 To 9) As Long
Dim m1 As String, mm1 As String, mmm1 As String, t1 As String, tt1 As String, ttt1 As String
Dim l As Long, w As String, u As Long, i As Long, Y As Long

m1 = "миллион ": mm1 = "миллиона ": mmm1 = "миллионов ":
t1 = "тысяча ": tt1 = "тысячи ": ttt1 = "тысяч "

D(1) = "один ": dd(1) = "одна ": a(1) = "одиннадцать ": b(1) = "десять ": bb(1) = "сто "
D(2) = "два ": dd(2) = "две ": a(2) = "двенадцать ": b(2) = "двадцать ": bb(2) = "двести "
D(3) = "три ": dd(3) = "три ": a(3) = "тринадцать ": b(3) = "тридцать ": bb(3) = "триста "
D(4) = "четыре ": dd(4) = "четыре ": a(4) = "четырнадцать ": b(4) = "сорок ": bb(4) = "четыреста "
D(5) = "пять ": dd(5) = "пять ": a(5) = "пятнадцать ": b(5) = "пятьдесят ": bb(5) = "пятьсот "
D(6) = "шесть ": dd(6) = "шесть ": a(6) = "шестнадцать ": b(6) = "шестьдесят ": bb(6) = "шестьсот "
D(7) = "семь ": dd(7) = "семь ": a(7) = "семнадцать ": b(7) = "семьдесят ": bb(7) = "семьсот "
D(8) = "восемь ": dd(8) = "восемь ": a(8) = "восемнадцать ": b(8) = "восемьдесят ": bb(8) = "восемьсот "
D(9) = "девять ": dd(9) = "девять ": a(9) = "девятнадцать ": b(9) = "девяносто ": bb(9) = "девятьсот "

l = 1
If N >= 10 Then l = 2
If N >= 100 Then l = 3
If N >= 1000 Then l = 4
If N >= 10000 Then l = 5
If N >= 100000 Then l = 6
If N >= 1000000 Then l = 7
If N >= 10000000 Then l = 8
If N >= 100000000 Then l = 9
w = ""
u = Int(N + 0.005)
For i = 1 To l
Y = Int(u / 10)
X(i) = u - 10 * Y
u = Y
Next i
For i = l To 1 Step -1
If i = 9 Then
w = w + bb(X(i))
End If
If i = 8 And X(i) <> 0 Then
If ((X(i) = 1) And (X(i - 1) = 0)) Or (X(i) <> 1) Then
w = w + b(X(i))
If X(i - 1) = 0 Then
w = w + mmm1
End If
Else
w = w + a(X(i - 1)) + mmm1
End If
End If
If i = 7 And X(i) <> 0 Then
If (X(i + 1) <> 1) Then
w = w + D(X(i))
Select Case X(i)
Case 1
w = w + m1
Case 2 To 4
w = w + mm1
Case 5 To 9
w = w + mmm1
End Select
End If
End If
If i = 7 And (X(8) = 0 And X(7) = 0) Then w = w + mmm1
If X(6) = 0 And X(5) = 0 And X(4) = 0 Then GoTo met
If (i = 6) And (X(i) <> 0) Then
w = w + bb(X(i))
End If
If i = 5 And X(i) <> 0 Then
If ((X(i) = 1) And (X(i - 1) = 0)) Or (X(i) <> 1) Then
w = w + b(X(i))
If X(i - 1) = 0 Then
w = w + ttt1
End If
Else
w = w + a(X(i - 1)) + ttt1
End If
End If
If i = 4 And X(i) <> 0 Then
If (X(i + 1) <> 1) Then
w = w + dd(X(i))
Select Case X(i)
Case 1
w = w + t1
Case 2 To 4
w = w + tt1
Case 5 To 9
w = w + ttt1
End Select
End If
End If
If i = 4 And (X(5) = 0 And X(4) = 0) Then w = w + ttt1
met:
If i = 3 And X(i) <> 0 Then
w = w + bb(X(i))
End If
If i = 2 And X(i) <> 0 Then
If ((X(i) = 1) And (X(i - 1) = 0)) Or (X(i) <> 1) Then
w = w + b(X(i))
Else
w = w + a(X(i - 1))
End If
End If
If i = 1 And X(i) <> 0 Then
If (X(i + 1) <> 1) Then
w = w + D(X(i))
End If
End If
Next i
w = w + "руб."
w = UCase$(Left(w, 1)) & Right(w, Len(w) - 1)

'копейки
Dim k As String
k = " " & Format(IIf(Int((N - Int(N)) * 100 + 0.5) >= 100, 0, Int((N - Int(N)) * 100 + 0.5)), "00") & " коп."

'результат
СуммаПрописью = w + k
End Function

[victos]

Kalaputsa
Функция, предложенная постом выше, работает в Excel - сам проверял. В текущей ячейке прописывается так:

Двадцать семь миллионов двести тридцать четыре тысячи пятьсот шестьдесят девять руб. 21 коп.

а когда рубли =0, то так:

Руб. 21 коп.


'************************************************
Sub Макрос1()
'
' Сочетание клавиш: Ctrl+k
'
ActiveCell.FormulaR1C1 = СуммаПрописью(27234569.21)
Range("A1").Select
ActiveCell.FormulaR1C1 = СуммаПрописью(0.21)
End Sub
'*************************************************
Public Function СуммаПрописью(N As Double) As String
'......
'......
End Function
'*************************************************

[levnev]

Andyy
victos
Надо бы еще написать, как это все дело ему (Kalaputsa) в Word вставить и применять! ;)

[Andyy]

levnev

Если тебе это надо для платежек или счетов-фактур, то проще делать в Excel.

Может он этого не знает. :P

[Kalaputsa]

Ребят, этот топик для ворда, а не для экселя... мне эксель ваще не упёрся(извите за грубость). Нужен только ворд и всё. Документ - справка для принятой и выданной денежной суммы за день, в катором надо писать сумму в цифрах, а потом в скобка письменно.

[Andyy]

Лично я решаю поставленные передо мной задачи любым удобным и быстрым способом. Если ты уперся в ворд, то это твое дело. Хотя тот или иной бланк можно сделать и в ворде и в экселе. Тут готовое решение. Если ищешь трудности - это твое право.
Удачи!

[Kalaputsa]

И куда мне в экселе этот макрос вставлять? А потом, что слияние документов делать?