Русификация игры Final Fantasy VII |
Перевод вокруг-да-около
Board index › Final Fantasy IX › Перевод игры
- 1
by Antero » 25.04.2016, 13:42
Решился я значит посмотреть что из себя представляют файлы с диалогами (в стим версии которая вышла не так давно) дабы понять через что приходится проходить переводчикам и это зрелище надо сказать не для слабонервных ))
Я в этом деле не шарю, однако не могу промолчать о мысли которая посетила меня при беглом просмотре этой вакханалии (не судите строго я же не знаю ваших трюков, но вдруг взгляд человека со стороны вам пригодится).
И так - может будет полезно на время перевода скрыть все то, что находится в квадратных скобках дабы эта груда кода не мешала воспринимать текст ?
К примеру обычный код выглядит так:
а можно сделать что бы смотрелось так:
При этом этот код не пропадет из текста и его можно будет в любой момент показать обратно.
Это можно реализовать так:
для поиска содержимого квадратных скобок нужно написать в строке "Найти" вот это \[*\] (и так же поставить галочку в меню поиска у "постановочные знаки")
в строке "Заменить на" выбрать в меню Формат пункт Шрифт и поставить галочку у "скрытый"
Потом что бы отобразить скрытый текст нужно выделить все и в меню Шрифты убрать галочку "скрытый"
Я в этом деле не шарю, однако не могу промолчать о мысли которая посетила меня при беглом просмотре этой вакханалии (не судите строго я же не знаю ваших трюков, но вдруг взгляд человека со стороны вам пригодится).
И так - может будет полезно на время перевода скрыть все то, что находится в квадратных скобках дабы эта груда кода не мешала воспринимать текст ?
К примеру обычный код выглядит так:
“For I shall instruct thee in
his incomparable pain!”[TIME=-1][STRT=87,2]King Leo
“Arrg...[WAIT=5] Grr...”[TIME=15][STRT=65,1][IMME]Come back![TIME=15][STRT=254,2]King Leo
“Thou hast not seen the last of me, Marcus!”[ENDN][STRT=139,2][ZDNE]
“Out of the way, Blank!”[TIME=20][STRT=264,4][TAIL=LORF][OFFT=0,100,0]Blank
“Consider this, [ZDNE]! If Prince
Schneider were to marry Princess Cornelia,
peace would reign over both their kingdoms!”[ENDN][STRT=221,3][ZDNE]
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”[ENDN][STRT=78,1][IMME]Have at thee![TIME=10][STRT=25,1][IMME]Aha![TIME=10][STRT=26,1][IMME]Mph![TIME=10][STRT=70,2][TAIL=LORF]Blank
“En garde!”[INCS][TIME=-1][STRT=171,2][TAIL=UPLF][ZDNE]
his incomparable pain!”[TIME=-1][STRT=87,2]King Leo
“Arrg...[WAIT=5] Grr...”[TIME=15][STRT=65,1][IMME]Come back![TIME=15][STRT=254,2]King Leo
“Thou hast not seen the last of me, Marcus!”[ENDN][STRT=139,2][ZDNE]
“Out of the way, Blank!”[TIME=20][STRT=264,4][TAIL=LORF][OFFT=0,100,0]Blank
“Consider this, [ZDNE]! If Prince
Schneider were to marry Princess Cornelia,
peace would reign over both their kingdoms!”[ENDN][STRT=221,3][ZDNE]
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”[ENDN][STRT=78,1][IMME]Have at thee![TIME=10][STRT=25,1][IMME]Aha![TIME=10][STRT=26,1][IMME]Mph![TIME=10][STRT=70,2][TAIL=LORF]Blank
“En garde!”[INCS][TIME=-1][STRT=171,2][TAIL=UPLF][ZDNE]
а можно сделать что бы смотрелось так:
“For I shall instruct thee in
his incomparable pain!”King Leo
“Arrg... Grr...”Come back!King Leo
“Thou hast not seen the last of me, Marcus!”
“Out of the way, Blank!”Blank
“Consider this, ! If Prince
Schneider were to marry Princess Cornelia,
peace would reign over both their kingdoms!”
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”Have at thee!Aha!Mph!Blank
“En garde!”
his incomparable pain!”King Leo
“Arrg... Grr...”Come back!King Leo
“Thou hast not seen the last of me, Marcus!”
“Out of the way, Blank!”Blank
“Consider this, ! If Prince
Schneider were to marry Princess Cornelia,
peace would reign over both their kingdoms!”
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”Have at thee!Aha!Mph!Blank
“En garde!”
При этом этот код не пропадет из текста и его можно будет в любой момент показать обратно.
Это можно реализовать так:
для поиска содержимого квадратных скобок нужно написать в строке "Найти" вот это \[*\] (и так же поставить галочку в меню поиска у "постановочные знаки")
в строке "Заменить на" выбрать в меню Формат пункт Шрифт и поставить галочку у "скрытый"
Потом что бы отобразить скрытый текст нужно выделить все и в меню Шрифты убрать галочку "скрытый"
- Antero
- УР 1
- Posts: 4
- 1
by Albeoris » 25.04.2016, 17:37
1) Таким образом ты имеешь все шансы потерять важные теги при удалении какого-либо слова.
2) Некоторые теги вполне себе важны - имена, номера переменных, количество строк.
3) Такие тексты можно будет редактировать только в специальном редакторе. В системе управления версиями, они всё равно будут цвести пышным цветом.
У нас это выглядит несколько более цивильно (хотя тегов всё равно много, но они уже не так ломают глаза):
2) Некоторые теги вполне себе важны - имена, номера переменных, количество строк.
3) Такие тексты можно будет редактировать только в специальном редакторе. В системе управления версиями, они всё равно будут цвести пышным цветом.
У нас это выглядит несколько более цивильно (хотя тегов всё равно много, но они уже не так ломают глаза):
Code:
"{W153H3}{UpperRightForce}{Instantly}{Zidane}
“For I shall instruct thee in
his incomparable pain!”{Time -1}";
"{W87H2}{King Leo}
“Arrg...{Wait 5} Grr...”{Time 15}";
"{W65H1}{Instantly}Come back!{Time 15}";
"{W254H2}{King Leo}
“Thou hast not seen the last of me, Marcus!”";
"{W139H2}{Zidane}
“Out of the way, {Blank}!”{Time 20}";
"{W264H4}{LowerRightForce}{Offset 0,100,0}{Blank}
“Consider this, {Zidane}! If Prince
Schneider were to marry {Princess Cornelia},
peace would reign over both their kingdoms!”";
"{W221H3}{Zidane}
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”";
"{W78H1}{Instantly}Have at thee!{Time 10}";
"{W25H1}{Instantly}Aha!{Time 10}";
"{W26H1}{Instantly}Mph!{Time 10}";
"{W70H2}{LowerRightForce}{Blank}
“En garde!”{IncreaseSignal}";
“For I shall instruct thee in
his incomparable pain!”{Time -1}";
"{W87H2}{King Leo}
“Arrg...{Wait 5} Grr...”{Time 15}";
"{W65H1}{Instantly}Come back!{Time 15}";
"{W254H2}{King Leo}
“Thou hast not seen the last of me, Marcus!”";
"{W139H2}{Zidane}
“Out of the way, {Blank}!”{Time 20}";
"{W264H4}{LowerRightForce}{Offset 0,100,0}{Blank}
“Consider this, {Zidane}! If Prince
Schneider were to marry {Princess Cornelia},
peace would reign over both their kingdoms!”";
"{W221H3}{Zidane}
“’Tis foolishness! If all were so easy,
why, none would suffer in this world!”";
"{W78H1}{Instantly}Have at thee!{Time 10}";
"{W25H1}{Instantly}Aha!{Time 10}";
"{W26H1}{Instantly}Mph!{Time 10}";
"{W70H2}{LowerRightForce}{Blank}
“En garde!”{IncreaseSignal}";
- Albeoris
- Программист
- Posts: 67
- Topics: 1
- 1
by Albeoris » 26.04.2016, 14:26
Antero wrote:
1) макрос находит все тэги и делает их скрытыми (есть такое свойство в шрифтах)
2) макрос выделяет всё кроме тэгов (просто выделить все нельзя так как под выделение попадут скрытые тэги)
далее остается поставить защиту на документ, а выделенный тектс добавить в исключение что позволит удобно редактировать документы
Вот у тебя есть текст:
Hello {Signal} world!
Ты стираешь его и заменяешь своим:
Здравствуй мир! {Signal}
Положение тега изменилось, и что-то в игре пошло не так. А ты об этом даже не узнаешь.
Идея заманчивая, но реализовать её в таком виде очень сложно.
В виде редактора, где вместо тегов используются картинки, а некоторые теги вычисляются и выставляются правильно автоматически я себе ещё как-то представляю. Плагином для ворда - слабо. Ну и остаётся необходимость использовать сторонний редактор. То есть при работе в облаке необходимо скопировать текст к себе, отредактировать и вставить обратно. Не сложно, но это лишние действия, которые, с учётом достаточно коротких фраз, нивелируют выигрыш от отсутствия тегов.
P.S. Это ты своё сообщение снёс? О.о
- Albeoris
- Программист
- Posts: 67
- Topics: 1
- 1
by Antero » 26.04.2016, 23:17
раз уж я себя озадачил то довел дело до конца (самому было интересно понять как это можно реализовать).
может данный способ вам пригодится и для других целей так что я напишу методику (если не нужно то смело удаляйте сообщение)
в word-е открываем Visual Basic и вставляем в него сей текст
теперь вам стали доступны три макроса которые работают так
1) находит все тэги в документе
2) запрещает редактирование тэгов но оставляет возможность редактировать остальной текст
3) то же что и второй макрос только еще скрывает тэги (делает их невидимыми)
видео работы
ps да я снес свои сообщения так как на подобном же форуме мои мысли посчитали дурью ((
может данный способ вам пригодится и для других целей так что я напишу методику (если не нужно то смело удаляйте сообщение)
в word-е открываем Visual Basic и вставляем в него сей текст
Code:
Sub бРедактирование()
ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа
Dim wordCount As Integer 'создаем переменную для хранения кол-ва слов
Set myRange = ActiveDocument.Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords) 'наполняем переменную
Dim i As Integer
For i = 0 To wordCount
Selection.Find.ClearFormatting 'Очистка параметров поиска
With Selection.Find
.Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты
.Text = ""
End With
Selection.Find.Execute 'запуск поиска
Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования
Next i
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования
End Sub
Sub аОпределениеТэгов()
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String 'создаем переменную для поиска тэгов
txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов
Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.StrikeThrough = True
'Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub вРедактированиеСкрытьТэги()
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim wordCount As Integer
Set myRange = ActiveDocument.Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords)
Dim i As Integer
For i = 0 To wordCount
Selection.Find.ClearFormatting
With Selection.Find
.Font.StrikeThrough = False
.Text = ""
End With
Selection.Find.Execute '
Selection.Editors.Add wdEditorEveryone
Next i
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String
txt = "\[*\]"
Selection.Find.MatchWildcards = True
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Bookmarks("\StartOfDoc").Select
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False '
End Sub
ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа
Dim wordCount As Integer 'создаем переменную для хранения кол-ва слов
Set myRange = ActiveDocument.Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords) 'наполняем переменную
Dim i As Integer
For i = 0 To wordCount
Selection.Find.ClearFormatting 'Очистка параметров поиска
With Selection.Find
.Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты
.Text = ""
End With
Selection.Find.Execute 'запуск поиска
Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования
Next i
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования
End Sub
Sub аОпределениеТэгов()
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String 'создаем переменную для поиска тэгов
txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов
Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.StrikeThrough = True
'Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
Sub вРедактированиеСкрытьТэги()
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim wordCount As Integer
Set myRange = ActiveDocument.Range
wordCount = myRange.ComputeStatistics(Statistic:=wdStatisticWords)
Dim i As Integer
For i = 0 To wordCount
Selection.Find.ClearFormatting
With Selection.Find
.Font.StrikeThrough = False
.Text = ""
End With
Selection.Find.Execute '
Selection.Editors.Add wdEditorEveryone
Next i
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String
txt = "\[*\]"
Selection.Find.MatchWildcards = True
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Bookmarks("\StartOfDoc").Select
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False '
End Sub
теперь вам стали доступны три макроса которые работают так
1) находит все тэги в документе
2) запрещает редактирование тэгов но оставляет возможность редактировать остальной текст
3) то же что и второй макрос только еще скрывает тэги (делает их невидимыми)
видео работы
[video=500,300]https://youtu.be/vAN1iyUl4eM[/video]
ps да я снес свои сообщения так как на подобном же форуме мои мысли посчитали дурью ((
Last edited by Antero on 27.04.2016, 21:14, edited 1 time in total.
- Antero
- УР 1
- Posts: 4
- 1
by Albeoris » 26.04.2016, 23:39
Получилось довольно интересно.
Ну, про скрытие я уже писал выше. Не вариант.
На самом деле было бы полезнее, если бы в процессе набора текста отображались бы только ближайшие теги слева и справа. А по нажатию, скажем, Ctrl, отображались бы и все остальные.
В нашем случае не совсем подходит по той причине, что тягать тексты из облака в ворд и обратно по одной фразе не очень удобно. Если работал, скажем, с Notabenoid - представляешь себе о чём речь. Но с целыми документами действительно выглядит неплохо (правда, стили для запрета стоит подкорректировать, чтобы они смотрелись более блёкло, а то сейчас наоборот привлекают к себе внимание).
ps да я снес свои сообщения так как на подобном же форуме мои мысли посчитали дурью ((Это зря. Мало ли что и кто говорит. Мне твоё решение интересно с точки зрения возможностей Word'а, например. (=
Ну, про скрытие я уже писал выше. Не вариант.
На самом деле было бы полезнее, если бы в процессе набора текста отображались бы только ближайшие теги слева и справа. А по нажатию, скажем, Ctrl, отображались бы и все остальные.
В нашем случае не совсем подходит по той причине, что тягать тексты из облака в ворд и обратно по одной фразе не очень удобно. Если работал, скажем, с Notabenoid - представляешь себе о чём речь. Но с целыми документами действительно выглядит неплохо (правда, стили для запрета стоит подкорректировать, чтобы они смотрелись более блёкло, а то сейчас наоборот привлекают к себе внимание).
Quote:
- Albeoris
- Программист
- Posts: 67
- Topics: 1
- 1
by Antero » 27.04.2016, 00:01
стиль тэгов можно сделать какой угодно - любой который возможен в word-e (допустим можно сделать его блеклым)
про скрытие - в месте где скрыт тэг стоит разделитель (те видно где тэг находится) вот снимок экрана
можно посадить на горячие клавиши скрытие и показ тэгов (работает после того как документ стал защищенным)
как это сделать -
вот код для макросов
а про облако - я как то не подумал что вы так редактируете )) с другой стороны вы же не редактируете по паре фраз за раз - можно пару страничек взять да и скопировать а потом обратно запихнуть
про скрытие - в месте где скрыт тэг стоит разделитель (те видно где тэг находится) вот снимок экрана
можно посадить на горячие клавиши скрытие и показ тэгов (работает после того как документ стал защищенным)
как это сделать -
Файл - Параметры - Настройка ленты - внизу Сочетание клавиш: Настройка.... Откроется окно;
в этом окне:
Категории: "Макросы" (это почти в самом низу);
Макросы: - выберите нужный макрос;
укажите сочетание клавиш в Новое сочетание клавиш;
обратите внимание на пункт Сохранить изменения в. Этот пункт позволяет сохранить сочетание клавиш для всех документов или только для одного документа;
Назначить - Закрыть.
в этом окне:
Категории: "Макросы" (это почти в самом низу);
Макросы: - выберите нужный макрос;
укажите сочетание клавиш в Новое сочетание клавиш;
обратите внимание на пункт Сохранить изменения в. Этот пункт позволяет сохранить сочетание клавиш для всех документов или только для одного документа;
Назначить - Закрыть.
вот код для макросов
Sub СкрытьТэги()
ActiveDocument.Unprotect
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String
txt = "\[*\]"
Selection.Find.MatchWildcards = True
Selection.Find.Font.StrikeThrough = True
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
Sub ПоказатьСкрытыеТэги()
ActiveDocument.Unprotect
Selection.WholeStory
With Selection.Font
.Name = "+Основной текст"
.Hidden = False
End With
ActiveDocument.Bookmarks("\StartOfDoc").Select
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
ActiveDocument.Unprotect
ActiveDocument.Bookmarks("\StartOfDoc").Select
Dim txt As String
txt = "\[*\]"
Selection.Find.MatchWildcards = True
Selection.Find.Font.StrikeThrough = True
Selection.Find.Text = txt
Selection.Find.ClearFormatting
Selection.Find.Replacement.Font.Hidden = True
Selection.Find.Execute Replace:=wdReplaceAll
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
Sub ПоказатьСкрытыеТэги()
ActiveDocument.Unprotect
Selection.WholeStory
With Selection.Font
.Name = "+Основной текст"
.Hidden = False
End With
ActiveDocument.Bookmarks("\StartOfDoc").Select
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
а про облако - я как то не подумал что вы так редактируете )) с другой стороны вы же не редактируете по паре фраз за раз - можно пару страничек взять да и скопировать а потом обратно запихнуть
- Antero
- УР 1
- Posts: 4
- 1
by Antero » 27.04.2016, 20:49
итак я довел макросы до нормальной кондиции (немного их переписав) и вот каковы они в работе:
1) первый макрос сразу скрывает содержимое тэгов, но оставляет сами скобки дабы было понятно где находятся тэги
2) второй макрос определяет текст который можно редактировать и при этом защищает тэги как от редактирования так и от удаления
3) третий макрос отображает содержимое тэгов (содержимое зачеркнуто и отображается более тусклой заливкой ) сохраняя при этом защиту от редактирования
видео пример работы:
для работы макросов нужно установить в систему шрифт:
https://drive.google.com/open?id=0BzwnDGw1EaQOUFo2dFd6YUx3Nkk
код макросов:
для удобства можно назначить горячие клавиши на макросы скрытия и отображения тэгов
1) первый макрос сразу скрывает содержимое тэгов, но оставляет сами скобки дабы было понятно где находятся тэги
2) второй макрос определяет текст который можно редактировать и при этом защищает тэги как от редактирования так и от удаления
3) третий макрос отображает содержимое тэгов (содержимое зачеркнуто и отображается более тусклой заливкой ) сохраняя при этом защиту от редактирования
видео пример работы:
[video=500,300]https://youtu.be/vbYWsIIZR_Q[/video]
для работы макросов нужно установить в систему шрифт:
https://drive.google.com/open?id=0BzwnDGw1EaQOUFo2dFd6YUx3Nkk
код макросов:
Code:
Sub аСкрытиеТэгов()
ActiveDocument.Bookmarks("\StartOfDoc").Select
On Error Resume Next
ActiveDocument.Unprotect
Dim txt As String 'создаем переменную для поиска тэгов
txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов
Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями
Selection.Find.Text = txt
Selection.Find.ClearFormatting
With Selection.Find.Replacement.Font
.ColorIndex = wdGray50
.StrikeThrough = True
.Name = "Lato"
End With
'Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
Sub бРедактирование()
On Error Resume Next
ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа
Selection.Find.ClearFormatting 'Очистка параметров поиска
With Selection.Find
.Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты
.Text = ""
End With
Do While Selection.Find.Execute 'запуск поиска
Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования
Loop
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования
End Sub
Sub вПоказатьТэги()
On Error Resume Next
ActiveDocument.Unprotect
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Name = "Calibri"
.StrikeThrough = True
.DoubleStrikeThrough = False
End With
With Selection.Find
.Font.Name = "Lato"
.Text = "\[*\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
ActiveDocument.Bookmarks("\StartOfDoc").Select
On Error Resume Next
ActiveDocument.Unprotect
Dim txt As String 'создаем переменную для поиска тэгов
txt = "\[*\]" 'наполняем переменную универсальным обозначением всех тээгов
Selection.Find.MatchWildcards = True 'позволяет работать с регулярными выражениями
Selection.Find.Text = txt
Selection.Find.ClearFormatting
With Selection.Find.Replacement.Font
.ColorIndex = wdGray50
.StrikeThrough = True
.Name = "Lato"
End With
'Selection.Find.Replacement.ClearFormatting
Selection.Find.Execute Replace:=wdReplaceAll
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
Sub бРедактирование()
On Error Resume Next
ActiveDocument.Bookmarks("\StartOfDoc").Select 'устанавливаем курсор на начало документа
Selection.Find.ClearFormatting 'Очистка параметров поиска
With Selection.Find
.Font.StrikeThrough = False 'выбираем слова которые не зачеркнуты
.Text = ""
End With
Do While Selection.Find.Execute 'запуск поиска
Selection.Editors.Add wdEditorEveryone 'добавляем выбранные слова в исключение редактирования
Loop
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False 'включаем защиту редактирования
End Sub
Sub вПоказатьТэги()
On Error Resume Next
ActiveDocument.Unprotect
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find.Replacement.Font
.Name = "Calibri"
.StrikeThrough = True
.DoubleStrikeThrough = False
End With
With Selection.Find
.Font.Name = "Lato"
.Text = "\[*\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
On Error Resume Next
ActiveDocument.Protect Password:="", NoReset:=False, Type:= _
wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False
End Sub
для удобства можно назначить горячие клавиши на макросы скрытия и отображения тэгов
- Antero
- УР 1
- Posts: 4
- 1
by FanatFFVII » 24.05.2016, 19:33
Прошел след.части игры. FFVII, VIII, играю на эмуляторе в FFIX Rus так как нету русификатора для компьютерного издания. Могу поддержать материально в размере 500 рублей. Спасибо, что вы переводите данную игру. Начал проходить с 7-ой части серии играл в Final Fantasy VII HD, FF VIII HD. В компьютерных программах разбираюсь, но я не программист, так бы то же вам был бы рад помочь.
- FanatFFVII
- УР 1
- Posts: 1
38 posts
• Page 2 of 2 • 1, , 2
Who is online (over the past 5 minutes)
Users browsing this forum: 1 guest