Вопрос № 101848: Здавствуйте, Супиев Васил!
Помогите, пожалуйста, где можно скачать язык программирования VISUAL BASIC 6.0 .
..Вопрос № 101894: Как зделать чтоб додавались или отнимались числа с комами например 4,6+3,5, у меня почемуто додает только целые, после комы не берет?...Вопрос № 101915: Есть текст в Word. Для некоторых букв в словах устанавливается ударение (символ с кодом 769).
Однако в будущем может понадобиться удалить символ ударения с буквы. При этом возможны два варианта: удаление символа с выделенной буквы и удаление всех...Вопрос № 101925: Доброго времени суток!
У меня несложные вопросы, большая просьба ответь как можно раньше.
Разобью на два:
1. Как из excell можно из word скопировать часть строки длинна которой от документа к документу может меняться. Т.е. в одном докумен...
Вопрос № 101.848
Здавствуйте, Супиев Васил!
Помогите, пожалуйста, где можно скачать язык программирования VISUAL BASIC 6.0 .
Отвечает: Alexander N. Monastyrsky !!!
Здравствуйте, Супиев Васил Шапиевич!
Средства разработки для Языка программирования VISUAL BASIC 6.0 входят в состав Microsoft Visual Studio 6.0, которое можно приобрести в специализированных магазинах или на рынке.
А можно скачать, если есть огромный канал ;).
Для этого поможет приличный поисковик.
Я (ну допустим не сразу) нашел ссылку. Не проверял. У меня такой проблемы нет. Я Студио купил.
Приложение удалено, т.к. содержало ссылки на нелицензионное ПО.
----- =Alexey G. Gladenyuk= (*Мастер-Эксперт) --------- Страшен Русский сервис, бессмысленный и беспощадный...
Ответ отправил: Alexander N. Monastyrsky (статус: 2-ой класс)
Ответ отправлен: 13.09.2007, 10:37
Отвечает: Черников Игорь Владимирович
Здравствуйте, Супиев Васил Шапиевич!
http://bbs.vbstreets.ru/viewtopic.php?t=18172&sid=1db390adcde2987198033346edfe459c
--------- От каждого по способностям, каждому по труду
Отвечает: Черников Игорь Владимирович
Здравствуйте, Коновалов Николай Станиславович!
Поэкспериментируйте. Запишите в ячейку А1 число с запятой, например 12,36 и создайте макрос. Впишите в него строку, например Range("B1") = Range("A1") + 45.78 Заметьте, что в числе 45.78 стои точка вместо запятой. Если в макросе поставить вместо неё запятую, то компилятор воспримет это не как число, а как перечисление операторов или свойств и выдаст ошибку.
--------- От каждого по способностям, каждому по труду
Есть текст в Word. Для некоторых букв в словах устанавливается ударение (символ с кодом 769).
Однако в будущем может понадобиться удалить символ ударения с буквы. При этом возможны два варианта: удаление символа с выделенной буквы и удаление всех символов во всем тексте.
Вопрос: как найти этот символ по его коду? Как удалить его (снять ударение)? И как проверить, есть эти символы в выделенном тексте?
Спасибо.
P.S. Для символов ударения (empasis mark) в VBA есть специальные команды, но этот символ не совсем подходит. Я использую именно символ с кодом 769. При этом, нужно еще проверять и изменять текущий язык на русский.
Образец кода в приложении.
Отвечает: Черников Игорь Владимирович
Здравствуйте, Кокин Антон Вадимович!
Sub Макрос1() 'для выделенного текста
Dim r As String
i = Selection.Range.Start
j = Selection.Range.End
If i = j Then MsgBox ("Текст не выделен"): End
Selection.MoveLeft Unit:=wdCharacter, Count:=1
For a = 1 To j - i
r = Selection.Range.Characters(1)
If Mid(r, 2, 1) <> "" Then
If Asc(Mid(r, 2, 1)) = 63 Then
Selection.Delete
Selection.TypeText Text:=Mid(r, 1, 1)
End If
End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
Next a
End Sub
Sub Макрос2() 'для всего текста
Dim r As String
Selection.WholeStory
j = Selection.End
Selection.MoveLeft Unit:=wdCharacter, Count:=1
For a = 0 To j
r = Selection.Range.Characters(1)
If Mid(r, 2, 1) <> "" Then
If Asc(Mid(r, 2, 1)) = 63 Then
Selection.Delete
Selection.TypeText Text:=Mid(r, 1, 1)
End If
End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
Next a
End Sub
Sub Макрос3() 'Количество найденных символов с ударением и язык
Dim r As String
Dim schetchik As Integer
temp = Selection.LanguageID
i = Selection.Range.Start
j = Selection.Range.End - 1
If i = j Then MsgBox ("Текст не выделен"): End
Selection.MoveLeft Unit:=wdCharacter, Count:=1
For a = 1 To j - i
r = Selection.Range.Characters(1)
If Mid(r, 2, 1) <> "" Then
If Asc(Mid(r, 2, 1)) = 63 Then
schetchik = schetchik + 1
End If
End If
Selection.MoveRight Unit:=wdCharacter, Count:=1
Next a
MsgBox ("Количество найденных символов с ударением = " & schetchik)
Select Case Selection.LanguageID
Case 1033
MsgBox ("Инициализация языка - Английский")
Case 1049
MsgBox ("Инициализация языка - Русский")
Case Else
MsgBox ("Инициализация языка - Неопределено")
End Select
End Sub
--------- От каждого по способностям, каждому по труду
Ответ отправил: Черников Игорь Владимирович (статус: 5-ый класс)
Ответ отправлен: 15.09.2007, 11:07 Оценка за ответ: 5 Комментарий оценки: Спасибо! Я тоже уже нашел решение, которое позволяет установить и удалить (если есть) ударение над выделенным словом.
Вопрос № 101.925
Доброго времени суток!
У меня несложные вопросы, большая просьба ответь как можно раньше.
Разобью на два:
1. Как из excell можно из word скопировать часть строки длинна которой от документа к документу может меняться. Т.е. в одном документе она может быть 30 символов, в другом 35 и т.д., но расположена всегда в одном месте.
2. Как из экселя работать с текстовыми файлами. Желательно что-то, типа, знаменитых списков(string list). Т.е. отрыть файлик и парсить(обрабатывать) каждую строчку.
Если у кого есть толковая литература по использованию VBA, пришлите пожалуйста, буду рад - Prowler@mail.ru
Отправлен: 13.09.2007, 14:08
Вопрос задал: Prowler (статус: Студент)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 3)
Отвечает: vovikha
Здравствуйте, Prowler!
В.Д.Хорев - Самоучитель программирования на VBA в Microsoft Office
Профессиональное программирование на VBA в Excel 2002 Джон Уокенбах
google - книги скачать /название книги/
те ссылки по которым я скачивал уже не работают :(
--------- УЧИТСЯ УЧИТСЯ УЧИТСЯ
Ответ отправил: vovikha (статус: 4-ый класс)
Ответ отправлен: 13.09.2007, 14:16
Отвечает: Черников Игорь Владимирович
Здравствуйте, Prowler!
Sub Макрос1()
Dim WordApp As Word.Application ' экземпляр приложения
Dim r As String
Set WordApp = New Word.Application
WordApp.Documents.Open ("C:Documents and SettingsГлавныйРабочий столДокумент Microsoft Word.doc")
WordApp.Selection.HomeKey Unit:=wdStory
WordApp.Visible = True
r = WordApp.ActiveDocument.Range(Start:=0, End:=3)'копирует в переменную символы количество: End-Start
WordApp.Quit
End Sub
Sub Макрос2()
Dim Stroka As String
Stroka = "Proba"
Open "C:Me.log" For Output As #1 'Для записи в файл
Print #1, Stroka
Close #1
Open "C:Me.log" For Input As #1 ''Для построчного чтения из файла
Do While Not EOF(1) ' Loop until end of file.
Line Input #1, Stroka ' Read line into variable.
Loop
Close #1
End Sub
--------- От каждого по способностям, каждому по труду
