0
Dadwneud
Pleidleisiau
A oes rheswm penodol pam nad yw bylchau yn cael eu disodli'n awtomatig â thanlinellau wrth ddewis testun mewn Dogfen Word, ac yna clicio ar yr eicon Mewnosod Nod Tudalen o dan y tab Kutools? Mae hyn yn ymddangos fel nodwedd gwbl resymegol, arbed amser y gall, ac y dylai, Kutools ei gweithredu'n brydlon. Byddwn wedi disgwyl nodwedd o'r fath wrth brynu'r meddalwedd, ac yn croesawu unrhyw sylwadau a/neu feddyliau eraill ar yr un peth.
Helo laxerlager,
Mae gen i'r un broblem/annifyrrwch. Felly yn lle defnyddio Kutools i greu'r nod tudalen, rwy'n defnyddio'r macro canlynol. Byddai'n fy ngwneud yn hapus iawn pe bai rhywun arall yn gallu elwa o fy ngwaith!
Ydych chi'n gwybod sut i ddefnyddio macros?
Mae gen i'r un broblem/annifyrrwch. Felly yn lle defnyddio Kutools i greu'r nod tudalen, rwy'n defnyddio'r macro canlynol. Byddai'n fy ngwneud yn hapus iawn pe bai rhywun arall yn gallu elwa o fy ngwaith!
Ydych chi'n gwybod sut i ddefnyddio macros?
Sub InsertNewBookmark()
Dim MyData As DataObject
Dim strClip As String
Dim bkName As String
If Selection.Type = wdSelectionNormal Then
Selection.Copy
End If
Set MyData = New DataObject
MyData.GetFromClipboard
strClip = MyData.GetText
strClip = Trim(strClip)
strClip = Replace(strClip, " ", " ")
strClip = Replace(strClip, " ", " ")
strClip = Replace(strClip, " ", "_")
bkName = InputBox("Insert new bookmark name.", "Hello there.", strClip)
On Error GoTo Oops
If (StrPtr(bkName) = 0) Then
' MsgBox "You pressed cancel or [X]."
Exit Sub
ElseIf (bkName = "") Then
MsgBox "You have to name the bookmark. Try again."
Call InsertNewBookmark
Else
ActiveDocument.Bookmarks.Add _
Name:=bkName, Range:=Selection.Range
Exit Sub
End If
Oops:
MsgBox ("The bookmark could not be created. Remember to follow these guidelines :" & vbNewLine & vbNewLine & "• Names must begin with a letter of the alphabet." _
& vbNewLine & "• Names can contain only letters, numbers, and the underscore." & vbNewLine & "• Names cannot contain spaces or punctuation marks." & vbNewLine _
& vbNewLine & "Let's try it again. Ready?")
Call InsertNewBookmark
End Sub
0
Dadwneud
Pleidleisiau
Hei yno.
Wedi meddwl na fyddwn i byth yn cael ateb, heb sôn am un gyda Macro! Diolch yn fawr iawn.
Yn anffodus, nid yw'r Macro yn gweithio i mi. Wrth ddewis testun a rhedeg y macro, rwy'n dal i gael Gwall VBA "Methu gweithredu cod yn y modd torri".
Unrhyw feddyliau neu gywiriadau?
Diolch unwaith eto!
Wedi meddwl na fyddwn i byth yn cael ateb, heb sôn am un gyda Macro! Diolch yn fawr iawn.
Yn anffodus, nid yw'r Macro yn gweithio i mi. Wrth ddewis testun a rhedeg y macro, rwy'n dal i gael Gwall VBA "Methu gweithredu cod yn y modd torri".
Unrhyw feddyliau neu gywiriadau?
Diolch unwaith eto!
0
Dadwneud
Pleidleisiau
wedi anghofio sôn fy mod hefyd weithiau'n cael y gwall "Gwall llunio: Math wedi'i ddiffinio gan ddefnyddiwr heb ei ddiffinio"
Does ond angen i chi ychwanegu'r cyfeirnod cywir. Nid oes angen deall yn union beth ydyw, gwnewch y canlynol:
- Ewch i'r golygydd VBA (hynny yw, pwyswch ALT+F11)[/*]Creu ffurflen ddefnyddiwr wag (gweler y llun sydd wedi'i atodi. Rydych chi'n clicio ar y dde yn y cwarel chwith, yn dewis mewnosod, yna Userform.) [/*]Cliciwch ar Tools ar y bar dewislen[/*]Cliciwch ar Cyfeiriadau[/*]Sgroliwch i lawr i Microsoft Forms 2.0 Object Library[/*]Sicrhewch fod y blwch wedi'i wirio[/*]Cliciwch Iawn[/*]
- Tudalen:
- 1
Ni wnaed unrhyw atebion i'r swydd hon eto.