0
Undo
Vótaí
An bhfuil cúis ar leith ann nach gcuirtear béim ar spásanna go huathoibríoch nuair a bhíonn téacs á roghnú i nDoiciméad Word, agus ansin cliceáil ar an deilbhín Ionsáigh Leabharmharc faoin gcluaisín Kutools? Is cosúil gur gné iomlán loighciúil é seo a shábhálann am, is féidir le Kutools, agus ba cheart dó, a chur i bhfeidhm go pras. Bheinn ag súil lena leithéid de ghné agus na bogearraí á gceannach agam, agus fáiltím roimh thuairimí agus/nó smaointe daoine eile ar an gcéanna.
Dia duit laxerlager,
Tá an fhadhb/an crá céanna agam. Mar sin, in ionad Kutools a úsáid chun an leabharmharc a chruthú, úsáidim an macra seo a leanas. Chuirfeadh sé an-áthas orm dá mbeadh duine eile in ann leas a bhaint as mo chuid oibre!
Tá a fhios agat conas macraí a úsáid?
Tá an fhadhb/an crá céanna agam. Mar sin, in ionad Kutools a úsáid chun an leabharmharc a chruthú, úsáidim an macra seo a leanas. Chuirfeadh sé an-áthas orm dá mbeadh duine eile in ann leas a bhaint as mo chuid oibre!
Tá a fhios agat conas macraí a úsáid?
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
Undo
Vótaí
Hey ann.
Shíl mé nach bhfaighfinn freagra choíche, gan trácht ar cheann le Macra! Go raibh míle maith agat.
Ar an drochuair, ní oibríonn an Macra domsa. Agus an téacs á roghnú agus an macra á rith agam, coinním ag fáil Earráid VBA "Ní féidir cód a rith i mód sos".
Aon smaointe nó ceartúcháin?
Go raibh maith agat arís!
Shíl mé nach bhfaighfinn freagra choíche, gan trácht ar cheann le Macra! Go raibh míle maith agat.
Ar an drochuair, ní oibríonn an Macra domsa. Agus an téacs á roghnú agus an macra á rith agam, coinním ag fáil Earráid VBA "Ní féidir cód a rith i mód sos".
Aon smaointe nó ceartúcháin?
Go raibh maith agat arís!
0
Undo
Vótaí
dearmad a lua go bhfaighidh mé an earráid uaireanta freisin "Earráid tiomsaithe: Níl an cineál sainithe ag an úsáideoir sainithe"
Níl le déanamh agat ach an tagairt cheart a chur leis. Ní gá a thuiscint go díreach cad atá ann, níl le déanamh ach an méid seo a leanas:
- Téigh chuig an eagarthóir VBA (is é sin, brúigh ALT+F11)[/*]Cruthaigh foirm úsáideora folamh (féach an scáileán faoi iamh. Cliceáil ar dheis sa phána ar chlé, roghnaigh cuir isteach, ansin Foirm Úsáideora.) [/*]Cliceáil ar Uirlisí ar an mbarra roghchláir[/*]Cliceáil ar Tagairtí[/*]Scrollaigh síos go dtí Microsoft Forms 2.0 Object Library[/*]Cinntigh go bhfuil tic sa bhosca[/*]Cliceáil OK[/*]
- Page:
- 1
Níl aon fhreagraí déanta don phost seo go fóill.