Difference between revisions of "Сибирско-украинской самотолмач"

Айдать на коробушку Айдать на сыскальник
Content deleted Content added
*>Yaroslav Zolotaryov
No edit summary
 
m Reverted edits by Siberian Snake (talk) to last revision by Upliner
Tag: Rollback
 
(7 intermediate revisions by 6 users not shown)
Line 1: Line 1:
Зроблено як макрос пiд Ворд.
Зроблено як макрос пiд Ворд.


Як його ставити можна вызнати у справкi Ворда.
Як його ставити можна взнати у справцi Ворда.

Якщо хто буде сам додавати слова, будь ласка, копируйте у цю статтю.


Якщо хто буде сам додавати слова, будь ласка, копіюйте у цю статтю.
<pre>
Sub сибир()
Sub сибир()
'
'
Line 14: Line 14:
With Selection.Find
With Selection.Find
.Text = "[["
.Text = "[["
.Replacement.Text = "[[Test-WP/chal/"
.Replacement.Text = "[["
.Forward = True
.Forward = True
End With
End With
Line 914: Line 914:


Selection.EndKey Unit:=wdStory
Selection.EndKey Unit:=wdStory
Selection.InsertAfter ("[[Category:Siberian]]")
Selection.InsertAfter ("[_[_Category_:_Siberian_]_]")


End Sub
End Sub
</pre>

[[Category:Siberian]]