D
DaleL
Here is my macro to set the Phonetic Guide. However, instead of asking user
to input, I wonder if it possible to query the "Ruby text" from MS Word?
Thanks in advance.
Sub MacroPhonetic()
Dim str As String
'to set the selection range
Dim rngParagraph As Range
Set rngParagraph = Selection.Range
rngParagraph.SetRange Start:=rngParagraph.Start, _
End:=rngParagraph.End
'add the PhoneticGuide to selected range
If rngParagraph.Start <> rngParagraph.End Then
str = InputBox("Enter the Phonetic")
With Selection
.Start = rngParagraph.Start
.End = rngParagraph.End
.Range.PhoneticGuide Text:=str, _
Alignment:=wdPhoneticGuideAlignmentCenter, _
Raise:=13, FontSize:=10, FontName:= _
"Arial"
End With
End If
End Sub
to input, I wonder if it possible to query the "Ruby text" from MS Word?
Thanks in advance.
Sub MacroPhonetic()
Dim str As String
'to set the selection range
Dim rngParagraph As Range
Set rngParagraph = Selection.Range
rngParagraph.SetRange Start:=rngParagraph.Start, _
End:=rngParagraph.End
'add the PhoneticGuide to selected range
If rngParagraph.Start <> rngParagraph.End Then
str = InputBox("Enter the Phonetic")
With Selection
.Start = rngParagraph.Start
.End = rngParagraph.End
.Range.PhoneticGuide Text:=str, _
Alignment:=wdPhoneticGuideAlignmentCenter, _
Raise:=13, FontSize:=10, FontName:= _
"Arial"
End With
End If
End Sub